<%@ Language=VBScript %> <% If Request("CatID") = "" Or Not IsNumeric(Request("CatID")) Then Response.Redirect("/") End If %> <% 'Initialize the recordset 'Set oRS_catname = Server.CreateObject("ADODB.RecordSet") 'Filter the record set 'SQL_catname ="SELECT CategoryDescription FROM Category WHERE CategoryID='" & Request("Cat") & "'" 'Open the recordset 'oRS_catname.Open SQL_catname, oConn 'Do until oRS_catname.eof ' catname = ors_catname(0) ' oRS_catname.MoveNext 'loop 'oRS_catname.Close 'set oRS_catname = nothing 'If Request.QueryString("CatID") = "" Or Not IsNumeric(Request.QueryString("CatID")) Then ' Response.Redirect("/") 'End If %> Wesleys
  

<% 'Kill the Database connection ' oConn.Close ' set oConn = nothing %>