<% response.write "

" 'response.write "" 'response.write renderTitle 'response.write "" 'if Session("userLoggedIn")<> "true" then ' response.write renderErrorMsg("


You are not authorised to access this page") 'else 'response.write "Logged in Customer Name :" & Session("userName") & "


" %> <% response.write "Please select a Product Catageory

" if Session("userCon").state=1 then ' i.e., open then Session("userCon").close end if sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("data\dbClassic.mdb") & ";" Session("userCon").Open(sConnString),,"RAMESH" set catRs=Server.CreateObject("ADODB.Recordset") catRs.open "select * from tblCat",Session("userCon"),3,3 if catRs.recordcount<1 then response.write renderErrormsg("no Product category found") else response.write "" do while not catRs.eof response.write "

" & catRs("catName") & " " catRs.movenext loop response.write "

" end if 'end if catRs.close set catRs=nothing %>

<% if ( lcase(Session("userLoggedIn")) = "true" ) then %> Sign Out | <% else %> Sign In | <% end if %> Need Help Shopping?