1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
<%@ language="VBSCRIPT" %>
<% Option Explicit %>
<%
dim query,displayItems,objConn,objRS

<!--#include FILE=dbcano.inc-->
query = "SELECT * FROM products WHERE c_id = '1'"

Set objConn = ConnectDB()
Set objRS   = objConn.Execute(query)

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" type="text/css" href="../common/patti.css" />

<title>Trinkets Page</title>

</head>

<body>

<img src="../images/logo.jpg" alt="" border="0" />
<img src="../images/patti.jpg" alt="" border="0" />

<!--#include file="leftNav.asp"-->

      <table width="50%" cellspacing="20">
      
      <%
	  While Not objRS.EOF
	  
	  displayItems = "<tr><td><a href='#'><img src='../images/"& objRS.Fields("p_image") &"' alt='"& objRS.Fields("p_name") &"' border='0' align='left' hspace='10' /></a><div class='item_name'>"& objRS.Fields("p_name") &" $"& objRS.Fields("p_price") &"</div>Product #"& objRS.Fields("p_id") &"<br />"& objRS.Fields("p_description") &"<form name='order0'>Quantity:<input name='qty0' size='1' value='1' maxlength='1' /><input type='button' value='Add to Cart' /></form>_________________________________________________</td></tr>"
		Response.Write displayItems
		objRS.MoveNext
		
		Wend
		
		'cleaning
		objRS.Close
		Set objRS = Nothing
		objConn.Close
		Set objConn = Nothing
	  
	  %>
     
      </table>

</div>
</body>
</html>