codice:
<%
categoria = request.querystring("categoria")
categoria2 = request.querystring("categoria2")
if categoria="" and categoria2="" then
str_categoria="TUTTI"
else
str_categoria=categoria &","& categoria2
end if
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("../mdb-database/db.mdb")
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = ""
strSQL = strSQL &"select * from ARTICOLI WHERE listpublic=-1"
if str_cat<>"TUTTI" then
strSQL = strSQL &" AND categoria LIKE '"& str_categoria &"'"
end if
strSQL = strSQL &" ORDER BY ID DESC"
rs.Open strSQL,conn
Do while NOT RS.EOF
...
...
%>
Roby