<%
Dim ObjConn
Set ObjConn = Server.CreateObject("ADODB.Connection")
With ObjConn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.Properties("Data Source") = Server.MapPath("db2.mdb")
End with
objConn.Open
if Request.Form("B1") = "Invia" then
Dim obj
Set obj = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM atomo WHERE dataiinserimento = '" & Request.Form("D4") & "' AND tipoinformazione = '" & Request.Form("D1") & "' AND areaappartenenza = '" & Request.Form("D2") & "' AND titolo LIKE '%" & Request.Form("T1") & "%'"
Set obj = ObjConn.Execute(SQL)
WHILE not obj.EOF
Response.Write ("" & obj("informazione") & "")
obj.MoveNext
WEND
obj.Close
Response.End
end if
%>
4
244
<%
ObjConn.Close
Set ObjConn = Nothing
%>