<%
dim catid,aid
dim sql
catid=request.querystring("catid")
aid=request.querystring("aid")
'id = MyRequest("id",1)
set rs = Server.CreateObject("adodb.recordset")
if aid<>"" then
sql = "select * from product where ID="& aid
else
sql = "select * from product where categoryid=90"
end if
'Response.Write(sql)
rs.Open sql,conn,1,1
if rs.eof then
Response.End()
else
end if
%>
ビヨンド・エルエスアイ
