I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
brmdnl
brmdnl
il 29 gennaio 2005 alle 22:41
33 messaggi dal 10 gennaio 2005
Mi piacerebbe integrare nello script per entarre nell'area protetta un codice che mi aggiorni sul dbase gli utenti che sono entrati.

Dopo aver creato la tabella utenti, ho provato ad integrare il codice ma non mi aggiunge nulla nella tabella.

ho già provato un mucchio di volte.

Qualcuno mi da una mano


<%
username=Request.Form("username")
password=Request.Form("password")

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")
Sql="Select * from ANAGRAFICa"
Set Rs=Conn.Execute(sql)

do while not Rs.EOF
If username = Rs.Fields("username") and password = Rs.Fields("pwd") Then
session("utente") = username
session("accesso") = rs("livelloUtente")
session("nomesess")=rs("nome")
Response.Redirect rs("pagina")
Else
End if
Rs.MoveNext
loop
Response.Redirect("errore.asp")
rs.Close
Set rs = Nothing
conn.close
set conn= Nothing

'verifico le viste dei miei clienti


Set Conn2=Server.CreateObject("ADODB.Connection")
Conn2.Open "PROVIDER=MSDASQL;" & _
"DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("/mdb-database/database.mdb")
SQL = "Select * FROM ingressi"
Set Rs2=Conn.Execute(sql)

LCID = 1040
Session.LCID = LCID
rs2.AddNew
rs2("data") = data
rs2("ora") = ora
rs2("username") = username
rs2.update

rs2.Close
set rs2 = Nothing
conn2.close
set conn2= Nothing

%>
RispondiQuoting
albinet
albinet
il 31 gennaio 2005 alle 21:14
26 messaggi dal 12 marzo 2001
www.albnet.eu
Hai fatto due errori:
1° hai utilizzato redirect prima che abbia scritto nella tabella "ingressi"
2° quando esegui la seconda query, hai usato l'oggetto comm della 1° query che ormai avevi già chiuso.

Semplifica il codice, aprendo una volta sola il database e oltre che controllare se si autentica, scrivi l'ingresso.

<% 
username=Request.Form("username") 
password=Request.Form("password") 

Session.LCID = 1040

Set Conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("/mdb-database/database.mdb") 

'il campo username non mi interessa se è maiuscolo
'o minuscolo, ma il capo password, deve essere uguale.
Sql="Select * from ANAGRAFICA WHERE LCase(username) = '" & LCase(username) & "' and pwd = '" & password & "' "
Set Rs=Conn.Execute(sql) 

If rs.recordcount > 0 then
  session("utente") = username 
  session("accesso") = rs("livelloUtente") 
  session("nomesess")= rs("nome") 
  
  SQL = "Select * FROM ingressi" 
  Set Rs2=Conn.Execute(sql) 
  
  rs2.AddNew 
  rs2("data") = data 
  rs2("ora") = ora 
  rs2("username") = username 
  rs2.update
  
  rs2.Close 
  set rs2 = Nothing
  
  Response.Redirect rs("pagina")
else
  Response.Redirect("errore.asp") 
End if 

rs.Close 
Set rs = Nothing 
conn.close 
set conn= Nothing 
%>


Non l'ho testato, ma dovrebbe andare.
Albnet
http://www.albnet.eu/
RispondiQuoting
brmdnl
brmdnl
l'1 febbraio 2005 alle 00:58
33 messaggi dal 10 gennaio 2005
grazie moltissime,,,,,


risolto un problema.

sei stato gentilissimo...
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.