Accesso Area Riservata

[apuuuu]

Buongiorno a tutti, dopo vane ricerche ho deciso di postarvi il mio dubbio.
Attualmente il singolo IDUTENTE accede all'area riservata del mio sito tramite USERID e PASSWORD. Adesso vorrei che sempre lo stesso IDUTENTE possa accedere anche tramite USERID2 e PASSWORD2. Pensate sia fattibile?

Dim IDUtente: IDUtente = request.QueryString("IDUtente")

Session("IDUtente") = IDUtente

If IDUtente = "" then
Session("Utente") = ""
Session("Tipo") = ""
end if


Dim strConn
Dim conn
' Apro la connessione al database
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("/mdb-database/dati.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open StrConn

Dim UserID: UserID = Trim(Request.Form("UserID"))
Dim Password: Password = Request.Form("Password")

if UserID <> "" then

Dim SQLStatement
if Password = "" Then
SQLStatement = "SELECT * FROM QUtenti " & _
" WHERE Login = '" & Replace(UserID, "'", "''") & "'" & _
" AND Pwd IS NULL "
Else
SQLStatement = "SELECT * FROM QUtenti " & _
" WHERE Login = '" & Replace(UserID, "'", "''") & "'" & _
" AND Pwd = '" & Replace(Password, "'", "''") & "'"
End If

Dim rstUtenti
set rstUtenti = conn.Execute(SQLStatement)

......

[br1]

L'unico impedimento che posso immaginare e' che la tabella usi idutente come indice univoco... se elimini l'indice non avrai problemi a caricare 2 record per l'utente in questione

Avrai comunque problemi per eventuali statistiche...

Oppure modifica la struttura della tabella ed aggiungi Login_2 e Pwd_2, creando una query adatta (ti faccio l'esempio della seconda)

"SELECT * FROM QUtenti WHERE ( Login='" & UserID & "' AND Pwd='" & Password & "' ) OR ( Login_2='" & UserID & "' AND Pwd_2='" & Password & "' )"

[apuuuu]

Adesso provo il tuo suggerimento. Grazie a dopo

[apuuuu]

Ho modificato la tabella aggiungendo login2 e pass2 poi ho scritto (sicuramente sbagliando)
perche non funziona....

Dim strConn
Dim conn
' Apro la connessione al database
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " &_
Server.MapPath("/mdb-database/dati.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open StrConn

Dim UserID: UserID = Trim(Request.Form("UserID"))
Dim Password: Password = Request.Form("Password")
Dim UserID2: UserID2 = Trim(Request.Form("UserID2"))
Dim Password2: Password2 = Request.Form("Password2")

if UserID or UserID2 <> "" then

Dim SQLStatement
SELECT * FROM QUtenti WHERE ( Login='" & UserID & "' AND Pwd='" & Password & "' ) OR ( Login2='" & UserID & "' AND Pwd2='" & Password & "' )

Dim rstUtenti
set rstUtenti = conn.Execute(SQLStatement)

[br1]

Originariamente inviato da apuuuu
if UserID or UserID2 <> "" then

e questo cos'e'?

Originariamente inviato da apuuuu
Dim SQLStatement
SELECT * FROM QUtenti WHERE ( Login='" & UserID & "' AND Pwd='" & Password & "' ) OR ( Login2='" & UserID & "' AND Pwd2='" & Password & "' )

e l'istruzione di assegnazione? gli apici?

Ma il tuo server non ti fa vedere i messaggi d'errore?

[apuuuu]

Scusa Br1, ma stamani non riesco proprio a far svegliare l'ultimo neurone rimasto....