salve a tutti.
allora in pratica ho modificato per le mie esigenze uno script
che prevede due select dinamiche con refresh tramite script java.
alle prime due select ci sono, ma nonostante abbia provato fino alla morte
non riesco a fare la terza select.in pratica non riesco a fare in modo che la seconda pagina
mi carichi una terza select.
ciao e grazie
questo è quello che sono riuscito a fare fino ad ora
http://ascm.somee.com/txt/fondo_ajax.asp
posto il codice delle pagine
fondo.asp
serieVERO_ajax.aspcodice:<% Call CnOpen() %> <html> <head> <title>Archivio storico comunale di Monreale</title> <script type="text/javascript" src="serieVERO_ajax.js"></script> </head> <body> <form name="italia"> <select name="fondo" id="fondo" onChange="Province(this.value)"> <option value="0"></option> <% Dim SQL SQL = "SELECT * FROM fondo ORDER BY fondo ASC" rs.Open SQL, cn, 1 While rs.EOF = False %> <option value="<%=rs("id")%>"><%=rs("fondo")%></option> <% rs.MoveNext Wend rs.Close %> </select> <div id="risultati"></div> </form> </body> </html> <% Call CnClose() %>
serieVERO_ajax_3_livellocodice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <html> <head> <title></title> </head> <body> <% Dim id id = Request.QueryString("id") If IsNumeric(id) = False Or id < 1 Then Response.Write "Selezionare una sezione valida!" Response.End End If Call CnOpen() Dim SQL SQL = "SELECT distinct id_sez, sezione FROM serie " SQL = SQL & "WHERE id_sez = " & id & " " SQL = SQL & "ORDER BY sezione ASC" rs.Open SQL, cn, 1 If rs.EOF Then Response.Write "Selezionare una serie valida!" Else %> <select name="sezione" id="sezione"> <option value="0"></option> <% While rs.EOF = False %> <option value="<%=rs("id_sez")%>"><%=rs("sezione")%></option> <% rs.MoveNext Wend %> </select> <tr bgcolor="C7F1F1"> <td height="28" colspan="2" class="Stile4 Stile9"><input type="submit" name="invia" id="invia" value="AVANTI" /></td> </tr> </body> </html> <% End If rs.Close Call CnClose() %>
codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <html> <head> <title></title> </head> <body> <% Dim id id = Request.QueryString("id_sez") If IsNumeric(id) = False Or id < 1 Then Response.Write "Selezionare una sezione valida!" Response.End End If Call CnOpen() Dim SQL SQL = "SELECT distinct serie, id FROM serie " SQL = SQL & "WHERE id_sez = " & id & " " SQL = SQL & "ORDER BY serie ASC" rs.Open SQL, cn, 1 If rs.EOF Then Response.Write "Selezionare una serie valida!" Else %> <select name="sezione" id="sezione"> <option value="0"></option> <% While rs.EOF = False %> <option value="<%=rs("id")%>"><%=rs("serie")%></option> <% rs.MoveNext Wend %> </select> <tr bgcolor="C7F1F1"> <td height="28" colspan="2" class="Stile4 Stile9"><input type="submit" name="invia" id="invia" value="AVANTI" /></td> </tr> </body> </html> <% End If rs.Close Call CnClose() %>
Rispondi quotando
fulvio
