ALT!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


Scusate, ho scritto una grandissima c****...

L'errore è il seguente:
Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01F4)
Variabile non definita: 'ObjConn'

La riga in questione è sempre:

codice:
SUBOpenConn

Dim ObjRS, StrSql
	Set ObjRS = Server.CreateObject("ADODB.Recordset") 
	StrSql = "SELECT * FROM MailsAlberghi WHERE Mail = '"&Mail&"'"
	ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText 
	If Not ObjRS.EOF Then
           .........

e la sub è:

Sub SUBOpenConn
Dim ObjConn
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" &_
" DBQ=C:\Inetpub\wwwroot\form\MailsAlbergh
i.mdb;"
End Sub