ciao a tutti..
io ho messo in una pagina asp una form con degli input che si collegano ad un db e se il login e la password sn corretti la pagina si visualizza..
il problema è far visualizzare altre pagine agli utenti senza dover loggare di nuovo..
in alto a queste pagine ho messo questo codice
.....e il codice del file protect.asp è questo
<%
'Specifico la URL della pagina di Login
Dim LoginPage
LoginPage = "http://localhost/drs/login.asp"
'Creo le variabili User e Pass
'recuperando il valore della session corrispondente
Dim LoginU, LoginP
LoginU = Session("User")
LoginP = Session("Pass")
'Se le variabili sono vuote...
'rimando alla pagina di login
if LoginU="" or LoginP="" then
response.redirect LoginPage
response.end
end if
'Apro la connessione al DB
Dim LoginConn
Set LoginConn = Server.CreateObject("ADODB.Connection")
LoginConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq = "&_
Server.MapPath("db/utenti_sito.mdb")
'Imposto la query ed apro il recordset
Dim LoginQuery, LoginRs
LoginQuery = "select * from UTENTI where user = '" & LoginU & "' "&_
"and pass = '" & LoginP & "'"
Set LoginRs = Server.CreateObject("ADODB.Recordset")
LoginRs.Open LoginQuery, LoginConn, 3, 3
'Se l'utente non viene trovato...
'rimando alla pagina di login
if LoginRs.EOF then
response.redirect LoginPage
response.end
end if
%>
..quindi se un utente nn si è loggato viene rimandato alla pagina login.asp ma se si è loggato appare un errore come questo..
File: C:\Active Server Page\drs\loggato_o no.asp
Source: Microsoft OLE DB Provider for ODBC Drivers
Error: 80004005
Description: [Microsoft][Driver ODBC Microsoft Access] Nome file non valido.
Line: 22 Column: 0
Code: LoginConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq = "&_
cosa c'è di sbagliato?
:master:

Rispondi quotando