aiutatemi a loggarmi

[David_pop]

Sto cercando di far funzionare una pagina di login, ma una volta inviati "username" e "password", mi da errore: Impossibile visualizzare la pagina..

Nella LOGIN_CLUB.ASP
invio i dati tramite: <form action="enter_club.asp" method=POST>

Nella ENTER_CLUB.ASP
ho questo codice:
<%@Language=VBscript%>
<%
username = request.form("username")
password = request.form("password")
dim cn
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};PWD=..;DBQ=" & server.MapPath("/mdb-database/DB.mdb")

sql = "select * from Club "&_
"where username = '"&username&"'"&" and Password = '"&password&"'"
rs.Open sql, cn, 1
found = rs.recordcount
rs.close
cn.Close
set rs = Nothing
set cn = Nothing

if found = 1 then
if username="webmaster" and password="x1" then
Session("rb_accesso") = True
response.redirect "http://www.club.it/home.htm?username="&username
end if
else
response.redirect "login_club.asp?error=1"
end if

%>

[Roby_72]

<%@Language=VBscript%>
<%
username = trim(request.form("username"))
username = replace(username, "'", "''")
password = trim(request.form("password"))
password = replace(password, "'", "''") 
dim cn 
dim rs 
set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection") 
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};PWD=..;DBQ=" & server.MapPath("/mdb-database/DB.mdb") 

found = false 
sql = "select * from Club "&_
"where username = '"&username&"' and [Password] = '"&password&"'"
rs.Open sql, cn, 1
if not rs.eof then
found = true
end if 
rs.close
cn.Close
set rs = Nothing
set cn = Nothing 

if found then
Session("rb_accesso") = True
response.redirect "http://www.club.it/home.htm?username="&username
else
response.redirect "login_club.asp?error=1"
end if 
%>

Roby

[David_pop]

Niente ancora, sempre lo stesso errore..
??

[Roby_72]

Menu strumenti --> opzioni internet --> avanzate di Internet Explorer e disabilita la voce "Mostra messaggi di errore HTTP brevi".

Fai ripartire la pagina, guarda l'errore e postalo qui!

Roby

[David_pop]

da questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

enter_club.asp, line 19

end if
^

[Roby_72]

Hai fatto copia/incolla di quello che ho scritto io???

Roby

[David_pop]

certo ho copiato tutte le parti in neretto..

[optime]

posta il codice attuale

[David_pop]

<%@Language=VBscript%>
<%
username = trim(request.form("username"))
username = replace(username, "'", "''")
password = trim(request.form("password"))
password = replace(password, "'", "''")
dim cn
dim rs
set rs = Server.CreateObject("ADODB.Recordset")
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};PWD=xx;DBQ=" & server.MapPath("/mdb-database/DB.mdb")

found = false
sql = "select * from Club "&_
"where username = '"&username&"' and [Password] = '"&password&"'"
rs.Open sql, cn, 1
found = rs.recordcount
found = true
end if
rs.close
cn.Close
set rs = Nothing
set cn = Nothing

if found then
if username="webmaster" and password="jes999" then
Session("rb_accesso") = True
response.redirect "http://www.club.it/home.htm?username="&username
end if
else
response.redirect "login_club.asp?error=1"
end if

%>

[optime]

c'è un if non chiuso.
1. impara a indentare bene il codice
2. usa [CODE] quando posti il codice