rendere ciclica

[lupo1978]

salve ho questo scipt:

<%
Dim CONN
Set CONN= Server.CreateObject("ADODB.Connection")
CONN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/marinodiprinzio/mdb-database/cerca.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM risultati WHERE usernamevenditore='"& loguser &"';"
sql = "SELECT * FROM risultati WHERE oggetto='"& desc &"';"
RS.Open sql, CONN, 3, 2



found = FALSE
loguser = request.form("login")
pwd = request.form("password")
desc="oggetto="&(Recordset1.Fields.Item("oggetto") .Value)
response.write "user="
response.write loguser
response.write "password="
response.write pwd
response.write desc
while not rs.eof
a video mi stampa pero' solamente un campo del database che contiene quella username presa dalla pagina precedente di login vorrei che stampasse tutte i campi che contengono quella username inserita dal login,come posso effettuare questa specie di ciclo?grazie sin da ora

[99eros9]

valore_campo = rs( "nome_campo" )

è questo che intendi?

[lupo1978]

vorrei che invece di stampare un solo risulato contenente il valore "gigi"stampasse tutti qui campi che hanno valore gigi nella username,presa da un login precedente ,mi puoi aiutare?

[99eros9]

Dim CONN 
Set CONN= Server.CreateObject("ADODB.Connection") 
CONN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/marinodiprinzio/mdb-database/cerca.mdb") 
Set RS = Server.CreateObject("ADODB.Recordset") 
sql = "SELECT * FROM risultati WHERE usernamevenditore='gigi';" 
rs.Open sql,conn,2,3

If not rs.Eof then
response.write(rs("usernamevenditore"))&"
")
response.write(rs("passwordvenditore"))&"
")
'..e via dicendo per tutti gli altri campi
Else
'..non esiste nessun venditore di nome gigi
End If
rs.close
set rs = nothing
conn.close
set conn = nothing

naturalmente al posto di gigi metti il valore proveniente dal campo del form

[lupo1978]

Dim CONN
Set CONN= Server.CreateObject("ADODB.Connection")
CONN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/marinodiprinzio/mdb-database/utenti.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM utenti WHERE username='"& loguser &"';"
sql = "SELECT * FROM utenti WHERE password='"& desc &"';"
RS.Open sql, CONN, 3, 2



found = FALSE
loguser = request.form("login")
pwd = request.form("password")
desc="oggetto="
response.write ("username" )
response.write loguser
response.write ("password=" )
response.write pwd
response.write desc


while not rs.eof



wend
solo cosi stampa un solo risulato proveniente dal login,se inserisco
If not rs.Eof then
response.write(rs("usernamevenditore"))&"
")
response.write(rs("passwordvenditore"))&"
")
'..e via dicendo per tutti gli altri campi
gli da fastidio rs dicendo che non trova i record....
aiuto...

[99eros9]

Dim CONN 
Set CONN= Server.CreateObject("ADODB.Connection") 
CONN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/marinodiprinzio/mdb-database/utenti.mdb") 
Set RS = Server.CreateObject("ADODB.Recordset") 
Dim loguser
loguser = request.form("login") 
Dim pwd
pwd = request.form("password")
sql = "SELECT * FROM utenti WHERE username='"& loguser &"' And CampoPassword ='" & pwd &"'"
RS.Open sql, CONN, 2,3 

if not rs.Eof Then
response.write(rs("username")&"
")
response.write(rs("CampoPassword")&"
")
'etc.etc
Else
response.write("utente non trovato")
End If
rs.close
set rs = nothing
co.close
Set co = nothing

CampoPassword lo devi sostituire con il vero nome del campo che hai nella tua tabella, così come quando ti dico etc, etc.. cioè per estrarre ciascun record devi utilizzare la forma:
rs("nomeCampo")
che potrai anche assegnare ad una variabile, o stamparla direttamente a video con il response.write... più di così non so che dire,.. forse non ho capito io cosa intendi fare.

[lupo1978]

forse cosi e' piu chiaro


cosi ovviamente stampa il nome gigi solamente una volta

Dim CONN
Set CONN= Server.CreateObject("ADODB.Connection")
CONN.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & Server.Mappath("/marinodiprinzio/mdb-database/utenti.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM utenti WHERE username=''"& loguser &"';"
sql = "SELECT * FROM utenti WHERE password='"& desc &"';"
RS.Open sql, CONN, 3, 2



found = FALSE
loguser = (Recordset1.Fields.Item("USERNAME").Value)


response.write ("ecco le tue domande---")
siccome nel database ci sono due campi che contengono il nome gigi
vorrei stamparli tutte e due ,una ripetizione di record pero dei solo campi targati gigi,

[99eros9]

non è che stai facendo un po di confusione?
tra l'altro tu valorizzi la variabile sql in successione, ma poi la query di controllo verte solo sulla ricerca della password. bho!
Il controllo va fatto su username e password (tra l'altro ti consiglio anche di dare un'occhiata alle sql injection) usando l'operatore And.