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

<%=ucase(catname)%>

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