SCUSANDOMI con tutti per non stare alle regole del forum e riconoscere un premio cash (vaglia postale di Lire 100.000 per una pizza)al primo che mi spedisce questo "coso" che funziona. Io non riesco nemmeno più a leggerlo.... lo risolviamo così non vi stresso più con questo "cosa semplice" (per tutti tranne che per me)

Dovrei realizzare questo:
- comunità con pagine realizzate da utenti.
L'utente viene si registra e poi può, in secondo tempo, attivare la sua pagina web creata su un modello.asp che pesca da un data base. Fino qui tutto bene è on-line e funziona.

IL PROBLEMA: vorrei avere 2 o più modelli di pagine utilizzabili. Il primo dell'utente normale, l'altro di un utente vip.
Io vedo l'utente che si è registrato se mi è simpatico cambio il numero nel campo del data base e abbracadabra esce l'altra pagina. Grazie.

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

<%
' 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 Modello_DB = 2 Then
Response.Redirect "dati_profi.asp"
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
' ********************************
%>


<%
response.write("<font color=#ffffff size=2 face=""Verdana, Arial, Helvetica, sans-serif"">Il nome utente inserito non è corretto.</font>")
%>


<%
' chiusura connessione password
' *****************************
rspw.Close
conn.Close

' se il nome è presente vado a controllare la password
' ****************************************************
Else
user_DB=rspw("USERID")
user_DB=Lcase(user_DB)
Password_DB=rspw("PASSWORD")
idazienda=rspw("IDAZIENDA")
Modello_DB=rspw("MODELLO")
rspw.Close

' Se la login è valida
' ********************
if user_form=user_DB and password_form=password_DB then
Dim userid
userid=user_DB

' Recordset Dati
' **************
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM AZIENDE WHERE IDAZIENDA="&idazienda
rs.Open sql, conn
%>


<%
'Rs.Close
Conn.close
Else
' se la password non è corretta
' *****************************
%>


<%
response.write("<font color=#ffffff size=2 face=""Verdana, Arial, Helvetica, sans-serif"">La password inserita non è corretta.</font>")
end if
end if
%>




Clicca qui per chiudere il thread, per soli Amministratori e Moderatori.

Mostra tutti i forums | Rispondi al messaggio

Ciao eddi,
Potresti specificare l'errore o il problema riscontrato???

Inoltre in questo punto..
<%
' chiusura connessione password
' *****************************
rspw.Close
conn.Close

' se il nome è presente vado a controllare la password
' ****************************************************
Else
user_DB=rspw("USERID")
user_DB=Lcase(user_DB)
Password_DB=rspw("PASSWORD")

se chiudi rspw come fai a utilizzarla dopo l'else?


Il codice postato è effettivamente quello utilizzato o è un taglia e incolla di alcune porzioni di codice?

L'ordine delle istruzioni postate è corretto?


JD

Scusate... (altra testimonianza che non ne posso più di questo "coso")... così funziona

Ho aggiunto in più credo...

'response.buffer=true
'Response.Clear
if Modello_DB = 2 Then
Response.Redirect "dati_profi.asp
--------------------

...ma lui in questo momento mi controlla se l'utente esiste, se la pw è esatta ed eventualmente mi avvisa... se tutto corrisponde mi lascia nella pagina dove è inserito (dati_azienda_.asp)... tutto bene...

MA BISOGNA AGGIUNGERE:
- se pw e utente corrispondono controllare nella stessa tabella di access la colonna MODELLO e se è vuota va bene così si resta alla pagina dati_aziende.asp se invece questa contiene il numero 2 si va a pagina dati_profi.asp se contiene il numero 3 si va a dati_imp.asp. Grazie