[ASP] Log multipli

leftist1973

[ASP] Log multipli

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")

Questa stringa lo posizionata prima del comando else, ma non funziona.

Dove sbaglio??

Grazie

leftist1973

[cutted]

[edit]

Caro leftist1973,
non è possibile postare più di 10/15 righe di codice. Leggi il regolamento please

[/edit]

paocavo

Per rispondere al tuo quesito basta una semplice select case:


     Select Case  trim(left(username,1)) 
            Case "$":   Response.Redirect("logdealer.asp")
            Case "@":  Response.Redirect("logaccount.asp")  
            Case "5":   Response.Redirect("log5.asp")  
            Case Else:  Response.Redirect("logaccount.asp")
     End Select

leftist1973

@paocavo said:

Per rispondere al tuo quesito basta una semplice select case:

>
     Select Case  trim(left(username,1)) 
            Case "$":   Response.Redirect("logdealer.asp")
            Case "@":  Response.Redirect("logaccount.asp")  
            Case "5":   Response.Redirect("log5.asp")  
            Case Else:  Response.Redirect("logaccount.asp")
     End Select

>```
 
:ciauz:
 
Grazie per la risposta.
Visto che non  posso intervenire se non certo che funzioni sicuramente, puoi verificare se ho scritto bene.
 
....
Select Case  trim(left(username,1)) 
            Case "$":   Response.Redirect("logdealer.asp")
            Case "@":  Response.Redirect("logaccount.asp")  
            Case "5":   Response.Redirect("log5.asp")  
            Case Else:  Response.Redirect("logaccount.asp")
     End Select

'if left(username,1)="$" then
'response.Redirect("logdealer.asp")
'elseif left(username,1)="@" then
'response.Redirect("logaccount.asp")
 

else
.....
 
Grato

leftist1973

Ho provato cmq ma non mi funziona, ovvero mi fà una serie di errori che a causa di poca dimestichezza non riesco a gestire.

Help me

paocavo

la **select..end select **sostituisce la if...then...else...endif

quindi cancella il blocco else dopo il blocco if che hai commentato.

leftist1973

Caro Paocavo, ringrazziarti è poco.
Scusa se sono maleducato, ma abuso della tua pasienza, sono totalmente nel pallone e ammetto di aver problemi di comprendonia.
Ti posto lo script completo, con le modifiche, puoi giusto dargli un occhiata??
1000 Grazie

<%@LANGUAGE="VBSCRIPT"%>

<%
Sql_stato = "SELECT * FROM stato_db "
'Sql = "SELECT * from tabana"
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.site.it")
response.End()
end if
if instr(userpwd, "or ")>0 then
response.redirect("http://www.site.it")
response.End()
end if
dim varlog (2)
varlog (0)= username
varlog (1)= userpwd
session ("varlog")=varlog
Select Case trim(left(username,1))
Case "$": Response.Redirect("logdealer.asp")
Case "@": Response.Redirect("logaccount.asp")
Case "5": Response.Redirect("log5.asp")
Case Else: Response.Redirect("logaccount.asp")
End Select
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
%>

leftist1973

Totalmente fuso: ho eliminato i finali "end if" ma l'errore ora lo fà su else response.redirect ("index.asp")

Sull'orlo di una crisi nervosa

hwlab123

credo tu debba togliere l'ultimo end if.
indenta il codice, non farai di questi errori;)

leftist1973

@hwlab123 said:

credo tu debba togliere l'ultimo end if.
indenta il codice, non farai di questi errori;)

Ragazzi risolto

Grazie 10000