I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
eddi
eddi
il 20 giugno 2001 alle 17:23
21 messaggi dal 20 giugno 2001
Ciao, approposito di zone protette riuscite ad aiutarmi?

Dovrei realizzare questo:
- l`utente inserisce in una pagina htlm "nomeutente" e "password"
- il form va ad una pagina.asp controllando se l`utente e la pw corrispondono nel db.access

ATTENZIONE qui il problema: nel frattempo dovrebbe controllare un`altro campo del db (nella tabella dove sono registrate pw e numeutente?) e se questo è uguale a 1 deve andare alla pagina 1 se è uguale a 2 deve andare alla pagina 2 e per concludere se è vuoto alla pagina 3. (le pagine in cui deve andare sono un .asp). Sotto inteso che le opzioni 0/1/2 non sono visibili e sono a unica cura del webmaster.

Un grazie anticipato al mio/a salvatore/ice. Eddi



RispondiQuoting
albis
albis
il 20 giugno 2001 alle 17:31
1.605 messaggi dal 06 settembre 2002

una volta fatta la select sulla tabella degli utenti
select case rs("CampoContr")
case 1
Response.Redirect "pagina1.asp"
case 2
Response.Redirect "pagina2.asp"
case else
Response.Redirect "pagina3.asp"
end select
FORZA LA MAGICA ROMA
RispondiQuoting
rome
rome
il 20 giugno 2001 alle 17:34
2.907 messaggi dal 15 maggio 2001
Contributi
E' molto semplice come cosa,sei capace a connetterti al database e a ricavarne i dati ??
Ecco,una volta che tu hai fatto cio' devi creare una serie di condizioni e di espressioni più o meno una cosa simile:


allora sei il campo non esiste

if pass.EOF then
response.redirect"pagina3.asp"

Sei vuoi indirizzarlo alla pagina 1 devi fare così

if pass=("1")then
response.redirect"pagina1.asp" idem per la pagina 2

Una cosa che devi fare per associare questi 2 numeri ("1 e 2"),crearti 2 tabelle e durante l'iscrizione selezionare un opzione in modo da smistare gli utenti in base alla loro scelta


La cosa è facilmente superabile basta un po' d'impegno e mi raccomando non scoraggiarti mai...



Webmaster Rome


A presto.....

RispondiQuoting
eddi
eddi
il 20 giugno 2001 alle 23:33
21 messaggi dal 20 giugno 2001
......niente non riesco... adesso mi da questo errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/dati_azienda.asp, line 64 (pagina=rs("MODELLO")

------------------------------


<%
' recupero variabili da pagina controllo password
' ***********************************************
Dim user_form
user_form = request.form("userid")
user_form = LCase(user_form)
Dim password_form
password_form = request.form("password")
'response.buffer=true
'Response.Clear
pagina=rs("MODELLO")
if pagina = 0 then
response.redirect "dati_azienda.asp"
else if pagina = 2 then
response.redirect "dati_profi.asp"
else
response.redirect "xkz.asp"
end if
end if

' apertura connessione DB
' ***********************
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "pagine97"
'response.buffer=true
set rspw = Server.CreateObject("ADODB.Recordset")
SQLPW ="select * from PASSWORD where USERID='"&user_form&"'"
Set rspw=conn.execute(SQLPW)
' controllo se il nome utente esiste
' **********************************
if rspw.EOF and rspw.BOF then
' se il nome utente non è corretto
' ********************************
%>


RispondiQuoting
eddi
eddi
il 21 giugno 2001 alle 01:36
21 messaggi dal 20 giugno 2001
Sono andato un po avanti però non va... qualcuno mi può aiutare?

<%
' recupero variabili da pagina controllo password
' ***********************************************
Dim user_form
user_form = request.form("userid")
user_form = LCase(user_form)
Dim password_form
password_form = request.form("password")
'response.buffer=true
'Response.Clear
if (not rs.eof) then
'Username e password sono presenti nel DB
rspw.close
pagina=rspw("MODELLO")
if pagina = 1 then
response.redirect "dati_azienda.asp"
else if pagina = 2 then
response.redirect "dati_profi.asp"
else
response.redirect "xkz.asp"
end if
end if

' apertura connessione DB
' ***********************
dim conn
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "lettere97"
'response.buffer=true
set rspw = Server.CreateObject("ADODB.Recordset")
SQLPW ="select * from PASSWORD where USERID='"&user_form&"'"
Set rspw=conn.execute(SQLPW)
' controllo se il nome utente esiste
' **********************************
if rspw.EOF and rspw.BOF then
' se il nome utente non è corretto
' ********************************
%>

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.