%@ 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
%>