problemino con select e db

[Lino80]

ciao,
il codice qui sotto mi restituisce i risultati: /?modello=&regioni=1&carburante=&Go=Cerca
con value vuoto mi da: /?modello=&regioni=&province=&carburante=&Go=Cerca

vorrei che mi restituisse i risultati così: /?modello=appartamento&province=Roma&carburante=aff itto&Go=Cerca

come faccio? ho provato a cambiare il value ma non funziona..

<form name="italia" method="get" action="../cerca/">
                                  <td><table width="206" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="130"><select name="modello" id="immobile" size="1" tabindex="10" style="width:117px">
<option value="" selected>TUTTE LE TIPOLOGIE</option>
<option value="appartamento">Appartamento</option>
<option value="villetta">Villetta</option>
</select>

<select name="regioni" onchange="Province(this.value)">
<option value=""></option>
<%
    Dim SQL
    SQL = "SELECT * FROM regioni ORDER BY reg_nome ASC"
    rs.Open SQL, cn, 1
    While rs.EOF = False
%>
<option value="<%=rs("reg_id")%>"><%=rs("reg_nome")%></option>
<%
        rs.MoveNext
    Wend
    rs.Close
%>
</select>

<div id="ris_province">
<select name="province" onchange="Comuni(this.value)">
<option value=""></option>
<%
    Dim SQL1
    SQL1 = "SELECT * FROM province ORDER BY pro_nome ASC"
    rs.Open SQL1, cn, 1
    While rs.EOF = False
%>
<option value="<%=rs("pro_id")%>"><%=rs("pro_nome")%></option>
<%
        rs.MoveNext
    Wend
    rs.Close
%>
</select>
</div>     

<select name="carburante" id="carburante" size="1" tabindex="10" style="width:117px">
<option value="" selected>CONTRATTO</option>
<option value="affitto">Affitto</option>
<option value="vendita">Vendita</option>
</select>
</td>
                                        <td width="76" valign="bottom"><input name="Go" value="Cerca" type="submit"></td>
                                      </tr>
                                  </table></td>
                                </form>

[Lino80]

se cambio così:

<option value="<%=rs("reg_nome")%>"><%=rs("reg_nome")%></option>

non mi funziona più lo script...
non mi apre il menu a tendina delle province..

[Lino80]

pagina province.asp:

<%@LANGUAGE = VBScript%>

<%
    Dim id
    id = Request.QueryString("id")
    If IsNumeric(id) = False Or id < 1 Then
        Response.Write "Selezionare una regione valida!"
        Response.End
    End If
    Call CnOpen()
    Dim SQL
    SQL = "SELECT * FROM province "
    SQL = SQL & "WHERE pro_regione = " & id & " "
    SQL = SQL & "ORDER BY pro_nome ASC"
    rs.Open SQL, cn, 1
    If rs.EOF Then
        Response.Write "Selezionare una regione valida!"
    Else
%>
<select name="regioni">
<option value="0"></option>
<%
        While rs.EOF = False
%>
<option value="<%=rs("pro_id")%>"><%=rs("pro_nome")%></option>
<%
            rs.MoveNext
        Wend
%>
</select>
<%
    End If
    rs.Close
    Call CnClose()
%>

[Lino80]

codice js:

var XMLHTTP;

function Province(ID)
{
    if (parseInt(ID) > 0)
    {
        var url = "province.asp?id=" + ID;
        XMLHTTP = RicavaBrowser(CambioStatoProv);
        XMLHTTP.open("GET", url, true);
        XMLHTTP.send(null);
    }
    else
    {
        document.getElementById("ris_province").innerHTML = "";
    } 
}

function Comuni(ID)
{
alert(ID);

    if (parseInt(ID) > 0)
    {
        var url = "comuni.asp?id=" + ID;
        XMLHTTP = RicavaBrowser(CambioStatoCom);
        XMLHTTP.open("GET", url, true);
        XMLHTTP.send(null);
    }
    else
    {
        document.getElementById("ris_comuni").innerHTML = "";
    } 
}


function CambioStatoProv()
{
    if (XMLHTTP.readyState == 4)
    {
        var R = document.getElementById("ris_province");
        R.innerHTML = XMLHTTP.responseText;
    }
}

function CambioStatoCom()
{
    if (XMLHTTP.readyState == 4)
    {
        var R = document.getElementById("ris_comuni");
        R.innerHTML = XMLHTTP.responseText;
    }
}

function RicavaBrowser(QualeBrowser)
{
    if (navigator.userAgent.indexOf("MSIE") != (-1))
    {
        var Classe = "Msxml2.XMLHTTP";
        if (navigator.appVersion.indexOf("MSIE 5.5") != (-1));
        {
            Classe = "Microsoft.XMLHTTP";
        } 
        try
        {
            OggettoXMLHTTP = new ActiveXObject(Classe);
            OggettoXMLHTTP.onreadystatechange = QualeBrowser;
            return OggettoXMLHTTP;
        }
        catch(e)
        {
            alert("Errore: l'ActiveX non verrà eseguito!");
        }
    }
    else if (navigator.userAgent.indexOf("Mozilla") != (-1))
    {
        OggettoXMLHTTP = new XMLHttpRequest();
        OggettoXMLHTTP.onload = QualeBrowser;
        OggettoXMLHTTP.onerror = QualeBrowser;
        return OggettoXMLHTTP;
    }
    else
    {
        alert("L'esempio non funziona con altri browser!");
    }
}

[Lino80]

non capisco perchè mi restituisce il valore di "reg_id"
come faccio a far visualizzare il valore di "reg_nome" ?

grazie

[faccia da libro]

Originariamente inviato da Lino80
se cambio così:

<option value="<%=rs("reg_nome")%>"><%=rs("reg_nome")%></option>

non mi funziona più lo script...
non mi apre il menu a tendina delle province..

lo script non ti funziona perchè và a cercare il nome della provincia nel campo ID che propabliemente è un campo numerico, quindi non trova corrispondenza e la select non si aggirna.

ti consiglio di rimanere con il campo ID in questo modo non crei problemi con regioni tipo

val d'aosta o province come l'aquila che hanno un fastidioso apice (') da gestire, cosa che con fli id non accadrebbe.

[Lino80]

ciao grazie per la risposta..

devo cambiarlo per forza perchè deve restituirmi il valore: regioni=Abruzzo o province=Chieti
se mi restituisce regioni=1 non mi elenca quello che serve a me!
dove si cambia, in che pagina?

grazie

[Lino80]

chi mi da una mano a cambiare regione=1 in regione=Abruzzo ?

graziee

[faccia da libro]

così dovrebbe funzionare, fino alle province

<form name="italia" method="get" action="../cerca/">
                                  <td><table width="206" border="0" cellspacing="0" cellpadding="0">
                                      <tr>
                                        <td width="130"><select name="modello" id="immobile" size="1" tabindex="10" style="width:117px">
<option value="" selected>TUTTE LE TIPOLOGIE</option>
<option value="appartamento">Appartamento</option>
<option value="villetta">Villetta</option>
</select>

<select name="regioni" onchange="Province(this.value)">
<option value=""></option>
<%
    Dim SQL
    SQL = "SELECT * FROM regioni ORDER BY reg_nome ASC"
    rs.Open SQL, cn, 1
    While rs.EOF = False
%>
<option value="<%=rs("reg_nome")%>"><%=rs("reg_nome")%></option>
<%
        rs.MoveNext
    Wend
    rs.Close
%>
</select>

<div id="ris_province">
<select name="province" onchange="Comuni(this.value)">
<option value=""></option>
<%
    Dim SQL1
    SQL1 = "SELECT * FROM province ORDER BY pro_nome ASC"
    rs.Open SQL1, cn, 1
    While rs.EOF = False
%>
<option value="<%=rs("pro_nome")%>"><%=rs("pro_nome")%></option>
<%
        rs.MoveNext
    Wend
    rs.Close
%>
</select>
</div>     

<select name="carburante" id="carburante" size="1" tabindex="10" style="width:117px">
<option value="" selected>CONTRATTO</option>
<option value="affitto">Affitto</option>
<option value="vendita">Vendita</option>
</select>
</td>
                                        <td width="76" valign="bottom"><input name="Go" value="Cerca" type="submit"></td>
                                      </tr>
                                  </table></td>
                                </form>

in provincie.asp invece

<%@LANGUAGE = VBScript%>

<%
    Dim id
    id = Request.QueryString("id")
    
    Call CnOpen()
    Dim SQL
    SQL = "SELECT * FROM province "
    SQL = SQL & "WHERE pro_nome = " & id & " "
    SQL = SQL & "ORDER BY pro_nome ASC"
    rs.Open SQL, cn, 1
    If rs.EOF Then
        Response.Write "Selezionare una regione valida!"
    Else
%>
<select name="regioni">
<option value="0"></option>
<%
        While rs.EOF = False
%>
<option value="<%=rs("pro_nome")%>"><%=rs("pro_nome")%></option>
<%
            rs.MoveNext
        Wend
%>
</select>
<%
    End If
    rs.Close
    Call CnClose()
%>

la stessa modifica và fatta in comuni.asp

[Lino80]

ok grazie mille... provo e ti faccio sapere..