Aggiungere valore a select e variante SQL

[zeweb]

Vorrei inserire un valore in più alla select tipo "ALL PRODUCTS" e di conseguenza correggere anche la SQL a seconda della mia scelta !

<form method="post" action="result_keyfobs.asp" name="Key-fob Transmitters">
<select name="modulation" class="campiform">
<% do while not rs.EOF %>
<option value="<%=rs("modulation")%>"><%=rs("modulation")%></option>
<% rs.MoveNext
Loop
%>
</select>
<input name="submit" type="submit" class="bottonform" id="submit" value=" Go ">
</form>

Questa è la pagina con i risultati dove dovrei aggiungere un IF penso a seconda della scelta sulla mia select

ovvero se scelgo "ALL PRODUCTS" mi stampo tutto

<% 
modulation=request.form("modulation")
if modulation="" then modulation=request.querystring("modulation")

	'APERTURA CONNESSIONE CON IL DATABASE SENZA DSN 
	Set objConn = Server.CreateObject("ADODB.Connection") 
	objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb") 
    strSQL=("SELECT * FROM products where tip_UK = 'key-fob transmitter' and MODULATION='"& modulation &"' order by dataSF DESC")
	set rs=server.CreateObject("ADODB.recordset")
    rs.Open strSQL, objConn,3,3
	
	recordsperpage=5
	rs.pagesize=recordsperpage
	Pages=request.querystring("pagina")
	if (len (Pages)>0 and isnumeric(Pages)) then
	Pages=clng(Pages)
	else
	Pages=1
	end if
%>

Come sempre grazie dell'aiuto !

[max161]

appunto, la soluzione l'hai già trovata da solo non capisco qual'è il problema :rollo:

[zeweb]

scriverlo è il dilemma!

[zeweb]

è nella SQL che mi intoppo nel caso scelgo "ALL", come devo fare la condizione if....SQL else un'altra !

<form method="post" action="result_receivers.asp" name="Receivers">
<select name="modulation" class="campiform">
<option value="ALL" selected>Select all</option>
<% do while not rs.EOF%>
<option value="<%=rs("modulation")%>"><%=rs("modulation")%></option>
<%rs.MoveNext
Loop %>
</select>
<input name="submit" type="submit" class="bottonform" id="submit" value=" Go ">
</form>

<%
modulation=request.form("modulation")
if modulation="" then modulation=request.querystring("modulation")
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb") 
strSQL=("SELECT * FROM products where tip_UK = 'receiver' and MODULATION='"& modulation &"' order by dataSF DESC")

else
strSQL=("SELECT * FROM products where tip_UK = 'receiver' order by dataSF DESC")
set rs=server.CreateObject("ADODB.recordset")
rs.Open strSQL, objConn,3,3
%>

[zeweb]

mi da

Syntax error
/wireless/uk/result_receivers.asp, line 240
else if modulation="ALL" then

[zeweb]

mi aiutate a risolvere questo errore ?

[zeweb]

[zeweb]

proprio nulla ? so che x voi è una cavolata....

[zeweb]

scritto così vi sembra corretto ?

modulation=request.form("modulation")
modulation=request.form("all")

if modulation=request.querystring("modulation") then
Set objConn = Server.CreateObject("ADODB.Connection") 
objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("/fpdb/wire_products.mdb") 
strSQL=("SELECT * FROM products where tip_UK = 'receiver' and MODULATION='"& modulation &"' order by dataSF DESC")

else  
strSQL=("SELECT * FROM products where tip_UK = 'receiver' order by dataSF DESC")
end if
set rs=server.CreateObject("ADODB.recordset")
rs.Open strSQL, objConn,3,3

[zeweb]

spiegatemi solo come funziona in teoria nel senso che se dal menu arrivo con una scelta (modulation) faccio una SQL altrimenti (ALL) un'altra SQL....