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:
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
%>
Questo è il javascript:
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!");
}
}
e questo è il file dove creo i campi testo con i risultati della scelta:
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()
%>
Il file config.asp ha solo la connessione al DB.
Come posso risolvere??