Prima del restyling funzionava tutto, ora non riesco più ad accedere alle pagine riservate.
Questi i dati inseriti:
Caratteristiche del db:
Login.mdb
Tabella: utenti
Campi: UserID e Password
- Il form è situato in pagina index non protetta *
[HTML]<td style="width: 265px;" class="style56">UserID:<br />
<input name="txtUserID" style="width: 190px;" type="UserID" /><br />
</td>
</tr>
<tr>
<td style="width: 265px;" class="style56">
Password:
<input name="txtPassword" maxlength="4" style="width: 187px;" type="Password" />
</td>
</tr>
<tr>
<td style="width: 265px;" class="style57">
input name="Submit" value="Invia" style="width: 91px;" type="submit" />
</td>
[/HTML]
Logon.asp
<%
Dim UserID
Dim Password
UserID = Replace(Request.Form("UserID"), "'", "''")
Password = Replace(Request.Form("Password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("login.mdb/utenti")&"";
Dim sql
sql = "SELECT ID FROM utenti WHERE UserID LIKE'" &UserID& "' AND Password='" &Password& "'"
Dim rs
Set rs = cn.Execute(sqlstmt, rowsupdated)
Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
Session("Autenticato") = "OK"
Response.Redirect("homapage.html")
else
Response.Redirect("login.html")
end if
%>
A questo punto dovrebbe aprirmi la pagina protetta :homepage.html
Invece risponde
Microsoft VBScript compilation error '800a0401'
Expected end of statement
/Login.asp, line 9
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& Server.MapPath("login.mdb/utenti")&"";
Dove ho sbagliato? Grazie per l?aiuto.