<% if request( "c1" ) <> "" then session( "cat1_id" ) = request( "c1" ) end if if request( "c2" ) <> "" then session( "cat2_id" ) = request( "c2" ) end if Dim dbs,rs dim VER_DB,MDB_NAME dim sql MDB_NAME = Server.MapPath("/admin/wada.mdb") VER_DB = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & MDB_NAME Set dbs = Server.CreateObject("ADODB.Connection") dbs.Open VER_DB Set rs = Server.CreateObject("ADODB.RecordSet") sql = "select –¼�Ì FROM ƒJƒeƒSƒŠ‚P where ID=" & session("cat1_id") rs.open sql, dbs, 3, 3 if rs.eof = false then cat1_name = rs.Fields("–¼�Ì") end if rs.close Set rs = Server.CreateObject("ADODB.RecordSet") sql = "select –¼�Ì FROM ƒJƒeƒSƒŠ‚Q where ƒJƒeƒSƒŠ‚PID=" & session("cat1_id") & " and ID=" & session("cat2_id") rs.open sql, dbs, 3, 3 if rs.eof = false then cat2_name = rs.Fields("–¼�Ì") end if rs.close %>
<%=cat1_name%> <%=cat2_name%>
¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥

<% Set rs = Server.CreateObject("ADODB.RecordSet") sql = "select * FROM ƒŒƒVƒsƒ}ƒXƒ^�[ where •\Ž¦=1 and ƒJƒeƒSƒŠ‚P=" & session("cat1_id") & " and ƒJƒeƒSƒŠ‚Q=" & session("cat2_id") & " order by ƒŒƒVƒsNo desc" rs.open sql, dbs, 3, 3 do while rs.eof = false r_number = rs.Fields("ƒŒƒVƒsNo") r_name = rs.Fields("—¿—�–¼") response.write "" & r_name & "" & vbcrlf response.write "

" & vbcrlf rs.movenext loop rs.close %>



  –ß‚é

<% dbs.close %>