Problemino con una select !!!

[satwanted]

Ho queste due SELECT, e non riesco a far rimanere selezionata l' opzione scelta e nemmeno riesco a mantere il valore dopo il Submit.

ovvero, siccome è un filtro x una ricerca, vorrei , selezionare la prima select (ed immagazzinare il valore), selezionare la seconda select ( idem), e campo di testo per la ricerca, ed inviare tutto......

<select name="sel_scat" class="inputtext" onChange="document.scateg.submit();" >
<option value="">Seleziona
<%
SQLsc = " SELECT * FROM Scategorie WHERE ID ORDER BY Scategoria ASC"

Set RSsc = Conn.Execute(SQLsc)

if not RSsc.EOF then

RSsc.MoveFirst


Do While Not RSsc.EOF


%>
<option value="<%= RSsc("ID") %>" ><%= RSsc("Scategoria") %>
<%
RSsc.MoveNext
Loop
End If
%></select>
</form></td>
<td width="4"></td>
<td width="176" valign="top">
<form name="categ" action="?visual=true" method="post">Cat <%= catx %>

<select name="sel_cat" class="inputtext" onChange="document.categ.submit();">
<option value=null>Seleziona

<%
SQLc = " SELECT * FROM categorie WHERE SCategoria LIKE '%" & scatx & "%' ORDER BY Scategoria ASC"

Set RSc = Conn.Execute(SQLc)

if not RSc.EOF then

RSc.MoveFirst


Do While Not RSc.EOF



%>
<option value="<%= RSc("ID") %>"><%= RSc("categoria") %>
<%
RSc.MoveNext
Loop
End If
%></select></td>
<td></td>

mi date una mano ............

GRAZIE A TUTTI

[GudFella]

all'inizio della pagina:

valore_selezionato_select1 = request("valore_selezionato_select1")

quando costruisci la combo:

Do While Not RSsc.EOF
     isSel = ""
     if RSsc("ID") = valore_selezionato_select1 then
         isSel = " selected"
     end if
%>
      <option value="<%= RSsc("ID") %> <%=isSel%>" ><%= RSsc("Scategoria") %>
<% 
     RSsc.MoveNext
Loop

[satwanted]

l'ho fatto, il mio

valore_selezionato_select1 si chiama scatx

quindi ho poi modificato cosi

<form name="scateg" action="?visual=true" method="post">SCat <%= scatx %>

<select name="sel_scat" class="inputtext" onChange="document.scateg.submit();" >
<option value="">Seleziona
<%
SQLsc = " SELECT * FROM Scategorie WHERE ID ORDER BY Scategoria ASC"

Set RSsc = Conn.Execute(SQLsc)

if not RSsc.EOF then

RSsc.MoveFirst


Do While Not RSsc.EOF
Dim isSel

isSel = ""
if RSsc("ID") = scatx then
isSel = " selected"
end if


%>
<option value="<%= RSsc("ID") %>" <%= isSel %> ><%= RSsc("Scategoria") %>
<%
RSsc.MoveNext
Loop
End If
%></option></select>
</form></td>
<td width="4"></td>

ma non cambia niente..........

ho sbagliato qualcosa ?

[GudFella]

dove recuperi il valore scatx ???

fai un po di debug e controlla cosa valgono scatx e RSsc("ID")

[satwanted]

i dati sono regolari ovvero sia RSsc("ID") che Scatx contengono i giusti valori

ho notato che non funziona l' IF ovvero non sembra che si verifichi la condizione e quindi non scrive SELECTED

xche ?

[GudFella]

Originariamente inviato da satwanted
i dati sono regolari ovvero sia RSsc("ID") che Scatx contengono i giusti valori

ho notato che non funziona l' IF ovvero non sembra che si verifichi la condizione e quindi non scrive SELECTED

xche ?

evidentemente Scatx non è mai uguale a RSsc("ID")

[satwanted]

ho aggiunto la parte in grassetto per controllare i riusltati

<form name="scateg" action="?visual=true" method="post">SCat <%= scatx %>

<select name="sel_scat" class="inputtext" onChange="document.scateg.submit();" >
<option value="">Seleziona
<%
SQLsc = " SELECT * FROM Scategorie WHERE ID ORDER BY Scategoria ASC"

Set RSsc = Conn.Execute(SQLsc)

if not RSsc.EOF then

RSsc.MoveFirst


Do While Not RSsc.EOF

Dim isSel, x

isSel = ""
x = Cint(RSsc("ID"))
if x = scatx then
isSel = " selected"
end if


%>
<option value="<%= RSsc("ID") %>" <%= isSel %> ><%= RSsc("Scategoria") %>- <%= x %> - <%= scatx %>- <%= isSel %>
<%
RSsc.MoveNext
Loop
End If
%></option></select>

e la condizione si verifica!!!! si vede a video , dentro la select lo vedo è l' unico con i valori uguali

ma non scrive isSel


azzz

[GudFella]

Originariamente inviato da satwanted
...e la condizione si verifica!!!! si vede a video , dentro la select lo vedo è l' unico con i valori uguali

ma non scrive isSel

prova:

x = Cint(RSsc("ID"))
if x = Cint(scatx) then

[satwanted]

ora funziona !!!

solo che se passo alla seconda SELECT , chiaramente , la prima si riazzera, come posso fare per vederle selezionate entrambe ???

<form name="scateg" action="?visual=true" method="post">SCat <%= scatx %>

<select name="sel_scat" class="inputtext" onChange="document.scateg.submit();" >
<option value="">Seleziona
<%
SQLsc = " SELECT * FROM Scategorie WHERE ID ORDER BY Scategoria ASC"

Set RSsc = Conn.Execute(SQLsc)

if not RSsc.EOF then

RSsc.MoveFirst


Do While Not RSsc.EOF

Dim isSel, x

isSel = ""
x = Cint(RSsc("ID"))
if x = Cint(scatx) then
isSel = " selected"
end if


%>
<option value="<%= RSsc("ID") %>" <%= isSel %> ><%= RSsc("Scategoria") %>
<%
RSsc.MoveNext
Loop
End If
%></option></select>
</form></td>
<td width="4"></td>
<td width="176" valign="top">
<form name="categ" action="?visual=true" method="post">Cat <%= catx %>

<select name="sel_cat" class="inputtext" onChange="document.categ.submit();">
<option value=null>Seleziona

<%
SQLc = " SELECT * FROM categorie WHERE SCategoria LIKE '%" & scatx & "%' ORDER BY Scategoria ASC"

Set RSc = Conn.Execute(SQLc)

if not RSc.EOF then

RSc.MoveFirst


Do While Not RSc.EOF

Dim isSel2, y

isSel2 = ""
y = Cint(RSc("ID"))
if y = Cint(catx) then
isSel2 = " selected"
end if


%>
<option value="<%= RSc("ID") %>" <%= isSel2 %> ><%= RSc("categoria") %>
<%
RSc.MoveNext
Loop
End If

%></select></td>

[GudFella]

Originariamente inviato da satwanted
ora funziona !!!

mi sapete spiegare xche ??????


Perche stava confrontando una stringa con un numero ?

probabile