Esempio select

[teorema55]

Scusa, ho visto adesso la modifica.............stessa cosa per i capoluoghi.

L'elenco dei capoluoghi viene popolato?

[wegawhite]

Originariamente inviato da teorema55
Scusa, ho visto adesso la modifica.............stessa cosa per i capoluoghi.

L'elenco dei capoluoghi viene popolato?

No, purtroppo la seconda select indica sempre il valore TUTTE

[teorema55]

Bene, allora, siccome, come vedi dalla querystring, l'id regione è valorizzato, il motivo lo devi cercare nella query che dovrebbe estrarre i dati dal database oppure nella procedura per popolare la lista.

Puoi postare quella parte di codice aggiornata alle ultime modifiche?

[wegawhite]

Originariamente inviato da teorema55
Bene, allora, siccome, come vedi dalla querystring, l'id regione è valorizzato, il motivo lo devi cercare nella query che dovrebbe estrarre i dati dal database oppure nella procedura per popolare la lista.

Puoi postare quella parte di codice aggiornata alle ultime modifiche?

Certo ecco il code aggiornato:

 'RECUPERO I DATI DALLA PRIMA TBL DEL DATABASE
<form name="form">
 
<select size="1" name="REGIONI" style="font-size: 8 pt; font-family: Verdana" onChange="submit(this);">
                <option value="TUTTI">------TUTTI------</option>
                <%
sql = "SELECT * FROM REGIONI ORDER BY REGIONI desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value="<%=rs.Fields.Item("id_REGIONE").Value%>"><%= RS.Fields.Item("REGIONE").Value%></option>	
				

<%

strVAR = rs ("id_REGIONE")

rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

              </select> 

'FACCIO POPOLARE LA SECONDA SELECT 
<select size="1" name="CAPOLUOGHI" style="font-size: 8 pt; font-family: Verdana" onChange="aggiorna(this);";>
                <option value="TUTTE">------TUTTE------</option>
                <%

strVar = request("strVar")

if REGIONI <> 0 then
Set RS1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select distinct TABELLA.id_CAPOLUOGO as SIST, CAPOLUOGO.CAPOLUOGO as BLOC from  CAPOLUOGO  inner join TABELLA on TABELLA.id_CAPOLUOGO=CAPOLUOGO.id_CAPOLUOGO WHERE TABELLA.id_REGIONI = '"&strVar"' "

rs1.open sql1, conn

On Error Resume Next
rs1.MoveFirst  
Do While Not rs1.EOF%>

<option	value="<%=RS1("SIST")%>"><%=RS1("BLOC")%></option>
			                
<%
		RS1.Movenext
		LooP
end if
rs1.close 
set rs1 = nothing 
%>
</select>
</form>

[teorema55]

Ti conviene togliere la diabolica istruzione

"on error resume next"

si bloccherà lo script, ma almeno potremo leggerne il motivo e intervenire

[wegawhite]

Originariamente inviato da teorema55
Ti conviene togliere la diabolica istruzione


si bloccherà lo script, ma almeno potremo leggerne il motivo e intervenire

ok, eseguito.

[teorema55]

Sostituisci

if REGIONI <> 0

con

if strVar <> 0

e, già che ci sei, nella lista dei capoluoghi devi scrivere

onchange="submit(this);"

e non

aggiorna

che non va bene, perchè nel tuo script non esiste una funzione javascript "aggiorna"

Altra cosa: L'ID_regione riportato nella querystring è quello giusto, che tu hai scelto nella lista, oppure è sempre lo stesso, indipendentemente dalla tua scelta?

[wegawhite]

Originariamente inviato da teorema55
Altra cosa: L'ID_regione riportato nella querystring è quello giusto, che tu hai scelto nella lista, oppure è sempre lo stesso, indipendentemente dalla tua scelta?

L'ID_regione si valorizza correttamente secondo la regione selezionata, non è sempre lo stesso...
ecco il code modificato nelle parti in rosso, ma che non cambia nulla:

'RECUPERO I DATI DALLA PRIMA TBL DEL DATABASE
<form name="form">
 
<select size="1" name="REGIONI" style="font-size: 8 pt; font-family: Verdana" onChange="submit(this);">
                <option value="TUTTI">------TUTTI------</option>
                <%
sql = "SELECT * FROM REGIONI ORDER BY REGIONI desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, cn, 3, 3

On Error Resume Next
rs.MoveFirst  
Do While Not rs.EOF%>

<option value="<%=rs.Fields.Item("id_REGIONE").Value%>"><%= RS.Fields.Item("REGIONE").Value%></option>	
				

<%

strVAR = rs ("id_REGIONE")

rs.MoveNext
Loop
rs.Close
set rs = Nothing
%>

              </select> 

'FACCIO POPOLARE LA SECONDA SELECT 
<select size="1" name="CAPOLUOGHI" style="font-size: 8 pt; font-family: Verdana" onChange="submit(this);"   >
                <option value="TUTTE">------TUTTE------</option>
                <%

strVar = request("strVar")

if strVar <> 0 then   

Set RS1 = Server.CreateObject("ADODB.Recordset")
sql1 = "select distinct TABELLA.id_CAPOLUOGO as SIST, CAPOLUOGO.CAPOLUOGO as BLOC from  CAPOLUOGO  inner join TABELLA on TABELLA.id_CAPOLUOGO=CAPOLUOGO.id_CAPOLUOGO WHERE TABELLA.id_REGIONI = '"&strVar"' "

rs1.open sql1, conn

On Error Resume Next
rs1.MoveFirst  
Do While Not rs1.EOF%>

<option	value="<%=RS1("SIST")%>"><%=RS1("BLOC")%></option>
			                
<%
		RS1.Movenext
		LooP
end if
rs1.close 
set rs1 = nothing 
%>
</select>
</form>

[teorema55]

Intanto piazza questa istruzione

strVar = request("strVar")

a inizio pagina. Non hai tolto

on error resume next

Prova a farlo e vedi se da' errore, e quale.

In ogni caso, appena sotto la query sql1 (come istruzione immediatamente successiva) scrivi

response.write(sql1):response.end

lo script si bloccherà dopo avere scritto la query in forma esplicita.

Posta quella.

[teorema55]

Importante: rs("id_REGIONE") lo hai immagazzinato nella variabile "strVar".

Quando ne acquisisci il valore per mezzo di

request("strVar")

è meglio usare un nome diverso, anche le macchine (se male istruite da noi) tendono a confondersi.

Fai per esempio

capol = request.querystring("strVar")

e nella query sql1 scriverai

WHERE id_REGIONE = "&capol&""

Okkio: senza singolo apice, è una variabile numerica!