Scusami tanto, ammetto che dovrei avere più pazienza e insistere di più, ma non vorrei sapere dov'é il mio errore prima di sbattere la testa contro il muro più e più volte. Mi da questo errore:
Select id, login, password FROM tbl_login WHERE login ='ciccio' AND password = 'cicci'
Microsoft OLE DB Provider for ODBC Drivers error '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
/pannello/login.asp, line 33
Ho messo il global.asa nella cartella principale del sito:
<script LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
set conn = Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.Open(server.mappath("../mdb-database/archivio.mdb"))
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
Session("login") = False
End Sub
Sub Session_OnEnd
End Sub
</script>
e il file login.asp dentro la cartella "pannello":
<%
Option Explicit
'--------------------------------------------------------
'Purpose: Login
'Date: 07 April 2001
'Commenti:
'--------------------------------------------------------
Response.Buffer = True
Dim objConn, strConn, objRs, strsql
Dim submitted, login, password
%>
<html>
<head>
<title>Login</title>
</head>
<body bgcolor=powderblue>
<%
submitted = Request.Querystring("submitted")
If submitted then
strConn = Application("dbconn")
login = Request.Form("login")
password = Request.Form("password")
strsql = "Select id, login, password FROM tbl_login "
strsql = strsql & "WHERE login ='" & login & "' AND password = '" & password & "'"
response.write strsql & "<br>"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open strConn
set objRs = objConn.Execute(strsql)
If objRs.EOF then
'Non e' valido, mandalo indietro
response.redirect "Login.asp"
Else
'e' valido, fallo entrare
session("login") = True
objRs.close
Set objRs = Nothing
response.redirect "pannello.htm"
end if
else
'show the form
%>
hello
<div align="center">
<form action="login.asp?submitted=true" method="post">
<table align="center" cellspacing="0" cellpadding="5" border="1" bordercolor="midnightblue" bgcolor="ivory" width="400">
<tr>
<th><font color=firebrick size=+2><b>Solo chi voglio io!</b></font></th>
</tr>
<tr>
<td align="center" bgcolor="azure">
<%
if session("login") and Submitted then
response.redirect "login.asp"
else
response.write "<br><br> Per favore, entra login/password. <br><br>"
end if
%>
<table>
<tr>
<td class=event>Login:</td>
<td><input type="text" name="Login" size="10" maxlength="30"></td>
</tr>
<tr>
<td class=event>Password:</td>
<td><input type="password" name="Password" size="10" maxlength="12"></td>
</tr>
</table>
<br>
<input type="submit" value="Submit">
<input type="reset" value="Cancel" Onclick="Javascript:history.go(-1)">
</td>
</tr>
</table>
</form>
</div>
</body>
</html>
<%
end if
Response.end
Response.Clear
%>
COSA SBAGLIO?????? Grazie!!!!!
