<%
dim sortsid,i,strsql,strcat,strsorts,catid
catid = KillBad(trim(request.QueryString("aid")))
sortsid=KillBad(trim(request.querystring("nid")))
if catid="" then
response.Redirect "procat.asp"
response.end
end if
if sortsid="" then
response.Redirect "cat.asp?catid=27"
response.end
end if
set rs = server.CreateObject("adodb.recordset")
rs.open "select category from category where categoryid="&catid&" ",conn,1,1
strcat = rs("category")
rs.close
if sortsid<>"" then
rs.open "select sorts from sorts where sortsid="&sortsid&" ",conn,1,1
strsorts = rs("sorts")
rs.close
end if
%>
