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