|
<%
dim rs
set rs = Server.CreateObject("Adodb.RecordSet")
rs.open "categoryTable",conn
rs.Filter = "itemtypeId = " & request("cat")
if not rs.eof then
response.Write("Category Name: ")
response.Write(rs("itemTypeName"))
response.Write(" ")
response.Write("Description: ")
response.Write(rs("description"))
response.Write(" ")
end if
'response.Write(sqlstr)
%>
|
" border="1">
<%rs.close%>
|
| | |