Ciao a tutti,
ho scritto il seguente codice che funziona bene:

codice:
Dim DbConnExcel, rsExcel, objFileExcel, InStream
strConnExcel="DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath ("/mdb-database/Utenti.xls") & ";DefaultDir=" & Server.MapPath(".") & ";DriverId=790; FIL=MS Excel; MaxBufferSize=512; PageTimeout=5"




set rsExcel=server.createobject("adodb.recordset")
rsExcel.activeconnection=strConnExcel


sqlString="SELECT * FROM [elenco_utenti$]"
rsExcel.open sqlString


while not rsExcel.EOF
    
    if Email = rsExcel(3) then
        GiaCliente = "si"
        InviareEmail = "no"
    end if
    rsExcel.MoveNext
wend
rsExcel.close


set rsExcel=Nothing
set strConnExcel=Nothing

ora considerando che nella prima riga ho le intestazioni delle colonne vorrei sostituire la query con

codice:
sqlString="SELECT * FROM [elenco_utenti$] WHERE email = 'test@test.it'"
Purtroppo in questo caso non funziona.
Potete aiutarmi?
Grazie in anticipo.