Ciao, credo di non essermi spiegato in un messaggio precedente così rifaccio:

Il db per registrasi funziona.

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.

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. Qui di seguito quello su cui sto lavorando. Riuscite a correggermelo o aiutarmi? 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
%>