Code for a working shopping cart solution in classic ASP | Samir Patel - Software Developer, San Antonio, TX - 78209

Programming menu

Links

Home

Articles

Programming

Code for a working shopping cart solution in classic ASP

Tag it:

In this article we will be looking at the code for a complete shopping cart solution implemented in ASP.

In order to get this working we will have to configure a local instance of an ADODB database.

Start -> Run -> odbcad32

Configure the System DSN depending on your database of choice. We will create product and cart tables. The fields can be determined by glancing over the code.

Lets get started...

File: catlist.asp

<%
set catRs = Server.CreateObject("ADODB.RecordSet")
catRS.ActiveConnection = Con
sqlString = "Select distinct category from asp.dbo.products order by category"
catRS.open sqlString
%>
<%if cat = "home" then%>
	<font color="red"><b>Home</b></font>

<%else%>
	<a href="Default.asp?cat=home" mce_href="Default.asp?cat=home">Home</a>
<ul>
<%end if%>
<%while not catRS.EOF
	if catRS("category") = cat then
%>
		<li><font color="red"><b><%=catRS("category")%></b></font>
<%else%>
		</li><li><a href="default.asp?cat=%3C%=Server.URLEncode%28catRS%28" mce_href="default.asp?cat=<%=Server.URLEncode(catRS(" category="" ))%="">">
				<%=catRS("category")%>
			</a>
<%end if%>
<%
catRS.moveNext
wend
%>
</li></ul><title>Database Shopping Cart</title>
<%catRS.close%>

File: databaseCart.asp

<%
'Get the product id
productID = trim(request("pid"))

'Add the item to the cart
if productID <> '' then
	sqlString = "select cart_id from cart where cart_user_id=" & userID & " " & "and cart_product_id=" & productID
	set rs = Con.execute(sqlString)
	
	if rs.eof then
		sqlString = "insert into cart(cart_user_id,cart_product_id,cart_quantity) values ( " & cart_user_id "," & cart_product_id & "," & 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_user_id = " & userID
	rs.open sqlString
	
	while not rs.eof
		newQ = trim(request("pq" & rs("cart_id")))
		deleteProduct = trim(request("pd" & rs("cart_id")))
		if newQ = "" or newQ = "0" or deleteProduct <> "" 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
%>



<center>
<font color="darkGreen" face="verdana" size="+3"><b><%=userName%>'s shopping cart.</b></font>
<hr>
<%
'Get the shopping cart
sqlString = "select * from cart where cart_user_id = " & userID & " and cart_product_id = " & product_id " & " order by cart_id desc"
set rs = Con.execute(sqlString)

if rs.eof then
%>
<p>You do not have any items in your cart</p>
<form action="default.asp">
	<input value="Continue Shopping" type="submit">
</form>
<%
else
orderTotal = 0
%>
<form method="post" action="databaseCart.asp">
	<input name="updateQ" value="1" type="hidden">
	<input name="username" value="<%=username%>" type="hidden">
	<input name="password type=" hidden="" value="<%=password%>">
	<table bgcolor="lightYellow" border="1">
		<tbody><tr bgcolor="lightGreen">
			<th>Product</th>
			<th>Price</th>
			<th>Quantity</th>
		</tr>
<%
while not rs.EOF
orderTotal = orderTotal + (rs("price") * rs("cart_quantity"))
%>
<tr>
	<td>
	<%=Server.HTMLEncode(rs("Name"))%>
	</td>
	<td>
	<%=formatCurrency(rs("price"))%>
	</td>
	<td>
		<input name="pq<%=rs(" cart_id="" )%="">" type="text" size="4" value="<%=rs("cart_quantity")%>">
		<input name="pd<%=rs(" cart_id="" )%="">" type="checkBox" value="1">Delete
	</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">
		<tbody><tr>
			<td align="right">
				<input name="submit" value="Update Cart">
			</td>
		</tr>
		
			<input name="username" value="<%=username%>" type="hidden">
			<input name="password" value="<%=password%>" type="hidden">
		<tr><td>
			<input value="Checkout" type="submit">
		</td>
		</tr>
		
		<tr><td>
			<input value="Continue Shopping" type="submit">
		</td>
		</tr>
	</tbody></table></td>
	</tr></tbody>
	</table>
</form>

<% end if %>	
</center>

File: default.asp

<title>Welcome to the Apple Store</title>
<%
	'get current category
	cat = trim(Request("cat"))
	if cat="" then cat="Home"
	
	'Open the database connection
	set con = Server.CreateObject("ADODB.Connection")
	Con.Open "asp"
%>




	<center>
	<table border="0" cellpadding="0" cellspacing="0" width="800">
		<tbody><tr>
			<td>
				<img src="images/synthetic.png" mce_src="./images/synthetic.png">
			</td>
		</tr>
		<tr>
			<td align="right" nowrap="nowrap" valign="bottom">
				<a href="sessionCart.asp" mce_href="sessionCart.asp">Shopping Cart</a>
				<a href="account.asp" mce_href="account.asp">Account</a>
			</td>
		</tr>
		<tr>
			<td colspan="2"><hr width="800">
			</td>
		</tr>
	</tbody></table>
	
	<table border="0" cellpadding="0" cellspacing="0" width="800">
		<tbody><tr>
			<td valign="top">
				<table border="0" cellpadding="0" cellspacing="0">
				<tbody><tr>
					<td bgcolor="gray" valign="bottom">
						<img src="images/search.gif" mce_src="./images/search.gif" border="0" vspace="0">
					</td>
				</tr>
				<tr>
					<td>
						<table bgcolor="lightYellow" border="1" cellpadding="4" cellspacing="0" width="200">
							<tbody><tr>
								<td>
									<form method="post" action="search.asp">
										<input name="searchfor" size="15" type="text">
										<input value="Search" type="submit">
									</form>
								</td>
							</tr>
						</tbody></table>
					</td>					
				</tr>
				<tr>
					<td>
						 
					</td>
				</tr>
					<tr><td valign="bottom">
						<img src="Images/categories.gif" mce_src="./Images/categories.gif" border="0" vspace="0">
					</td>
				</tr>
					<tr><td>
						<table bgcolor="lightGrey" border="1" cellpadding="4" cellspacing="0" width="200">
							<tbody><tr>
								<td>
									<font size="3">
									<b>
										
									</b>
									</font>
								<br /></td>
							</tr>
						</tbody></table>
					</td>
				</tr>
			</tbody></table>
		</td>
		<td valign="top">
			<%If cat="Home" then%>
			<% else%>
				
			<%end if%>
		</td>
	</tr>
</tbody></table>
<hr width="800">
<a href="http://www.syntheticintel.com" mce_href="http://www.syntheticintel.com">www.5ynth3t1c1nt31.com</a>
</center><title>Welcome to the Apple Store</title>

File: product.asp

<%
'get the product id
dim productID
dim SqlString
dim cat
productID = Trim(request("pid"))

'Open the database connection
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "asp"

'Get the product information
sqlString = "select * from asp.dbo.products where product_id='" & productId & "'"

Set rs = Server.CreateObject("ADODB.RecordSet")
Rs.ActiveConnection =  con
rs.open SqlString

'get current category
cat = RS("category")
%>




	<center>
	<table border="0" cellpadding="0" cellspacing="0" width="800">
		<tbody><tr>
			<td>
				<img src="Images/synthetic.png" mce_src="./Images/synthetic.png">
			</td>
		</tr>
		<tr>
			<td align="right" nowrap="nowrap" valign="bottom">
				<a href="sessionCart.asp" mce_href="sessionCart.asp">Shopping Cart</a>
				<a href="account.asp" mce_href="account.asp">Account</a>
			</td>
		</tr>
		<tr>
			<td colspan="2"><hr width="800">
			</td>
		</tr>
	</tbody></table>
	
	<table border="0" cellpadding="10" cellspacing="5" width="800">
		<tbody><tr>
			<td valign="top">
				<table border="0" cellpadding="0" cellspacing="0">
				<tbody><tr>
					<td valign="bottom">
						<img src="images/search.gif" mce_src="./images/search.gif" alt="search" border="0" vspace="0">
					</td>
				</tr>
				<tr>
					<td>
						<table bgcolor="lightYellow" border="1" cellpadding="4" cellspacing="0" width="200">
							<tbody><tr>
								<td>
									<form method="post" action="search.asp">
										<input name="searchfor" size="15" type="text">
										<input value="Search" type="submit">
									</form>
								</td>
							</tr>
						</tbody></table>
					</td>					
				</tr>
				<tr>
					<td>
						 
					</td>
				</tr>
				<tr>
					<td valign="bottom">
						<img src="Images/categories.gif" mce_src="./Images/categories.gif" border="0" vspace="0">
					</td>
				</tr>
				<tr>
					<td>
						<table bgcolor="lightGrey" border="1" cellpadding="4" cellspacing="0" width="200">
							<tbody><tr>
								<td>
									<font size="3">
									<b>
										
									</b>
									</font>
								<br /></td>
							</tr>
						</tbody></table>
					</td>
				</tr>
			</tbody></table>
		</td>
		<td valign="top">
			<b><%=rs("name")%></b>
			<br />
			<img src="images/%3C%=rs%28" mce_src="./images/<%=rs(" picture="" )%="">" alt="<%=rs("name")%>">
			<hr align="left" width="100%">
			<h2>$<%=rs("price")%></h2>
			<form method="post" action="sessionCart.asp">
				<input name="pid" value="<%=rs(" product_id="" )%="" type="hidden">">
				<input value="<%=rs(" name="name" )%="" type="hidden">">
				<input name="price" value="<%=rs(" price="" )%="" type="hidden">">
				<input value="Add to cart" type="submit">
			</form>
			<br />
			<%=rs("briefDesc")%>
			<br />
			<%=rs("fullDesc")%>
			<hr>		
		</td>
	</tr>
</tbody></table>
<hr width="800">
<a href="http://www.syntheticintel.com" mce_href="http://www.syntheticintel.com">www.5ynth3t1c1nt31.com</a>
</center>

File: productList.asp

<%
set prodRS = Server.CreateObject("ADODB.RecordSet")
prodRS.ActiveConnection = con

sqlString = "select * from asp.dbo.products where category='" & cat & "'" & " and status=1"
prodRS.Open sqlString
%>

<table border="0" cellpadding="5" cellspacing="0" width="350">
<%
while not prodRS.EOF
%>
<tbody><tr>
	<td>
		<%if prodRS("picture") <> "?????" then%>
			<img src="images/%3C%=prodRS%28" mce_src="./images/<%=prodRS(" picture="" )%="">" hspace=4 vspace=4 border=0 alt="Product Name">
		<%end if%>
	</td>
	<td>
		<a href="product.asp?pid=%3C%=prodRS%28" mce_href="product.asp?pid=<%=prodRS(" product_id="" )%="">">
			<b>
				<%=prodRS("name")%>
			</b>
		</a>
		<br />
			<%=left(prodRS("briefDesc"),50)%>
		<br />
			<a href="product.asp?pid=%3C%=prodRS%28" mce_href="product.asp?pid=<%=prodRS(" product_id="" )%="">">
				Click here for more information
			</a>
	</td>
</tr>
<tr>
	<td colspan="2" align="center">
	 
	</td>
</tr>
<%
prodRS.moveNext
wend
%>
</tbody></table><title>Email Application</title><title>Session shopping cart example</title>

File: sendMail.asp

<%@ Language=VBScript %>
<%
Set mailObject = Server.CreateObject("CDONTS.NewMail")
rcptStr = "
 <script language='JavaScript' type='text/javascript'>
 <!--
 var prefix = 'ma' + 'il' + 'to';
 var path = 'hr' + 'ef' + '=';
 var addy24876 = 'syntheticintel' + '@';
 addy24876 = addy24876 + 'yahoo' + '.' + 'com';
 document.write( '<a ' + path + '\'' + prefix + ':' + addy24876 + '\'>' );
 document.write( addy24876 );
 document.write( '<\/a>' );
 //-->\n </script><script language='JavaScript' type='text/javascript'>
 <!--
 document.write( '<span style=\'display: none;\'>' );
 //-->
 </script>This e-mail address is being protected from spam bots, you need JavaScript enabled to view it
 <script language='JavaScript' type='text/javascript'>
 <!--
 document.write( '</' );
 document.write( 'span>' );
 //-->
 </script>"
mailObject.Send "
 <script language='JavaScript' type='text/javascript'>
 <!--
 var prefix = 'ma' + 'il' + 'to';
 var path = 'hr' + 'ef' + '=';
 var addy61930 = 'sameg14' + '@';
 addy61930 = addy61930 + 'gmail' + '.' + 'com';
 document.write( '<a ' + path + '\'' + prefix + ':' + addy61930 + '\'>' );
 document.write( addy61930 );
 document.write( '<\/a>' );
 //-->\n </script><script language='JavaScript' type='text/javascript'>
 <!--
 document.write( '<span style=\'display: none;\'>' );
 //-->
 </script>This e-mail address is being protected from spam bots, you need JavaScript enabled to view it
 <script language='JavaScript' type='text/javascript'>
 <!--
 document.write( '</' );
 document.write( 'span>' );
 //-->
 </script>", rcptStr,"Check it out","Here is some email for you"
Set mailObject = Nothing
%>




Sent mail to <%=rcptStr%>

File: sessionCart.asp

<%
'Define constants
CONST CARTPID = 0
CONST CARTPNAME = 1
CONST CARTPQUANTITY = 3

'Get the shopping cart.
if not isArray(session("cart")) then
	dim localCart(4,20)
else
	localCart = session("cart")
end if

'Get product information
productID = trim(request("pid"))
productName = trim(request("name"))
productPrice = trim(request("price"))

'Add item to the cart
if productID <> "" then
	foundIt = false
	for i = 0 to ubound(localCart)
		if localCart(cartPid,i) = productId then
			localCart(CARTPQUANTITY,i) = localCart(CARTPQUANTITY,i)+1
			foundIt = true
			exit for
		end if
	next
	if not foundIt then
		for i = 0 to ubound(localCart,2)
			if localCart(CARTPID,i) = "" then
				localCart(CARTPID,i) = productId
				localCart(CARTPNAME,i) = productName
				localCart(CARTPQUANTITY,i) = productQuantity
				exit for
			end if
		next
	end if
end if

'Update shopping cart quantities
if request("updateQ") <> "" then
	for i = 0 to ubound(localCart,2)
		newQ = trim(request("pq" & localCart(CARTPID,i)))
		deleteProduct = trim(request("pd" & localCart(CARTPID,i)))
		if newQ = "" or newQ = "0" or deleteProduct <> "" then
			localCart(CARTPID,i) = ""
		end if
		if isNumeric(newQ) then
			localCart(CARTPQUANTITY,i) = newQ
		end if
	next
end if

'Update Session variable with the array
Session("cart") = localCart
%>




<h1 color="green">Your shopping cart</h1>
<%
orderTotal = 0
%>
<form method="post" action="sessionCart.asp">
<input name="updateQ" value="1" type="hidden">
	<table bgcolor="lightYellow" border="1" cellpadding="4" cellspacing="0">
		<tbody><tr bgcolor="lightGreen">
			<th>Product</th>
			<th>Price</th>
			<th>Quantity</th>
		</tr>
<%
for i = 0 to ubound(localCart,2)
	if localCart(CARTPID, i) <> "" then
		orderTotal = orderTotal + (localCart(CARTPRICE,i)) * localCart(CARTPQUANTITY,i)
	
%>
<tr>
	<td>
		<%=Server.HTMLEncode(localCart(CARTPNAME,i))%>
	</td>
	<td>
		<%=formatCurrency(localCart(CARTPPRICE,i))%>
	</td>
	<td>
		<input name="pq<%=localCart(CARTPID,i)%>" size="4" value="<%=localCart(CARTPQUANTITY,i)%>" type="text">
		<input name="pd<%=localCart(CARTPID,i)%>" value="1" type="checkbox">Delete
	</td>
</tr>
<%
end if
next
%>
<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">
		<tbody><tr>
			<td>
				<input value="Update Cart" type="submit">
			</td>
			</tr>
			
			<tr><td>
				<input value="checkout" type="submit">
			</td>
			</tr>
			
			<tr><td>
				<input value="Continue Shopping" type="submit">
			</td>
			</tr>
		</tbody></table></td>
		</tr></tbody>
	</table>
</form>

Comments

Only registered users can write comments!

Last Updated ( Wednesday, 18 June 2008 )

[ Back ]