<%@ LANGUAGE="VBSCRIPT" %> <% Dim recordSet,recordSet1,conn,id,name,desc,lDesc,price,msrp,title,gotone,strsql1,strsql2 Set conn = Server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("indreshdatabase.mdb") & ";" recordSet = Server.CreateObject("ADODB.RecordSet") recordSet1 = Server.CreateObject("ADODB.RecordSet") 'database = Server.CreateObject("ADODB.Connection") 'database.Open("asp_database","asp_dev","") id = Request.QueryString("id") 'Response.Write(id) if((""+id) = "undefined") Then id = null else if (id <> "")AND ((""+id) <> "") Then strsql1="select * from products where prod_id = '"& Request("id") & "';" 'Response.Write(strsql1) set recordSet = conn.Execute(strsql1) name = recordSet("pname") ' Response.Write(name) desc = recordSet("description") msrp = recordSet("originalprice") price = recordSet("disprice") title = name else title = "No Product Selected." name = "" desc = "" price = "" msrp = "" End if End if %> Inspect Product
Logout
<% Response.Write("") Response.Write(title) Response.Write("") %>  

Name

 <% Response.Write("") Response.Write(name) Response.Write("") %>  

Description

 <% Response.Write("") Response.Write(desc) Response.Write("") %>  

MSRP

 <% Response.Write("") Response.Write(msrp) Response.Write("") %>  

Current Price

 <% Response.Write("") Response.Write(price) Response.Write("") %>  

Categories

 <% gotone = false ' recordSet.Close strsql2="select * from cat_table where prodid='"&Request("id")&"';" Set recordSet1 = conn.Execute(strsql2) while(Not recordSet1.EOF) ' { if(gotone)Then Response.Write(",") Response.Write(recordSet1("catname")) gotone=true recordSet1.MoveNext() End if Wend ' } %>  
<% 'recordSet.Close() %>