<%@ 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 %> Browse Categories
<% Response.Write("

") Response.Write(title) Response.Write("

") %>
<% conn.Close() %>