ciao ho scritto questa pagina pee effettuare il loggin, ma non mi funziona, dice impossibile visualizzare la pagina...perxhè?
<%
Dim nick
Dim password
nick = Request.Form("nick")
password = Request.Form("password")
Set Connessione = Server.CreateObject("ADODB.Connection")
Set comm = Server.CreateObject("ADODB.Command")
Set Ris = Server.CreateObject("ADODB.Recordset")
strConn = "driver=Mysql ODBC 3.51 Driver;server=;uid=;pwd=;database="
Connessione.Open strConn
comm.ActiveConnection = Connessione
comm.CommandType = 1
comm.CommandText = "SELECT * from utenti WHERE nick = '" & nick & "' LIMIT 1"
Ris.Open comm,,1,1
Dim pass
Dim attivato
Dim auth
pass = Ris("password")
attivato = Ris("attivato")
auth = Ris("auth")
if StrComp(password, pass) = 0 and StrComp(attivato , "true") = 0 then
session("autenticato") = "true"
session("nick") = nick
session("auth") = auth
response.Redirect("lmn452.asp")
else
response.Redirect("private2.asp?error=true")
end if
%>
se tolgo il blocco dell' if allora visualizza la pagina ma naturalmente non funziona...
Mi sapete aiutare?

Rispondi quotando
