<%
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
%>
<%= linkk%> <%= Catagory%> > |
<%
rsa.movenext
loop
%>
<%
rsa.close
set rsa=nothing
end select
%>
<%=pro%> |
|
<%=name%>
אודותינו