CMPSALES.ASP
<html>
<head><title>Chet's Computer Stop</title><head>
<body background="Cldshalf.jpg" BGCOLOR=ffffcc TEXT="#000000">
<h1>Chet's Computer Stop</h1>
<form method=post action="cmpprice.asp">
<%
set compsales = server.createobject("adodb.connection")
compsales.open "compsales", "admin", ""
vQueries = Array("CPUs", "Memory", "HardDrives", "Monitors", "VideoBoards", "CDROMs", "SoundCards", "Printers", "Modems")
%>
<center>
<table width=100% border=0>
<%
set rs = server.createobject("adodb.recordset")
for i = 0 to UBound(vQueries)
rs.open "select * from " & vQueries(i), compsales, 1
response.write("<tr>")
value = rs(0)
response.write("<td>")
response.write(value)
response.write("</td>")
response.write("<td>")
response.write("<select name=""" & vQueries(i) & """>")
while not rs.eof
value = rs(0)
response.write("<option value = """)
response.write(value)
response.write(""" >")
response.write(value)
response.write("</option>")
rs.movenext
wend
response.write("</select>")
response.write("</td>")
response.write("</tr>")
rs.close
next
%>
</table>
</center>
<p><input type=submit value="Price Your System"><input type=reset value="Reset Selections">
</form>
<hr size=4>
<font face="MS SANS SERIF" size=1>
The data mentioned herein is totally fictitious and is in no way intended to represent any
real data, unless otherwise noted.
<p>
<img src="ie_anim.gif" width="88" height="31" align=right alt="ie">
</font>
</body>
</html>