Redirect on Add to Cart not redirecting
Hello,
Help I'm experiencing some fun in that the redirect on add to cart buton pressed is not redirecting, it merely refreshes the page?
my test & development design site can be seen here - flower.asp?id=1&Roses+S-delivered-in-Bortsmouth-by-Bortsmouths-premier-florist-Design+Florist+Site
(Please ignore the design as it is in development) and should once add to cart is pressed (on either product) should redirect to here -
cartso.asp?Bortsmouth=Florist
but it fails?
my code looks like this (part of)-
<%
' WA eCart AddToCart
if (cStr(Request.Form("FloristWebCart_3_ATC")) <> "" OR cStr(Request.Form("FloristWebCart_3_ATC.x")) <> "") then
ATC_itemID = cStr(Request.Form("FloristWebCart_3_ID_Add"))
ATC_AddIfIn = 0
ATC_RedirectAfter = "cart/cartso.asp"
ATC_RedirectIfIn = ""
ATC_RSPos = ProductPrice3.AbsolutePosition
ProductPrice3.MoveFirst()
DO while (NOT ProductPrice3.EOF)
if (cStr(ProductPrice3.Fields("ID").value) = cStr(ATC_itemID)) then
ATC_itemName = "" & cStr((ProductPrice3.Fields.Item("Name").Value)) & ""' column binding
ATC_itemDescription = "" & cStr((ProductPrice3.Fields.Item("ProductDescription").Value)) & ""' column binding
ATC_itemWeight = cDbl("0")' column binding
ATC_itemQuantity = "" & cStr(Request.Form("FloristWebCart_3_Quantity_Add")) & ""' column binding
ATC_itemPrice = cDbl("" & cStr((ProductPrice3.Fields.Item("Price").Value)) & "")' column binding
Exit DO
end if
ProductPrice3.MoveNext()
Loop
ProductPrice3.AbsolutePosition = ATC_RSPos
if (IsNumeric(ATC_itemQuantity) AND ATC_itemQuantity <> 0) then
set FloristWebCart = FloristWebCart_AddToCart(ATC_AddIfIn, ATC_RedirectIfIn, ATC_itemID, ATC_itemName, ATC_itemDescription, ATC_itemWeight, ATC_itemQuantity, ATC_itemPrice)
if (ATC_RedirectAfter <> "" AND FloristWebCart_redirStr = "") then
FloristWebCart_redirStr = ATC_RedirectAfter
end if
Session("WAEC_ContinueRedirect") = cStr(Request.ServerVariables("Script_Name")) & "?" & cStr(Request.QueryString())
end if
end if
%>
What have I missed?
Thanks in advance