Log multipli

[leftist]

Ciao a tutti.
Innanzitutto scusate la domanda un pò banale ma sono nel pallone totale!!!
Ho creato un file log.asp nel quale in base ad un carattere speciale mi indirizza in un accesso personalizzato:
if left(username,1)="$" then
response.Redirect("logdealer.asp")
elseif left(username,1)="@" then
response.Redirect("logaccount.asp")
else.....

Bene, io vorrei aggioungere un nuovo accesso ad esempio con 5:
elseif left(username,1)="5 then
response.Redirect("log5.asp")

Ovviamente ho creato il file log5.asp, il file di accesso e la tabella associata. Ovviamente non funziona, per carità, fortuna zero!!

Posto lo script, se potete aiutarmi ve ne sarei moltooooo grato


<%@LANGUAGE="VBSCRIPT"%>

<%
Sql_stato = "SELECT * FROM stato_db "
set rs_stato=conn.execute(Sql_stato)
if rs_stato("stato")<>"si" then
response.Write(rs_stato("descrizione"))
response.end()
end if
username=Request.Form("username")
userpwd=Request.Form("userpwd")
if instr(username, "or ")>0 then
response.redirect("http://www.sitoweb.it")
response.End()
end if
if instr(userpwd, "or ")>0 then
response.redirect("http://www.sitoweb.it")
response.End()
end if
dim varlog (2)
varlog (0)= username
varlog (1)= userpwd
session ("varlog")=varlog
if left(username,1)="$" then
response.Redirect("logdealer.asp")
elseif left(username,1)="@" then
response.Redirect("logaccount.asp")
else
data = date()
Sql = "SELECT * FROM tana where username='"&username&"' and password='"&userpwd&"'"
set rs=conn.execute(Sql)
%>
<%
if not rs.eof then
Session("UserLoggedIn") = "true"
Session("UserLoggedIn1") = "true"
session("nominativo")=rs("cognome")&" "&rs("nome")
session("profilo")= rs("profilo")
session("filiale")= rs("filiale")
session("preventivo")= rs("preventivo")
session("numero_tel")=rs("numero_tel")
session("logincorso")= username
Sqldel = "delete from logincorso where login='"&username&"' "
set rsdel=conn.execute(Sqldel)
Sqlup = "insert into logincorso (login, data) values ('"&session("logincorso")&"', '"&date()&"') "
set Sqlup=conn.execute(Sqlup)
response.redirect ("accesso.asp")
else response.redirect ("index.asp")
end if
end if
%>

[optime]

non ti conviene fare

iniziale = left(username, 1)

SELECT CASE Iniziale
   CASE "1": Response.Redirect "1.asp"
   CASE "X": Response.Redirect "zumbabia.asp"
   CASE "#": Response.Redirect "ratatatatatata.asp"
   ...
   CASE ELSE
      Response.Redirect "frutta_secca.asp"   
END SELECT

???

[leftist]

Originariamente inviato da optime
non ti conviene fare

iniziale = left(username, 1)

SELECT CASE Iniziale
   CASE "1": Response.Redirect "1.asp"
   CASE "X": Response.Redirect "zumbabia.asp"
   CASE "#": Response.Redirect "ratatatatatata.asp"
   ...
   CASE ELSE
      Response.Redirect "frutta_secca.asp"   
END SELECT

???

[optime]

a fra', che te serve?

[leftist]

Originariamente inviato da optime
a fra', che te serve?

In primis non ho fratelli.
Secondo, capire, altrimenti un forum non serve ad una pippa.

Cmq, ho provato la tua ipotesi ma non mi funziona, di certo sono io a sbagliare.

Per evitare di continuare a vuoto, vorrei capire e risolvere, perchè non mi funziona lo script postato in precedenza.

Grazie
tuo cugino

[optime]

a lontano parente per parte di adamo ed eva.

primo: non va che vor di'? non s'accende la lavastoviglie? il rasaerba non taglia?
secondo: nel tuo codice
queste righe
elseif left(username,1)="5 then
response.Redirect("log5.asp")
non ci sono.

se le vuoi aggiungere, l'apici va chiusi, così

elseif left(username,1)="5" then
response.Redirect("log5.asp")


piacere di averla conosciuta

[leftist]

Originariamente inviato da optime
a lontano parente per parte di adamo ed eva.

primo: non va che vor di'? non s'accende la lavastoviglie? il rasaerba non taglia?
secondo: nel tuo codice
queste righe
elseif left(username,1)="5 then
response.Redirect("log5.asp")
non ci sono.

se le vuoi aggiungere, l'apici va chiusi, così

elseif left(username,1)="5" then
response.Redirect("log5.asp")


piacere di averla conosciuta

Va bene grazie 1000
Ciaoo