Comando Else If

[elbaforum]

Ciao a tutti, ho un prob nella personalizzazione di uno script, non so se è giusta l'impostazione del comando else if

if Request.QueryString("view") = "All" then
set rsEmps = conn.Execute("select * from Biglietti")
TheMessage = "Tutti i biglietti disponibili"
elseif Request.QueryString("view") = "tratta" then
set rsEmps = conn.Execute("select * from Biglietti where tratta = '" _
& Request.QueryString("tratta") & "'")
TheMessage = "Risultati per " & Request.QueryString("tratta")
elseif Request.QueryString("view") = "veicolo" then
set rsEmps = conn.Execute("select * from Biglietti where veicolo = '" _
& Request.QueryString("veicolo") & "'")
TheMessage = "Risultati per " & Request.QueryString("veicolo")
elseif Request.QueryString("view") = "pax" then
set rsEmps = conn.Execute("select * from Biglietti where pax = '" _
& Request.QueryString("pax") & "'")
TheMessage = "Risultati per " & Request.QueryString("pax")
elseif Request.QueryString("data") = "disponibile" then
set rsEmps = conn.Execute("select * from Biglietti where data = '" _
& Request.QueryString("data") & "'")
TheMessage = "Risultati per " & Request.QueryString("data")
elseif Request.QueryString("importo") = "importo" then
set rsEmps = conn.Execute("select * from Biglietti where importo = '" _
& Request.QueryString("importo") & "'")
TheMessage = "Risultati per " & Request.QueryString("importo")
else
set rsEmps = conn.Execute("select * from Biglietti where " _
& Request.Form("In") & " Like '%" _
& Request.Form("Find") & "%'")
TheMessage = "Risultato Ricerca"
end if
%>

Sapreste dirmi qual'è l'impostazione giusta?

Grazie Mille Andrea

[maximum]

Io farei così:

<%
valore = Request.QueryString("view")

select case (valore)
   case "All"
      set rsEmps = conn.Execute("select * from Biglietti") 
      TheMessage = "Tutti i biglietti disponibili" 

   case "tratta"
      set rsEmps = conn.Execute("select * from Biglietti where tratta = '" _ 
& Request.QueryString("tratta") & "'") 
      TheMessage = "Risultati per " & Request.QueryString("tratta") 

   case "veicolo"
      set rsEmps = conn.Execute("select * from Biglietti where veicolo = '" _ 
& Request.QueryString("veicolo") & "'") 
      TheMessage = "Risultati per " & Request.QueryString("veicolo") 

   case "pax"
      set rsEmps = conn.Execute("select * from Biglietti where pax = '" _ 
& Request.QueryString("pax") & "'") 
      TheMessage = "Risultati per " & Request.QueryString("pax") 

   case "disponibile"
      set rsEmps = conn.Execute("select * from Biglietti where data = '" _ 
& Request.QueryString("data") & "'") 
      TheMessage = "Risultati per " & Request.QueryString("data") 

   case "importo"
      set rsEmps = conn.Execute("select * from Biglietti where importo = '" _ 
& Request.QueryString("importo") & "'") 
      TheMessage = "Risultati per " & Request.QueryString("importo") 

   case else 
      set rsEmps = conn.Execute("select * from Biglietti where " _ 
& Request.Form("In") & " Like '%" _ 
& Request.Form("Find") & "%'") 
      TheMessage = "Risultato Ricerca" 
end select 
%>

[elbaforum]

Ciao maximum,

dico che faresti bene perchè funziona perfettamente, l'unico problema che mi ha dato è che non riconosce il formato della data nel database, quindi ho dovuto riconvertirlo in txt nel database.

Grazie dell'aiuto Andrea

[maximum]

L'importante che ottempera allo scopo.

[elbaforum]

Ciao Maximum,
volevo chiederti un ultimo accorgimento, se possibile.

Vorrei aggiungere in quel codice la possibilità di riportare i risultati in più pagine visualizzandone 10 o 15 per pagina, potresti darmi una mano se non ti disturba?

Grazie comunque per la tua disponibilità e il consiglio che mi hai dato.

Andrea