script che non esegue

[techno]

Ho questo script:

Dim errore
errore= false
Set connREG= Server.CreateObject("ADODB.Connection")
connREG.Open "Driver={Microsoft Access Driver (*.mdb)};pwd=****;dbq="&strMDBMAG
Set recREG= Server.CreateObject("ADODB.Recordset")
recREG.Open ("Select * From registrati Where Nickname='"&session("NKM")&"' And Password='"&session("PSW")&"'"),connREG,1,1

if recREG.fields("Attivato")="" Then
errore= true
Response.Write "Non attivo"
end if

if recREG.fields("Attivato")="OK" And recREG.fields("Pagato")="" Then
errore= true
Response.Write "Non pagato"
end i


If errore= false then
response.redirect ("enter.asp")
end if

Non mi legge i campi in rosso quindi non esegue le condizioni e mi rendirizza alla pagina enter.asp

non capisco il xchè

[agenti]

recREG.fields("Attivato")ù

è un campo di testo o un campo vero - falso ?

[KOLOSSEO]

...e se fosse un problema di valori NULL?

Cioè, dal basso della mia poca esperienza, so che c'è differenza tra "" (stringa vuota) e NULL.

Non so, magari invece di chiederti soltanto se i campi "attivato" e "pagato" sono stringhe vuote, prova a chiederti se sono NULL.

Una "porcheria" che io uso fare in questi casi è questa (stiamo sempre parlando di campi TEXT):

if trim(recREG.fields("Attivato") & "") = "" Then
errore= true
Response.Write "Non attivo"
end if

if (trim(recREG.fields("Attivato") & "") = "OK") And (trim(recREG.fields("Pagato") & "") = "") Then
errore= true
Response.Write "Non pagato"
end if

Non so, al limite prova...se non funziona, pazienza...forse non ho capito bene il problema e altri più ferrati di me ti indicheranno qualcosa di più attinente.

Ciao e buon anno.

Maurizio.

[Lak3d]

sei certo che la query venga eseguita correttamente? Trova qualcosa? Hai usato un pò di Response.Write/Response.End per verificare come si arricchiscono le variabili, cosa fa e cosa non fa il codice?