%@ Language=VBscript%>
<% dim conn , rsdb Set conn = Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/mdb-database/commenti.mdb") dim sqlquery codice = Request.Querystring("nomefile") sqlquery="Select * from Rubriche where " sqlquery= sqlquery & "rubrica = '" & codice & "'" sqlquery=sqlquery & " order by id" Set rsdb = Server.CreateObject("ADODB.Recordset") rsdb.Open sqlquery, conn, 3, 3 %>
|