<%
SQL= "Select * FROM Products where Category = " & request.querystring("cat")& " ORDER BY Prodname"
SQL1= "Select Category from Categories where ID = " & request.querystring("cat")
'Set Rs=DataConn1.Execute(SQL)
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DSN=frandan"
Set RS = Server.CreateObject("ADODB.Recordset")
Set RS1 = Server.CreateObject("ADODB.Recordset")
'SQL = "SELECT * FROM Products where ID ="
RS.Open SQL, Conn
RS1.Open SQL1, Conn
SQL9="Select * FROM Categories"
Set Rs2=Conn.Execute(SQL9)
%>
FRAN-DAN BOLT and SCREW - PRODUCTS
<%=ucase(rs1("Category"))%>
<%
do until rs.eof
%>
<%
For I = 2 To RS.Fields.Count -1
if rs.fields(i).value <> "" then
fldname=rs.fields(i).name
a = instr(fldname, "_")
if a then
fldname = left(fldname,a-1) & " " & right(fldname,a+1)
end if
'response.write fldname
if i=2 then
response.write "
