%@ LANGUAGE="VBSCRIPT" %> <% Dim category,submit,recordSet,prodSet,database,sql,title recordSet = Server.CreateObject("ADODB.RecordSet") prodSet = Server.CreateObject("ADODB.RecordSet") Set conn = Server.CreateObject ("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("indreshdatabase.mdb") & ";" category = Request.QueryString("cat_name") if((""+category) = "undefined") Then category = null end if if(category <> null)Then title = "Products in "+category else title = "Choose a Category" end if %>
<%
Response.Write(" ") Response.Write(title) Response.Write(" ") %> |
") end if prodSet.Close() recordSet.MoveNext() wend recordSet.Close() Response.Write(" ") recordSet.MoveNext() Wend recordSet.Close() end if %> |