Hi,
I am really desperate!!
I have been using a book "Teach Yourself E-Commerce Programming with
ASp in 21 days" published by Sams to create an online store as part
of
a project.
using the code provided I have tried to construct a 'doCheckout' page
but the code isn't working properly.
When a user first visits the site and tries to purchase something,
they
have to register. When they have registered, a cookie is placed on
their machine with their username and password.
The 'addCart' page obtains the user's username and displays it on the
page along with their shopping cart. When the user clicks 'Checkout'
they are supposed to be taken to the 'docheckout' page. However, this
page is not picking up the user's username or user_id and I have
tried
everything I can think of so was hoping someone might be able to shed
some light on it??
Here's the original 'doCheckout' page:
========================================================
<%
' Retrieve Registration Information
sqlString = "SELECT * FROM users " &_
"WHERE user_id=" & userID
SET RS = Con.Execute( sqlString )
IF NOT RS.EOF THEN
street = RS( "user_street" )
city = RS( "user_city" )
state = RS( "user_state" )
zip = RS( "user_zip" )
cctype = RS( "user_cctype" )
ccnumber = RS( "user_ccnumber" )
ccexpires = RS( "user_ccexpires" )
ccname = RS( "user_ccname" )
END IF
' Hide Credit Card Number
ccnumber = LEFT( ccnumber, 2 ) &_
"************" &_
RIGHT( ccnumber, 2 )
%>
<html>
<head><title>Checkout</title></head>
<body>
<center>
<table border=1 width=500
cellpadding=5 cellspacing=0>
<tr>
<td align="center" bgcolor="lightgreen">
<b>Confirm Order</b>
</td>
</tr>
<tr>
<td>
Your order will be sent to the following address
and charged to the following credit card.
Please review your address and payment information
and click Confirm Order to finish placing your order.
<form method="post" action="checkout2.asp">
<input name="username" type="hidden"
value="<%=username%>">
<input name="password" type="hidden"
value="<%=password%>">
<font face="Arial" size="2" color="darkgreen">
<p><b>Address Information:</b>
</font>
<font face="Courier" size="2">
<br><b>street:</b>
<input name="street" size=20 maxlength=50
value="<%=Server.HTMLEncode( street )%>">
<br><b>city:</b>
<input name="city" size=20 maxlength=50
value="<%=Server.HTMLEncode( city )%>">
<br><b>state:</b>
<input name="state" size=20 maxlength=2
value="<%=Server.HTMLEncode( state )%>">
<br><b>zip:</b>
<input name="zip" size=20 maxlength=20
value="<%=Server.HTMLEncode( zip )%>">
</font>
<font face="Arial" size="2" color="darkgreen">
<p><b>Payment Information:</b>
</font>
<font face="Courier" size="2">
<br><b>type of credit card:</b>
<select name="cctype">
<option value="1"
<%=SELECTED( cctype, "1" )%> > VISA
<option value="2"
<%=SELECTED( cctype, "2" )%> >MasterCard
</select>
<br><b>credit card number:</b>
<input name="ccnumber" size=20 maxlength=20
value="<%=Server.HTMLEncode( ccnumber )%>">
<br><b>credit card expires:</b>
<input name="ccexpires" size=20 maxlength=20
value="<%=Server.HTMLEncode( ccexpires )%>">
<br><b>name on credit card:</b>
<input name="ccname" size=20 maxlength=20
value="<%=Server.HTMLEncode( ccname )%>">
<p><input type="submit" value="Confirm Order">
</font>
</form>
</tr>
</table>
=========================================================
and here's the original 'addCart' page:
===========================================================
<%
' 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 = Con.Execute( sqlString )
IF RS.EOF THEN
sqlString = "INSERT INTO cart ( " &_
"cart_userID, " &_
"cart_productID, " &_
"cart_quantity " &_
") VALUES ( " &_
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
Con.Execute sqlString
END IF
' Update Shopping Cart Quantities
IF Request( "updateQ" ) <> "" THEN
SET RS = Server.CreateObject( "ADODB.Recordset" )
RS.ActiveConnection = Con
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>Shopping Cart</title></head>
<body bgcolor="white">
<center>
<font face="Arial" size=3 color="darkgreen">
<b><%=username%>'s shopping cart:</b>
</font>
<%
' Get the shopping cart
sqlString = "SELECT cart_id, product_name, " &_
"product_price, cart_quantity " &_
"FROM cart, products " &_
"WHERE cart_userID=" & userID & " " &_
"AND cart_productID = product_id " &_
"ORDER BY cart_id DESC"
SET RS = Con.Execute( sqlString )
IF RS.EOF THEN
%>
<p><b>You do not have any items in your shopping cart</b>
<p>
<form action="default.asp">
<input type="submit" value="Continue Shopping">
</form>
<%
ELSE
orderTotal = 0
%>
<form method="post" action="cart.asp">
<input name="updateQ" type="hidden" value="1">
<input name="username" type="hidden" value="<%=username%>">
<input name="password" type="hidden" value="<%=password%>">
<table bgcolor="lightyellow" border=1
cellpadding=4 cellspacing=0>
<tr bgcolor="lightgreen">
<th>Product</th>
<th>Price</th>
<th>Quantity</th>
</tr>
<%
WHILE NOT RS.EOF
orderTotal = orderTotal + ( RS( "product_price" ) * RS
( "cart_quantity" ) )
%>
<tr>
<td>
<%=Server.HTMLEncode( RS( "product_name" ) )%>
</td>
<td>
<%=formatCurrency( RS( "product_price" ) )%>
</td>
<td>
<input name="pq<%=RS( "cart_id" )%>" type="text" size=4
value="<%=RS( "cart_quantity" )%>">
</td>
</tr>
<%
RS.MoveNext
WEND
%>
<tr bgcolor="yellow">
<td colspan=2 align=right>
<b>Order Total:</b>
</td>
<td>
<%=formatCurrency( orderTotal )%>
</td>
</tr>
<tr>
<td colspan=3>
<table border=0>
<tr>
<td align="right">
<input type="submit" value="Update Cart">
</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="Checkout">
</td>
</form>
<form action="default.asp">
<td>
<input type="submit" value="Continue Shopping">
</td>
</form>
</tr>
</table>
</td>
</tr>
</table>
<% END IF %>
</center>
</body>
</html>
==============================================================
Can anyone spot why the username isn't being picked up? When I've run
a 'response.write' on the sqlString at the top which calls the
user_id,
the userID is not picked up.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AspClassicAnyQuestionIsOk/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
