<%=name%>      קטגוריות

<% Response.buffer=True Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("bo/maindata.mdb")&";" select case request("action") case "" %> <% sel=request.querystring("sel") pro=request.querystring("pro") if sel="" then sel="0" Response.write "" else sel="" & Sel & "" Response.write " " end if Set rsa = Server.CreateObject("ADODB.Recordset") SQL ="select * from categoryes WHERE sel = false " SQL = SQL & " AND ID in (" & Sel & ")" SQL = SQL & " ORDER BY ID asc" rsa.Open SQL, Connect, 3,3 Do until rsa.EOF Catagory=rsa("Catagory") id=rsa("id") Sel=rsa("ncat") Ty=rsa("Ty") if Ty="p" then linkk="" else linkk="" end if %> <% rsa.movenext loop %> <% rsa.close set rsa=nothing end select %>
מוצרים :  <%= linkk%> <%= Catagory%> >  <%=pro%>