Salve a tutti,
ho un problema con uno script ajax integrato in uno script asp
Il problema me lo da con Explorer (ver. 6.0) ma non con Mozilla.
Il problema è il seguente:
Da lo script asp che segue...
<html>
<head>
<script src="selectcustomer.js"></script>
<LINK HREF="../../../styles/mainadm.css" TYPE="text/css" REL="stylesheet">
</head><body><form>
<div id="txtHint" style="margin-left:10px ">Seleziona una voce da modificare:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:21px;" name="elemento" onchange="showItem(this.value)">
<%
dim RS
set RS = Server.CreateObject("ADODB.RECORDSET")
RS.ActiveConnection=Application("AppDSN")
RS.Open("SELECT id, Nome from Catalogo order by nome")
Response.Write("<option selected></option>")
while not RS.EOF
Response.Write "<option value=" & RS("id") & ">" & RS("nome") & "</option>" & vbcrlf
RS.movenext
wend
RS.close
set RS=nothing
%>
</select>
</div>
</form>
</body>
</html>
selezionando dalla combo box un valore con mozilla funziona mentre con explorer mi dà il seguente errore:
Errore: errore di run-time sconosciuto.
Lo script si blocca subito dopo l'istruzione <form...> relativa allo script getitem.asp lanciato dal file selectcustomer.js
Posto i due script:
SELECTCUSTOMER.JS
var xmlHttp
function showItem(str)
{
xmlHttp=GetXmlHttpObject();
if (xmlHttp==null)
{
alert ("Your browser does not support AJAX!");
return;
}
var url="getitem.asp";
url=url+"?q="+str;
url=url+"&sid="+Math.random();
xmlHttp.onreadystatechange=stateChanged;
xmlHttp.open("GET",url,true);
xmlHttp.send(null);
}
function stateChanged()
{
if (xmlHttp.readyState==4)
{
document.getElementById("txtHint").innerHTML=xmlHttp.responseText;
}
}
function GetXmlHttpObject()
{
var xmlHttp=null;
try
{
// Firefox, Opera 8.0+, Safari
xmlHttp=new XMLHttpRequest();
}
catch (e)
{
// Internet Explorer
try
{
xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e)
{
xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
}
}
return xmlHttp;
}
e
GETITEM.ASP
<html>
<head>
<title>Catalogo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK HREF="../../../styles/mainadm.css" TYPE="text/css" REL="stylesheet">
</HEAD>
<body BGCOLOR=#E4DBE9 LEFTMARGIN=3 TOPMARGIN=3 MARGINWIDTH=0 MARGINHEIGHT=0>
<%
response.expires=-1
sql="SELECT * FROM catalogo WHERE ID="
sql=sql & "'" & request.querystring("q") & "'"
set conn=Server.CreateObject("ADODB.Connection")
conn.Open(Application("AppDSN"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open sql, conn
colore=rs("colore")
gruppo=rs("gruppo")
specie=rs("specie")
immagine=rs("immagine")
testo=rs("testo")
RS.close
set RS=nothing
%>
<img src="../../../immagini/postit3.gif" border="0" align="absmiddle" style="margin-left:5px; margin-top:5px ">
<br><br>
<form>
<div style="margin-left:10px; ">Colore:
<select name="colore" style="font-family:tahoma; font-size:11px; margin-left:13px;">
<%
dim RSColore
set RSColore = Server.CreateObject("ADODB.RECORDSET")
RSColore.ActiveConnection=Application("AppDSN")
RSColore.Open("Select * from Colori")
Response.Write("<option selected>"& colore & "</option>")
while not RSColore.EOF
if ucase(colore)<> ucase(RSColore(1)) then
Response.Write "<option value=" & trim(RSColore(0)) & ">" & RSColore(1) & "</option>" & vbcrlf
end if
RSColore.movenext
wend
RSColore.close
set RSColore=nothing
%>
</select>
</div>
<div style="margin-left:10px; ">Gruppo:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:8px; " name="gruppo">
<%
dim RSGruppo
set RSGruppo = Server.CreateObject("ADODB.RECORDSET")
RSGruppo.ActiveConnection=Application("AppDSN")
RSGrupp
pen("Select * from Gruppo order by gruppo")
Response.Write("<option selected></option>")
while not RSGruppo.EOF
Response.Write "<option value=" & trim(RSGruppo(0)) & ">" & RSGruppo(1) & "</option>" & vbcrlf
RSGruppo.movenext
wend
RSGruppo.close
set RSGruppo=nothing
%>
</select>
</div>
<div style="margin-left:10px ">Specie:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:11px; " name="specie">
<%
dim RSSpecie
set RSSpecie = Server.CreateObject("ADODB.RECORDSET")
RSSpecie.ActiveConnection=Application("AppDSN")
RSSpecie.Open("Select * from Specie order by specie")
Response.Write("<option selected></option>")
while not RSSpecie.EOF
Response.Write "<option value=" & trim(RSSpecie(0)) & ">" & RSSpecie(1) & "</option>" & vbcrlf
RSSpecie.movenext
wend
RSSpecie.close
set RSSpecie=nothing
%>
</select>
</div>
<div style="margin-left:10px ">Immagine:
<input type="text" maxlength=50 value="/colore/immagini/.jpg" size="50" style="font-family:tahoma; font-size:11px; margin-left:0px " name="immagine">
</div>
<div style="margin-left:10px ">Testo:
<textarea style="font-family:tahoma; font-size:11px; margin-left:17px " name="testo" rows=15 cols=60 ></textarea>
</div>
<br>
<br>
<div style="margin-left:170px ">
<br style="line-height:5px ">
<INPUT type="button" value="aggiungi" name="b1" onclick="Controlla()"> <input type="Reset" Value="annulla" id=Reset1 name=Reset1>
</div>
<br>
</form>
<div style="height:1px; background-image:url(../../../immagini/dot1.jpg); margin-left:10px; margin-right:10px "><img src="../../../immagini/spacer.gif"></div>
</body>
</html>
Sapete dirmi perché questo coportamento difforme?
Grazie in anticipo
ho un problema con uno script ajax integrato in uno script asp
Il problema me lo da con Explorer (ver. 6.0) ma non con Mozilla.
Il problema è il seguente:
Da lo script asp che segue...
<html>
<head>
<script src="selectcustomer.js"></script>
<LINK HREF="../../../styles/mainadm.css" TYPE="text/css" REL="stylesheet">
</head><body><form>
<div id="txtHint" style="margin-left:10px ">Seleziona una voce da modificare:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:21px;" name="elemento" onchange="showItem(this.value)">
<%
dim RS
set RS = Server.CreateObject("ADODB.RECORDSET")
RS.ActiveConnection=Application("AppDSN")
RS.Open("SELECT id, Nome from Catalogo order by nome")
Response.Write("<option selected></option>")
while not RS.EOF
Response.Write "<option value=" & RS("id") & ">" & RS("nome") & "</option>" & vbcrlf
RS.movenext
wend
RS.close
set RS=nothing
%>
</select>
</div>
</form>
</body>
</html>
selezionando dalla combo box un valore con mozilla funziona mentre con explorer mi dà il seguente errore:
Errore: errore di run-time sconosciuto.
Lo script si blocca subito dopo l'istruzione <form...> relativa allo script getitem.asp lanciato dal file selectcustomer.js
Posto i due script:
SELECTCUSTOMER.JS
var xmlHttp
function showItem(str)
{
xmlHttp=GetXmlHttpObject();
if (xmlHttp==null)
{
alert ("Your browser does not support AJAX!");
return;
}
var url="getitem.asp";
url=url+"?q="+str;
url=url+"&sid="+Math.random();
xmlHttp.onreadystatechange=stateChanged;
xmlHttp.open("GET",url,true);
xmlHttp.send(null);
}
function stateChanged()
{
if (xmlHttp.readyState==4)
{
document.getElementById("txtHint").innerHTML=xmlHttp.responseText;
}
}
function GetXmlHttpObject()
{
var xmlHttp=null;
try
{
// Firefox, Opera 8.0+, Safari
xmlHttp=new XMLHttpRequest();
}
catch (e)
{
// Internet Explorer
try
{
xmlHttp=new ActiveXObject("Msxml2.XMLHTTP");
}
catch (e)
{
xmlHttp=new ActiveXObject("Microsoft.XMLHTTP");
}
}
return xmlHttp;
}
e
GETITEM.ASP
<html>
<head>
<title>Catalogo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK HREF="../../../styles/mainadm.css" TYPE="text/css" REL="stylesheet">
</HEAD>
<body BGCOLOR=#E4DBE9 LEFTMARGIN=3 TOPMARGIN=3 MARGINWIDTH=0 MARGINHEIGHT=0>
<%
response.expires=-1
sql="SELECT * FROM catalogo WHERE ID="
sql=sql & "'" & request.querystring("q") & "'"
set conn=Server.CreateObject("ADODB.Connection")
conn.Open(Application("AppDSN"))
set rs = Server.CreateObject("ADODB.recordset")
rs.Open sql, conn
colore=rs("colore")
gruppo=rs("gruppo")
specie=rs("specie")
immagine=rs("immagine")
testo=rs("testo")
RS.close
set RS=nothing
%>
<img src="../../../immagini/postit3.gif" border="0" align="absmiddle" style="margin-left:5px; margin-top:5px ">
<br><br>
<form>
<div style="margin-left:10px; ">Colore:
<select name="colore" style="font-family:tahoma; font-size:11px; margin-left:13px;">
<%
dim RSColore
set RSColore = Server.CreateObject("ADODB.RECORDSET")
RSColore.ActiveConnection=Application("AppDSN")
RSColore.Open("Select * from Colori")
Response.Write("<option selected>"& colore & "</option>")
while not RSColore.EOF
if ucase(colore)<> ucase(RSColore(1)) then
Response.Write "<option value=" & trim(RSColore(0)) & ">" & RSColore(1) & "</option>" & vbcrlf
end if
RSColore.movenext
wend
RSColore.close
set RSColore=nothing
%>
</select>
</div>
<div style="margin-left:10px; ">Gruppo:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:8px; " name="gruppo">
<%
dim RSGruppo
set RSGruppo = Server.CreateObject("ADODB.RECORDSET")
RSGruppo.ActiveConnection=Application("AppDSN")
RSGrupp
pen("Select * from Gruppo order by gruppo")Response.Write("<option selected></option>")
while not RSGruppo.EOF
Response.Write "<option value=" & trim(RSGruppo(0)) & ">" & RSGruppo(1) & "</option>" & vbcrlf
RSGruppo.movenext
wend
RSGruppo.close
set RSGruppo=nothing
%>
</select>
</div>
<div style="margin-left:10px ">Specie:
<select size=1 style="font-family:tahoma; font-size:11px; margin-left:11px; " name="specie">
<%
dim RSSpecie
set RSSpecie = Server.CreateObject("ADODB.RECORDSET")
RSSpecie.ActiveConnection=Application("AppDSN")
RSSpecie.Open("Select * from Specie order by specie")
Response.Write("<option selected></option>")
while not RSSpecie.EOF
Response.Write "<option value=" & trim(RSSpecie(0)) & ">" & RSSpecie(1) & "</option>" & vbcrlf
RSSpecie.movenext
wend
RSSpecie.close
set RSSpecie=nothing
%>
</select>
</div>
<div style="margin-left:10px ">Immagine:
<input type="text" maxlength=50 value="/colore/immagini/.jpg" size="50" style="font-family:tahoma; font-size:11px; margin-left:0px " name="immagine">
</div>
<div style="margin-left:10px ">Testo:
<textarea style="font-family:tahoma; font-size:11px; margin-left:17px " name="testo" rows=15 cols=60 ></textarea>
</div>
<br>
<br>
<div style="margin-left:170px ">
<br style="line-height:5px ">
<INPUT type="button" value="aggiungi" name="b1" onclick="Controlla()"> <input type="Reset" Value="annulla" id=Reset1 name=Reset1>
</div>
<br>
</form>
<div style="height:1px; background-image:url(../../../immagini/dot1.jpg); margin-left:10px; margin-right:10px "><img src="../../../immagini/spacer.gif"></div>
</body>
</html>
Sapete dirmi perché questo coportamento difforme?
Grazie in anticipo
