SQL e IF

[giulioplay]

Ho il seguente codice e funziona.
Però è stilisticamente una schifezza. Vorrei proprio per imparare in futuro, capire come ottenere lo stesso risultato, ma con codice pulito.
Questo recordset raccoglie i dati di un form e a seconda di come sono impostati i campi "r_stato" e "r_prodotto" fa una determinata istruzione sql.

Grazie.

<%
Dim stato
set stato = Server.CreateObject("ADODB.Recordset")
stato.ActiveConnection = line
if request.QueryString("r_prodotto") = "TUTTI" AND request.QueryString("r_stato") = "TUTTE" then
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND (problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') ORDER BY "& ordinamento &" "& modo
elseif request.QueryString("r_prodotto") = "TUTTI" then
statocall.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND stato = '"&stat&"') ORDER BY "& ordinamento &" "& modo
elseif request.QueryString("r_stato") = "TUTTE" then
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND cod = '"&prod&"') ORDER BY "& ordinamento &" "& modo
else
stato.Source = "SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') AND cod = '"&prod&"' AND stato = '"&stat&"') ORDER BY "& ordinamento &" "& modo
end if
stato.CursorType = 0
stato.CursorLocation = 3
stato.LockType = 1
stato.Open()
%>

[kalosjo]

<%
Dim stato
set stato = Server.CreateObject("ADODB.Recordset")
stato.ActiveConnection = line

strq="SELECT * FROM chiam WHERE internet = 'SI' AND cod = '" + Replace(var1, "'", "''") + "' AND (username = '"+ request.Cookies("my_cook")("username") +"' OR username is null) AND ((problema LIKE '%"&key2&"%' OR titolo LIKE '%"&key2&"%' OR gestint LIKE '%"&key2&"%' OR continuo LIKE '%"&key2&"%') "

if request.QueryString("r_prodotto") = "TUTTI" AND request.QueryString("r_stato") = "TUTTE" then

elseif request.QueryString("r_prodotto") = "TUTTI" then
	strq=strq & " AND stato = '"&stat&"') "
elseif request.QueryString("r_stato") = "TUTTE" then
	strq=strq & " AND cod = '"&prod&"') "
else
	strq=strq & " AND cod = '"&prod&"' AND stato = '"&stat&"' ORDER BY "& ordinamento &" "& modo
end if

strq=strq & "ORDER BY "& ordinamento &" "& modo

stato.Source=strq

stato.CursorType = 0
stato.CursorLocation = 3
stato.LockType = 1
stato.Open()
%>

[giulioplay]

Prima di tutto grazie.

Sbaglio o la riga in neretto va tolta?

else
	strq=strq & " AND cod = '"&prod&"' AND stato = '"&stat&"' ORDER BY "& ordinamento &" "& modo 

end if

strq=strq & "ORDER BY "& ordinamento &" "& modo

[kalosjo]

Hai ragione, dimenticanza.....

In effetti viene aggiunta una volta sola alla fine

[giulioplay]

ok, perfetto. La cosa mi conforta, vuol dire che qualcosa capisco...

Dato che ci sono, approfitto della tua dispo.

Questa procedura rappresenta un piccolo motore di ricerca, che mostra a video ordinati per colonna i record trovati.

Se volessi permettere all'utente di ordinare i record trovati per colonna cliccando sull'intestazione, come posso fare?

Grazie

[kalosjo]

devi mettere un link nel titolo dell'intestazione in cui passi nuovamente tutte le variabili di ricerca + la variabile che ti dice come devono essere ordinati.