Et langt script med fejl !!!!
Jeg har fået fat i det hersens script og jeg kan ikke rigtig få det til at virke.Problemet opstår i INSERT INTO Sætningen (se kommentar i scriptet).
Jeg får ingen fejlmeddelse, men tilgengæld får jeg heller ikke lagt hverken productname eller productvhsdvd i databasen.
Nu har jeg siddet og rodet med det skide script i jeg ved ikke hvor lang tid, så jeg håber der er nogen som kan hjælpe.
Dette er hele scriptet:
<!-- #include file="dbforb.asp" -->
<%
' Get Product ID
productID = TRIM( Request( "pid" ) )
' Add Item to cart
IF productID <> "" THEN
sqlString = "SELECT cart_id FROM cart " &_
"WHERE cart_userID=" & userID & " " &_
"AND cart_productID=" & productID
SET RS = Conn.Execute( sqlString )
IF RS.EOF THEN
sqlString = "INSERT INTO cart ( " &_
"cart_productname, " &_ ' Virker ikke
"cart_productvhsdvd, " &_ ' Virker ikke
"cart_userID, " &_
"cart_productID, " &_
"cart_quantity " &_
") VALUES ( " &_
"'" & productname & "', " &_
"'" & productvhsdvd & "', " &_
userID & ", " &_
productID & ", 1 )"
ELSE
sqlString = "UPDATE cart SET " &_
"cart_quantity=cart_quantity+1 " &_
"WHERE cart_id=" & RS( "cart_id" )
END IF
RS.Close
SET RS = Nothing
Conn.Execute sqlString
END IF
' Update Shopping Cart Quantities
IF Request( "updateQ" ) <> "" THEN
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Conn
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
sqlString = "SELECT cart_id, cart_quantity FROM cart " &_
"WHERE cart_userID=" & userID
RS.Open sqlString
WHILE NOT RS.EOF
newQ = TRIM( Request( "pq" & RS( "cart_id" ) ) )
IF newQ = "" OR newQ = "0" THEN
RS.Delete
ELSE
IF isNumeric( newQ ) THEN
RS( "cart_quantity" ) = newQ
END IF
END IF
RS.MoveNext
WEND
RS.Close
SET RS = Nothing
END IF
%>
<html>
<head><title>Indkøbskurv</title></head>
<body bgcolor="white">
<center>
<font face="Verdana" size=3 color="#000000">
<b><%=username%>'s indkøbskurv:</b>
</font>
<%
' Get the shopping cart
sqlString = "SELECT cart_id, product_name, " &_
"product_price, cart_quantity, product_vhsdvd " &_
"FROM cart, products " &_
"WHERE cart_userID=" & userID & " " &_
"AND cart_productID = product_id " &_
"ORDER BY cart_id DESC"
SET RS = Conn.Execute( sqlString )
IF RS.EOF THEN
%>
<p><b>Du har ingen film i din indkøbskurv</b>
<p>
<form action="default.asp">
<input type="submit" value="Fortsætte">
</form>
<%
ELSE
orderTotal = 0
%>
<form method="post" action="viskurv.asp">
<input name="updateQ" type="hidden" value="1">
<input name="username" type="hidden" value="<%=username%>">
<input name="password" type="hidden" value="<%=password%>">
<table border=0 cellpadding=5 cellspacing=0 width="100%">
<tr bgcolor="#FF99CC">
<th align="left">Film</th>
<th align="left">VHS/DVD</th>
<th align="left">Pris</th>
<th>Antal</th>
</tr>
<%
WHILE NOT RS.EOF
orderTotal = orderTotal + ( RS( "product_price" ) * RS( "cart_quantity" ) )
orderTotalMoms = orderTotal - (orderTotal * 25)/100
%>
<tr>
<td>
<input type="text" name="product_name" value="<%=RS( "product_name" )%>">
</td>
<td>
<input type="text" name="product_vhsdvd" value="<%=RS( "product_vhsdvd" )%>">
</td>
<td>
<input type="text" name="product_price"value="kr.<%=RS( "product_price" )%>,-">
</td>
<td align="middle">
<input name="pq<%=RS( "cart_id" )%>" type="text" size=4
value="<%=RS( "cart_quantity" )%>">
</td>
</tr>
<%
RS.MoveNext
WEND
%>
<tr bgcolor="#FF99CC">
<td> </td>
<td colspan=2 align=right>
<b>Ordre Total:</b>
</td>
<td align="middle">
kr.<%=( orderTotal )%>,-
</td>
</tr>
<tr bgcolor="#FF99CC">
<td> </td>
<td colspan=2 align=right>
<b>Eksl.moms:</b>
</td>
<td align="middle">
kr.<%=( orderTotalMoms )%>,-
</td>
</tr>
<tr>
<td colspan=3 align="center">
<table border=0>
<tr>
<td>
<input type="submit" value="Opdater kurv">
</td>
</form>
<form method="post" action="checkout.asp">
<input name="username" type="hidden" value="<%=username%>">
<input name="password" type="hidden" value="<%=password%>">
<td>
<input type="submit" value="Forsæt">
</td>
</form>
<form action="default.asp">
<td>
<input type="submit" value="Købe flere film">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<% END IF %>
</center>
</body>
</html>
På forhånd tak
