Malfunzionamento controllo utente/password

[thevicio]

Ciao a tutti
Non riesco a venire a capo di un problema con la parte che riguarda il controllo dell'esistenza di utente e password all'interno dell' mdb.
Con questo codice mi torna sempre a video che utente ed email già esistono anche se in realtà non è così.Come si potrebbe risolvere?
Grazie ciauz



<%
Session("html_reg") = Request.Form("html_reg")
Dim rs, sql, isUser, isEmail

sql = "SELECT * FROM users WHERE username='" & Session("ui_r_user") & "'"
set rs = Conn.Execute(sql)
isUser = not rs.EOF
rs.Close
set rs = nothing

sql = "SELECT * FROM users WHERE email='" & Session("ui_r_email") & "'"
set rs = Conn.Execute(sql)
isEmail = not rs.EOF
rs.Close
set rs = nothing

if isUser or isEmail then
' @@@@@@@@@ user present in database @@@@@@@@@
dim er
er = ""
if isUser then er = er & "
User gi&agrave; presente" end if
if isEmail then er = er & "
Email gi&agrave; presente" end if
%><p style="font:bold 18px Tahoma;"><a style="text-decoration:underline;">Registrazione</a></p><a style="font:normal 11px Tahoma;"><%=er%></a>

<input type="button" value="Indietro" onclick="javascript:history.back();"><%

else
' @@@@@@@@@ user NOT present in database @@@@@@@@@
sql = "INSERT INTO users(ditta, contatto, indirizzo, cap, localita, provincia, nazione, piva, cf, telefono, fax, cell_pre, cell_op, cell, email, username, pass) VALUES('"&Session("ui_r_ditta")&"', '"&Session("ui_r_contatto")&"', '"&Session("ui_r_indirizzo")&"', '"&Session("ui_r_n_CAP")&"', '"&Session("ui_r_localita")&"', '"&Session("ui_r_provincia")&"', '"&Session("ui_r_nazione")&"', '"&Session("ui_piva")&"', '"&Session("ui_cf")&"', '"&Session("ui_r_n_telefono")&"', '"&Session("ui_fax")&"', '"&Session("ui_cell_pre")&"', '"&Session("ui_cell_op")&"', '"&Session("ui_cell")&"', '"&Session("ui_r_email")&"', '"&Session("ui_r_user")&"', '"&Session("ui_r_pass")&"')"
Conn.Execute(sql)

dim Mail, sch, cdoConfig

sch = "http://schemas.microsoft.com/cdo/configuration/"

Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = smtpserver
.Item(sch & "sendusername") = mailauthuser
.Item(sch & "sendpassword") = mailauthpass
.Update
End With

set Mail = Server.CreateObject("CDO.Message")
Mail.Configuration = cdoConfig
Mail.From = mailfrom
Mail.To = mailto
Mail.Subject = "Nuovo utente registrato"
Mail.HTMLBody = Session("html_reg")
Mail.Send
set Mail = Nothing

set Mail = Server.CreateObject("CDO.Message")
Mail.Configuration = cdoConfig
Mail.From = mailfrom
Mail.To = Session("ui_r_email")
Mail.Subject = "Registrazione"
Mail.HTMLBody = "<b style='font:bold 16px Tahoma'>Conferma registrazione[/b]
<hr>" & Session("html_reg") & "
<hr>
<a style='font:normal 11px Tahoma;'>La registrazione ha avuto esito positivo, da ora pu&ograve; accedere nella </a>sezione personale<a style='font:normal 11px Tahoma;'> per visualizzare lo stato dei propri ordini e farne degli altri.

Grazie e Buona Giornata</a>"
Mail.Send
set Mail = Nothing

%><p style="font:bold 18px Tahoma;"><a style="text-decoration:underline;">Registrazione</a></p><a style="font:normal 11px Tahoma;">La registrazione ha avuto esito positivo, da ora pu&ograve; accedere nella </a>sezione personale<a style="font:normal 11px Tahoma;"> per visualizzare lo stato dei propri ordini e farne degli altri.

Grazie e Buona Giornata</a><%

end if

%>

[Grambo]

controlla che le session siano valorizzate