Thank you to anyone who has already donated - your generous donations helped make three months of treatment possible.

My brother Nate continues to fight stage IV Hodgkin's lymphoma. He's just 31, with a wife and baby girl. They have no active income (since he's been unable to return to work), no insurance, and cannot afford the treatment he needs. Nate and his family need your help. Please consider a donation, every dollar helps. Thanks.

Read Nate's story Support Nate by buying an official Pastie t-shirt Hide this message

Document@2x
|
Chain_link@2x
|
Arrow_down@2x
|
Spiral_paper@2x
A A A

Plain text       Report abuse 

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>