Salve ragazzi scusate ma non riesco a trovare una via di uscita a uqesti problema.
Ho una select che preleva i dati da un Db. Una volta selezionato un valore verrà creato una text box con i risultati di quella selezione.
Ora vorrei fare in modo che i dati appena creati vengano scritti automaticamente in un'tro campo testo che sta su un'altro form.
Questa è la select:
Questo è il javascript:codice:<select name="fornitore" id="fornitore" onchange="codFornitore(this.value);" > <option value="0"></option> <% SQL = "SELECT * FROM fornitore ORDER BY fornitore ASC" rs.Open SQL, cn, 1 While rs.EOF = False %> <option value="<%=rs("id_fornitore")%>"><%=rs("fornitore")%></option> <% rs.MoveNext Wend rs.Close %>
e questo è il file dove creo i campi testo con i risultati della scelta:codice:// JavaScript Document var XMLHTTP; function codFornitore(ID) { if (parseInt(ID) > 0) { var url = "codFornitore.asp?id_fornitore=" + ID; XMLHTTP = RicavaBrowser(CambioStato); XMLHTTP.open("GET", url, true); XMLHTTP.send(null); } else { document.getElementById("risultati").innerHTML = ""; } } function CambioStato() { if (XMLHTTP.readyState == 4) { var R = document.getElementById("risultati"); 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!"); } }
Il file config.asp ha solo la connessione al DB.codice:<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim id id = Request.QueryString("id_fornitore") If IsNumeric(id) = False Or id < 1 Then Response.Write "Selezionare un fornitore valido!" Response.End End If Call CnOpen() Dim SQL SQL = "SELECT * FROM fornitore " SQL = SQL & "WHERE id_fornitore = " & id & " " SQL = SQL & "ORDER BY fornitore ASC" rs.Open SQL, cn, 1 If rs.EOF Then Response.Write "Selezionare un fornitore valido!" Else %> <input name="regioni" type="text" class="testoDati" id="regioni" value="<%=rs("codFornitore")%>" size="40"/> <input name="fornitore_2" type="text" class="testoDati" id="fornitore_2" size="40" value="<%=rs("fornitore")%>"/> <% End If rs.Close Call CnClose() %>
Come posso risolvere??
![]()

Rispondi quotando