Pagina di login

[Darkstahl]

Signori sapete dirmi perché non funziona?

grazie

l'output finale è una pagina vuota.

<%
Response.Write("<center>[img]img/chiudi.gif[/img]</center>")
dim conn
dim rs
User=Request.Form("username")
Pwd=Request.Form("pass")
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DBQ=" & Server.MapPath("users.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM tblUsers WHERE UserID='&User&'"
rs.Open SQL,conn
do while not rs.EOF
if (User="Admin") then
If (rs.Fields("Password")=pwd) then
Response.Redirect("Admin.asp")
Else Response.Redirect ("unauthorised_user_page.htm")
End If
ElseIf (User="longo") then
If (rs.Fields("Password")=pwd) then
Response.Redirect("Admin_longo.asp")
Else Response.Redirect ("unauthorised_user_page.htm")
End if
End if
rs.MoveNext
loop
rs.Close
Set rs=nothing
conn.Close
Set conn=nothing
%>

Grazie.

[Sypher]

credo che la query non trova risultati quindi non fa alcuna redirect

[Roby_72]

Non è che cpisco motlo questo script...
E poi questa query è errata:

SQL = "SELECT * FROM tblUsers WHERE UserID='&User&'"

Roby

[Edipo]

non so se il test tra un oggetto recordset e una variabile è corretto, prova a passare il valore prima in una variabile di comodo poi effettua il confronto..

[Sypher]

<%
Response.Write("<center>[img]img/chiudi.gif[/img]</center>")
dim conn
dim rs
User=Request.Form("username")
Pwd=Request.Form("pass")
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DBQ=" & Server.MapPath("users.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM tblUsers WHERE UserID='" & User & "'" 
rs.Open SQL,conn
do while not rs.EOF
	if (User="Admin") then
		If (rs.Fields("Password")=pwd) then 
			Response.Redirect("Admin.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End If
	ElseIf (User="longo") then
		If (rs.Fields("Password")=pwd) then 
			Response.Redirect("Admin_longo.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End if
	End if
	rs.MoveNext
loop
rs.Close
Set rs=nothing
conn.Close
Set conn=nothing
%>

[Darkstahl]

ok, è errata e quindi come dovrei correggerla?

grazie...


X sypher: nel db ci sono le corrispondenze.

grazie...

[Darkstahl]

provo subito e apporto la correzione

grazie.

[Darkstahl]

allora ho fatto le modifiche ma il risultato non cambia...

[CODE]
<%
Response.Write("<center>[img]img/chiudi.gif[/img]</center>")
dim conn
dim rs
User=Request.Form("username")
Pwd=Request.Form("pass")
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DBQ=" & Server.MapPath("users.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM tblUsers WHERE UserID='"&User&"'"
rs.Open SQL,conn
do while not rs.EOF
Check_pwd=rs.Fields("Password")
if (User="Admin") then
If (Check_pwd=pwd) then
Response.Redirect("Admin.asp")
Else Response.Redirect ("unauthorised_user_page.htm")
End If
ElseIf (User="longo") then
If (check_pwd=pwd) then
Response.Redirect("Admin_longo.asp")
Else Response.Redirect ("unauthorised_user_page.htm")
End if
End if
rs.MoveNext
loop
rs.Close
Set rs=nothing
conn.Close
Set conn=nothing
%>

[Sypher]

fa na bella response va!

<%
Response.Write("<center>[img]img/chiudi.gif[/img]</center>")
dim conn
dim rs
User=Request.Form("username")
Pwd=Request.Form("pass")
Response.Write "User=" & User & "
"
Response.Write "password=" & pwd
Response.End 
set conn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
conn.Open "DBQ=" & Server.MapPath("users.mdb") & ";DRIVER={Microsoft Access Driver (*.mdb)};"
SQL = "SELECT * FROM tblUsers WHERE UserID='"&User&"'"

rs.Open SQL,conn
do while not rs.EOF
	Check_pwd=rs.Fields("Password")
	if (User="Admin") then
		If (Check_pwd=pwd) then 
			Response.Redirect("Admin.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End If
	ElseIf (User="longo") then
		If (check_pwd=pwd) then 
			Response.Redirect("Admin_longo.asp")
		Else Response.Redirect ("unauthorised_user_page.htm")
		End if
	End if
	rs.MoveNext
loop
rs.Close
Set rs=nothing
conn.Close
Set conn=nothing
%>

[Darkstahl]

i parametri arrivano correttamente...

forse non stanno fatte bene le If then else... ?