Scusate che ci trovate di strano?:
codice:
strconn="Driver={Microsoft Access Driver (*.mdb)}; dbq="&Server.MapPath("net.mdb")
set Conn=Server.CreateObject("ADODB.Connection")
Conn.open strconn
Squery="SELECT * FROM notifica where password='"&passp&"' and user='"&utentegal&"'"
set rs=server.createobject("adodb.recordset")
rs.open Squery,Conn
if not rs.eof then
session("utentegal")=Request.Form("utentegal")
session("mette")=rs("log")
session("associa")=rs("ass")
session("farm")=rs("fa")
session("reparto")=rs("pre")
session("unity")=rs("unity")
session("xcucina")=rs("xcuc")
'prova del 30--07-2004
Session("utente") = lcase(trim(Request.form("Utentegal"))) 
if InStr(1, Application("Users"), Session("utente") & "|" ) = 0 then
Application.Lock
Application("Users") = Application("Users") & Session("utente") & "|"
Application.UnLock
end if 

Sintra="Insert into statistiche (utente) values ( '"&utentegal"')"
OBJconn.execute(sintra) 
Response.Redirect ("guida.asp")
Else
Response.Redirect ("riprova.htm")
End If
Set rs=Nothing
conn.close
set.Conn=Nothing
Mi dice prevista fine istruzione.......