aiuto per url da database

[danilob]

ciao a tutti,

stò impazzendo forse per una cavolatina...

il redirect con link preso dal database "utenti" colonna "pagina" non mi funziona, sbaglio qualcosa nella sintassi.

ecco il codice della pagina login.asp

<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT * FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
"' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)


Dim pagina
set pagina=rs("pagina")



Dim autenticato
if rs.eof then
autenticato = false
else
autenticato = true
end if


if autenticato = true then
Session("Autenticato") = "OK"
response.redirect (pagina)

else
Response.Redirect("index.asp")
end if

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
%>

dove pagina è un campo del dbase contenente gli url

come posso fare?

grazie

[Sypher]

intanto dopo la dichiarazione della variabile pagina togli il set...poi non capisco qual'è l'errore...non fa il redirect? se si fatti stampare il valore di pagina e vediamo se l'url è esatto

[danilob]

se tolgo set mi dà errore!

pagina è un campo del dbase contenente gli url che devono poi essere riportarti....

[Roby_72]

Ma il campo "pagina" è contenuto nella tabella utenti?


Roby

[danilob]

si certo,

nel campo pagina indico l'url

esempio:

id NomeUtente Password Pagina

1 Paolo 123 www.tin.it
2 Elisa eli www.asp.it

ecc...

Io vorrei che quando l'utente inserisce il proprio username e pass venga indirizzato alla propria pagina specificata

[Roby_72]

<% 
Dim nome_ut 
Dim pass 
nome_ut = Replace(Request.Form("nome_utente"), "'", "''") 
pass = Replace(Request.Form("password"), "'", "''") 

Dim cn 
Set cn = Server.CreateObject("ADODB.Connection") 
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("utenti.mdb") 
Dim sql 
sql = "SELECT * FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_ 
"' AND PASSWORD='" &pass& "'" 
Dim rs 
Set rs = cn.Execute(sql) 

Dim autenticato 
if rs.eof then 
autenticato = false 
else 
autenticato = true 
end if 


if autenticato = true then 
Session("Autenticato") = "OK" 
Dim pagina 
pagina=rs("pagina") 
response.redirect (pagina) 

else 
Response.Redirect("index.asp") 
end if 

rs.Close 
cn.Close 
Set rs = Nothing 
Set cn = Nothing 
%>

Roby

[danilob]

grazie ma così non funziona....
Mi invia ad una pagina inesistente mi aggiunge l'url all'indirizzo esistente.

Ti faccio un esempio per chiarire meglio.

Mettiamo che mi trovo in www.asp.it

il redirect per l'area riservata deve essere as esempio www.asp.it/riservata.asp

quando immetto login e password lui mi porta in questa pagina che ovviamentenon esiste:

www.asp.it/www.asp.it/riservata.asp

[Sypher]

ma nel campo pagina tu hai scritto tutto l'url www.asp.it/riservata.asp? se sì basta che nel campo pagina ci scrivi solo riservata.asp

[danilob]

ok grazie moltissime ci sono riuscito.

Un'ultima cosa; vorrei fare in modo che l'utente 1 non riesca ad entrare nella pagina dell'utente 2 e viceversa.

Come posso implementare il codice?

[Morpheus2001]

scusate se mi intrometto, avevo anche io questo problema ed ho scopiazzato.....ora mi appare questo errore

Item cannot be found in the collection corresponding to the requested name or ordinal.

VVoVe: VVoVe:
eppure il campo esiste