<%@ Language=VBScript %> <% '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 %> Wesleys
  

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