shopping cart neeeed help
here is the code below, everytime i hit order it goes to a page that says "we notice that you havent turn on the cookies" but i have.
[code]
<!-- #include file="db.asp" -->
<%
'shopping cart code on this page -
'generates session variables with order items
Dim prodid, quantity, arrCart, scartItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart = Session("MyCart")
scartItem = Session("cartItem")
If scartItem = "" Then
Response.Redirect "error.asp?msg=" & Server.URLEncode ("We noticed you do not accept cookies. Please enable cookies to shop.")
else
if quantity <> "" AND quantity < 1 then
Response.Redirect "error.asp?msg=" & Server.URLEncode ("Please enter at least 1 as number of items you wish to order.")
end if
End If
If prodid <> "" Then
call addToCart()
Else
Dim strAction
strAction = UCase(Left(Request.Form("action"),5))
Select Case strAction
Case "CONTI" 'continue shopping
Response.Redirect "Default.asp"
Case "RECAL" 'recalculate
call recalculateCart()
Case "PROCE" 'proceed to checkout
Response.Redirect "customer.asp"
End Select
'end if for updating or inserting new item in Cart
End If
sub addToCart()
If scartItem < maxCartItems Then
scartItem = scartItem + 1
End If
Session("cartItem") = scartItem
dim rsItem, sqlProductInfo
sqlProductInfo = "SELECT * FROM products WHERE (products.catalogID=" & prodid & ")"
'open connection - returns dbc as Active connection
call openConn()
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open sqlProductInfo, dbc, adOpenForwardOnly,adLockReadOnly,adCmdText
If Not rsItem.EOF Then
arrCart(cProductid,scartItem) = rsItem("catalogID")
arrCart(cProductCode,scartItem) = rsItem("ccode")
arrCart(cProductname,scartItem) = rsItem("cname")
arrCart(cQuantity,scartItem) = CInt(quantity)
arrCart(cUnitPrice,scartItem) = rsItem("cprice")
Session("MyCart") = arrCart
End If
rsItem.Close
set rsItem = nothing
call closeConn()
end sub
sub recalculateCart()
For i = 1 To scartItem
Dim tquantity
tquantity = Request.Form("quantity" & Cstr(i))
if isempty(tquantity) OR (tquantity = "") then
tquantity = 0
elseif (tquantity < 0) OR (isnumeric(tquantity)=false) then
tquantity = 0
end if
arrCart(cQuantity,i) = CInt(tquantity)
Next
'make temp array and set it empty
ReDim temparrcart(UBound(arrCart,1),UBound(arrCart,2))
Dim tempItems
tempItems = 0
For x = 1 to UBound(arrCart,1)
For y = 1 to UBound(arrCart,2)
temparrCart(x,y) = ""
Next
Next
For i = 1 to scartItem
confirm = Request.Form("selected" & CStr(i))
zeroQuantity = arrCart(cQuantity,i)
If confirm <> "" and zeroQuantity > 0 Then
tempItems = tempItems +1
For x = 1 to UBound(arrCart,1)
temparrCart(x,tempItems) = arrCart(x,i)
Next
End If
Next
For x = 1 to UBound(arrCart,1)
For y = 1 to UBound(arrCart,2)
arrCart(x,y) = temparrCart(x,y)
Next
Next
scartItem = tempItems
Session("cartItem") = scartItem
Session("MyCart") = arrCart
end sub
'procedure builds Cart contents table
sub showCart()
'double quote character
q = chr(34)
if scartItem = 0 then
strURL = Request.ServerVariables("HTTP_REFERER")
strFile = Request.ServerVariables("PATH_INFO")
if right(strURL,8) = right(strURL,8) then
strURL = "Default.asp"
end if
strHTML = "<h3>Your shopping cart is empty.</h3>"
strHTML = strHTML & "<p><a href=" & q & strURL & q & ">Continue shopping.</a></p>"
else
strHTML = "<FORM action="& q &"addprod.asp"& q &" method="& q &"POST"& q &">"
strHTML = strHTML & "<table border=0 cellPadding=3 cellSpacing=2 width="&q&"100%"&q&">"
strHTML = strHTML & "<tr bgColor=darkblue>"
strHTML = strHTML & "<td><FONT color=white>Product code</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Product name</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Quantity</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Unit Price</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Total</FONT></td></tr>"
Dim isubtotal, i
isubtotal = 0
For i = 1 to scartItem
strHTML = strHTML & "<tr bgColor=navajowhite>"
strHTML = strHTML & "<td><input name=selected"& Cstr(i)&" type=checkbox value="&q&"yes"&q&" checked>" & arrCart(cProductCode,i) &"</td>"
strHTML = strHTML & "<td>" & arrCart(cProductname,i) & "</td>"
strHTML = strHTML & "<td><input type="&q&"text"&q&" name="&q & "quantity" & CStr(i) & q &" value="&q & arrCart(cQuantity,i) &q&" size=3></td>"
strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i),2) & "</td>"
strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) & "</td>"
strHTML = strHTML & "</tr>"
isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))
Next
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td></td><td></td><td></td>"
strHTML = strHTML & "<td bgColor=darkblue><font color=white>Total</font></td>"
strHTML = strHTML & "<td bgColor=lightgoldenrodyellow>" & FormatCurrency(isubtotal,2) & "</td>"
strHTML = strHTML & "</tr>"
strHTML = strHTML & "</table>"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Continue shopping"& q &">"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Recalculate"&q&"><br>"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Proceed to check out"&q&">"
strHTML = strHTML & "</form>"
end if
response.write strHTML
end sub
%>
<HTML>
<HEAD>
<title>Shopping cart items</title>
<link rel="stylesheet" type="text/css" href="ashopkart20/eposter.css">
</HEAD>
<BODY>
<table border="0" width="600" cellpadding="4">
<tr>
<td width="100%" colspan="2" valign="top">
<h3>
<img src="ashopkart20/images/eplogo2.gif" alt="eplogo.gif (2683 bytes)" width="187" height="36">
<br><font face="Arial">Shopping Cart Items:</font></h3>
</td>
</tr>
<tr>
<td width="120" bgcolor="#004080" valign="top">
<!--#include file="navleft.htm" --></td>
<td width="480">
<P>
<%
call showCart()
%>
</P>
</td>
</tr>
</table>
</BODY>
</HTML>
[\code]
1 Attachment(s)
this sucks oiit wont show, this time i am attaching the file
Re: shopping cart neeeed help
I can't get this to work... I downloaded the .txt file, and it didn't work correctly. I was using this code on one server, then changed hosts, and now it doesn't work...
errors:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'arrCart'
/a/addprod.asp, line 46
line 46 = arrCart(cProductid,shoppingcartItem) = rsItem("catalogID")
Code:
<!-- #include file="db.asp" -->
<%
Dim prodid, quantity, profileid, arrCart, shoppingcartItem
prodid = Request.Form("fproductid")
quantity = Request.Form("fquantity")
arrCart = Session("MyCart")
shoppingcartItem = Session("cartItem")
If shoppingcartItem = "" Then
Response.Redirect "error.asp?msg=" & Server.URLEncode ("We noticed you do not accept cookies. Please enable cookies to shop.")
else
if quantity <> "" AND quantity < 1 then
Response.Redirect "error.asp?msg=" & Server.URLEncode ("Please enter at least 1 as number of items you wish to order.")
end if
End If
If prodid <> "" Then
call addToCart()
Else
Dim strAction
strAction = UCase(Left(Request.Form("action"),5))
Select Case strAction
Case "CONTI" 'continue shopping
Response.redirect "default.asp"
Case "RECAL" 'recalculate
call recalculateCart()
Case "PROCE" 'proceed to checkout
Response.Redirect "customer.asp"
End Select
'end if for updating or inserting new item in Cart
End If
sub addToCart()
If shoppingcartItem < maxCartItems Then
shoppingcartItem = shoppingcartItem + 1
End If
Session("cartItem") = shoppingcartItem
'response.write (Session("CartItem"))
dim rsItem, sqlProductInfo
sqlProductInfo = "SELECT * FROM products WHERE (products.catalogID=" & prodid & ")"
'response.write (sqlProductInfo)
'open connection - returns dbc as Active connection
call openConn()
Set rsItem = Server.CreateObject("ADODB.Recordset")
rsItem.Open sqlProductInfo, dbc, adOpenForwardOnly, adLockReadOnly, adCmdText
If Not rsItem.EOF Then
shipping=rsItem("shipping")
'response.write "Debug: shipping = " & shipping & "<p>"
arrCart(cProductid,shoppingcartItem) = rsItem("catalogID") 'THIS IS LINE 46
arrCart(cProductCode,shoppingcartItem) = rsItem("ccode")
arrCart(cProductname,shoppingcartItem) = rsItem("cname")
arrCart(cQuantity,shoppingcartItem) = CInt(quantity)
arrCart(cUnitPrice,shoppingcartItem) = rsItem("cprice")
'arrCart(cshipping,shoppingcartItem) = rsItem("shipping")
Session("MyCart") = arrCart
End If
rsItem.Close
set rsItem = nothing
call closeConn()
end sub
sub recalculateCart()
For i = 1 To shoppingcartItem
Dim tquantity
tquantity = Request.Form("quantity" & Cstr(i))
if isempty(tquantity) OR (tquantity = "") then
tquantity = 0
elseif (tquantity < 0) OR (isnumeric(tquantity)=false) then
tquantity = 0
end if
arrCart(cQuantity,i) = CInt(tquantity)
Next
'make temp array and set it empty
ReDim temparrcart(UBound(arrCart,1),UBound(arrCart,2))
Dim tempItems
tempItems = 0
For x = 1 to UBound(arrCart,1)
For y = 1 to UBound(arrCart,2)
temparrCart(x,y) = ""
Next
Next
For i = 1 to shoppingcartItem
confirm = Request.Form("selected" & CStr(i))
zeroQuantity = arrCart(cQuantity,i)
If confirm <> "" and zeroQuantity > 0 Then
tempItems = tempItems +1
For x = 1 to UBound(arrCart,1)
temparrCart(x,tempItems) = arrCart(x,i)
Next
End If
Next
For x = 1 to UBound(arrCart,1)
For y = 1 to UBound(arrCart,2)
arrCart(x,y) = temparrCart(x,y)
Next
Next
shoppingcartItem = tempItems
Session("cartItem") = shoppingcartItem
Session("MyCart") = arrCart
end sub
'procedure builds Cart contents table
sub showCart()
'double quote character
q = chr(34)
if shoppingcartItem = 0 then
strURL = Request.ServerVariables("HTTP_REFERER")
strFile = Request.ServerVariables("PATH_INFO")
if right(strURL,8) = right(strURL,8) then
strURL = "default.asp"
end if
strHTML = "<h3>Your shopping cart is empty.</h3>"
strHTML = strHTML & "<p><a href=" & q & strURL & q & ">Continue shopping.</a></p>"
else
strHTML = "<FORM action="& q &"addprod.asp"& q &" method="& q &"POST"& q &">"
strHTML = strHTML & "<table border=0 cellPadding=3 cellSpacing=2 width="&q&"100%"&q&">"
strHTML = strHTML & "<tr bgColor=black>"
strHTML = strHTML & "<td><FONT color=white>Product code</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Product name</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Quantity</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Unit Price</FONT></td>"
strHTML = strHTML & "<td><FONT color=white>Total</FONT></td></tr>"
Dim isubtotal, i
isubtotal = 0
For i = 1 to shoppingcartItem
strHTML = strHTML & "<tr bgColor=navajowhite>"
strHTML = strHTML & "<td><input name=selected"& Cstr(i)&" type=checkbox value="&q&"yes"&q&" checked>" & arrCart(cProductCode,i) &"</td>"
strHTML = strHTML & "<td>" & arrCart(cProductname,i) & "</td>"
strHTML = strHTML & "<td><input type="&q&"text"&q&" name="&q & "quantity" & CStr(i) & q &" value="&q & arrCart(cQuantity,i) &q&" size=3></td>"
strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i),2) & "</td>"
strHTML = strHTML & "<td>" & FormatCurrency(arrCart(cUnitPrice,i) * arrCart(cQuantity,i),2) & "</td>"
strHTML = strHTML & "</tr>"
isubtotal = isubtotal + (arrCart(cUnitPrice,i) * arrCart(cQuantity,i))
Next
arrCart(cshipping,i)=5.00
strHTML = strHTML & "<tr><td COLSPAN=3></td>"
strHTML = strHTML & "<td bgColor=black><font color=white>Shipping</font></td>"
strHTML = strHTML & "<td bgColor=lightgoldenrodyellow>" & FormatCurrency(arrCart(cshipping,i),2) & "</td>"
strHTML = strHTML & "</tr>"
isubtotal = isubtotal + (arrCart(cshipping,i))
strHTML = strHTML & "<tr>"
strHTML = strHTML & "<td></td><td></td><td></td>"
strHTML = strHTML & "<td bgColor=black><font color=white>Total</font></td>"
strHTML = strHTML & "<td bgColor=lightgoldenrodyellow>" & FormatCurrency(isubtotal,2) & "</td>"
strHTML = strHTML & "</tr>"
strHTML = strHTML & "<TR><td COLSPAN=5 ALIGN=center><b><FONT SIZE=+1>If you want Express Shipping, please make sure that it is on the top line.<br>To remove an item from the top line, uncheck the check box, <br>then click on Recalculate. Now <a href='javascript:history.go(-1)'>go back one page</a> to add the item. Only one item per order.</FONT></b></TD></TR>"
strHTML = strHTML & "</table>"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Continue shopping"& q &">"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Recalculate"&q&"><br>"
strHTML = strHTML & "<input name="&q&"action"&q&" type="&q&"submit"&q&" value="&q&"Proceed to check out"&q&">"
strHTML = strHTML & "</form>"
end if
response.write strHTML
end sub
%>
<HTML>
<HEAD>
<title>Shopping cart items</title>
<link rel="stylesheet" type="text/css" href="timbaker.css">
</HEAD>
<BODY>
<table border="0" width="95%" cellpadding="4">
<tr>
<td ALIGN="left" width="100%" colspan="2" valign="top">
<h3><img src="/graphics/buyhour2.jpg" width="360" height="65">
<br><font face="Arial">Shopping Cart Items:<br><br></font></h3>
</td>
</tr>
<tr>
<td width="15%" bgcolor="black" valign="top">
<!--#include file="navleft.htm" --></td>
<td width="85%">
<P>
<%
call showCart()
%>
</P>
</td>
</tr>
</table>
</BODY>
</HTML>
errors:
Microsoft VBScript runtime error '800a000d'
Type mismatch: 'arrCart'
/a/addprod.asp, line 46
line 46 = arrCart(cProductid,shoppingcartItem) = rsItem("catalogID")
Any help would be greatly appreciated. Also, if someone knows where to download the whole program of the eposter shopping cart.
Thanks
