errore Microsoft VBScript runtime error '800a01fb'

[numapompilio]

<tr>
<td align="center">




<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="27%" valign="middle" align="center" bordercolor="#808080" colspan="6"><font face="Tahoma" color="#afeeee" size="3">IMPEGNI</font></td>
</tr>
<tr>
<td width="5%" valign="middle" align="center" bordercolor="#808080"><p align="center"></td>
<td width="3%" valign="middle" align="center" bordercolor="#808080"><font size="1" face="Tahoma" color="#fff8dc">DATA</font></td>
<td width="2%" valign="middle" align="center" bordercolor="#808080"><font size="1" face="Tahoma" color="#fff8dc">ORA</font></td>
<td width="7%" valign="middle" align="center" bordercolor="#808080"><font face="Tahoma" color="#fff8dc" size="1">OPERATORE</font></td>
<td width="5%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1"></font></td>
<td width="5%" valign="middle" align="center"><font size="1" face="Tahoma" color="#fff8dc">CONFERMA</font></td>
</tr>
</table>


<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td align="center">



<%
strSQL = "SELECT * FROM impegni WHERE " &_
"operatorescadenza Like '%" & Trim(session("operatorescadenza")) & "%' AND datascadenza Like '%" & Trim(session("datascadenza")) & "%' ORDER BY datascadenza ASC, orainizio ASC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cn
%>
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="100%">
<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<% While NOT objrs.EOF %>
<tr>
<td width="5%" align="center"><p align="center">" target="_self"><font face="Tahoma" size="2">[img]edit.gif[/img]</font></p></td>
<td width="3%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("datascadenza")%></font></td>
<td width="2%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("orainizio")%></font></td>
<td width="7%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("operatorescadenza")%></font></td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"></font></td>
<td width="5%" align="center"></td>
</tr>
<%objrs.MoveNext : Wend%>
</table>
</td>
</tr>
</table>

<%
'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

[numapompilio]

t ho inviato lapagina completa fammi sapere se è sufficiente


grazie mille

[viki1967]

E' più che sufficiente...

Solo una cosa:

Il codice che ti ho postato in quale di queste decine di pagine lo hai "infilato" ?

[numapompilio]

la 4


scusa

[numapompilio]

Qualche novita ????

[viki1967]

passami solo la pagina 4 e solo la parte asp, please.

[numapompilio]

<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
While NOT objrs.EOF
If Len(objrs("codiceimmobile")) > 0 Then Trova_Indirizzo(objrs("codiceimmobile"))
%>
<tr>
<td width="3%" align="center">
<p align="center">" target="_self"><font face="Tahoma" size="2">[img]edit.gif[/img]</font></p>
</td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("datascadenza")%></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("orainizioscadenza")%></font></td>
<td width="14%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("operatorescadenza")%></font></td>
<td width="2%" align="center">" target="_blank"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("codice")%></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%If Len(objrs("codice")) > 0 Then Response.write Trova_Cognome_Telefono(objrs("codice"), "Cognome") %></font></td>
<td width="8%" align="center">');void(0);"><font face="Tahoma" color="#FFFFFF" size="1"><% If Len(objrs("codice")) > 0 Then Response.write Trova_Cognome_Telefono(objrs("codice"), "Telefono") %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strIndirizzo %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strCivico %></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strComune %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tiposcadenza")%></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tipoappuntamento")%></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("conferma")%></font></td>
</tr>
<%
strIndirizzo = "" : strComune = "" : strCivico = ""
objrs.MoveNext
Wend
%>
</table>
</td>
</tr>
</table>
<%
'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>


</td>
</tr>

























<tr>
<td align="center">



<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="100%" valign="middle" align="center" bordercolor="#808080" colspan="12"><font face="Tahoma" color="#afeeee" size="3">VENDITE per CASA</font></td>
</tr>


<tr>
<td align="center">



<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="100%" valign="middle" align="center" bordercolor="#808080" colspan="12"><font face="Tahoma" color="#afeeee" size="3">

<%
// Istanzio l'oggetto XMLHTTP
var richiesta = new ActiveXObject("Msxml2.XMLHTTP.4.0");

// Apro l'oggetto ed invio la richiesta
richiesta.Open("GET", "http://www.dfasdfadfdfsdfe.com/public/elencocolloquiimpc.xml", false);
richiesta.Send();

// Stampo a video il contenuto del file Xml remoto
Response.Write(richiesta.responseXML.xml);
%>

</font></td>
</tr>



<tr>
<td width="3%" valign="middle" align="center" bordercolor="#808080"><p align="center"></td>
<td width="5%" valign="middle" align="center" bordercolor="#808080"><font size="1" face="Tahoma" color="#fff8dc">DATA</font></td>
<td width="8%" valign="middle" align="center" bordercolor="#808080"><font size="1" face="Tahoma" color="#fff8dc">ORA</font></td>
<td width="14%" valign="middle" align="center" bordercolor="#808080"><font face="Tahoma" color="#fff8dc" size="1">OP.</font></td>
<td width="2%" valign="middle" align="center" bordercolor="#808080"><font size="1" face="Tahoma" color="#fff8dc">N.</font></td>
<td width="12%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">RIC.</font></td>
<td width="8%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">TEL.</font></td>
<td width="8%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">INDIRIZZO</font></td>
<td width="8%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">CIVICO</font></td>
<td width="10%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">COMUNE</font></td>
<td width="13%" valign="middle" align="center"><font face="Tahoma" color="#fff8dc" size="1">TIPO SCAD.</font></td>
<td width="10%" valign="middle" align="center"><font size="1" face="Tahoma" color="#fff8dc">CONFERMA</font></td>
</tr>
</table>


<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td align="center">

<%
strSQL = "SELECT * FROM colloqui WHERE " &_
"operatorescadenza Like '%" & Trim(session("operatorescadenza")) & "%' AND datascadenza Like '%" & Trim(session("datascadenza")) & "%' AND tiposcadenza Like '%" & Trim(session("tiposcadenza")) & "%' AND aggiornato Like '%" & Trim(session("aggiornato")) & "%' AND pcasa = 'SI' AND agenzia Like '%" & Trim(session("agenzia")) & "%' ORDER BY datascadenza ASC, orainizioscadenza ASC"

Set objrs = Server.CreateObject("ADODB.Recordset")
objrs.cursorlocation = 3
objrs.Open strSQL, cnx
%>

<table border="0" cellpadding="0" cellspacing="0" width="100%" align="center">
<tr>
<td width="100%">




<script Language="javascript">
<!--
browserName = navigator.appName;
browserVer = parseInt(navigator.appVersion);
if (!(browserVer < 3)) { doAnimate = "ok"; } else { doAnimate = "no"; }

function apritelefono(cod) {
window.open("telefono.asp?cod="+cod,"contest_windo w5"," width=300,height=40,toolbar=0,location=5
,directories=0,status=0,menubar=0,scroll
bars=0,resizable=1,copyhistory=0,leftmar
gin=0,topmargin=0,marginwidth=0,marginhe
ight=0") }


// -->


</script>




<table border="0" cellpadding="0" cellspacing="0" width="100%">
<%
While NOT objrs.EOF
If Len(objrs("codiceimmobile")) > 0 Then Trova_Indirizzo(objrs("codiceimmobile"))
%>
<tr>
<td width="3%" align="center">
<p align="center">" target="_self"><font face="Tahoma" size="2">[img]edit.gif[/img]</font></p>
</td>
<td width="5%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("datascadenza")%></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("orainizioscadenza")%></font></td>
<td width="14%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("operatorescadenza")%></font></td>
<td width="2%" align="center">" target="_blank"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("codice")%></font></td>
<td width="12%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%If Len(objrs("codice")) > 0 Then Response.write Trova_Cognome_Telefono(objrs("codice"), "Cognome") %></font></td>
<td width="8%" align="center">');void(0);"><font face="Tahoma" color="#FFFFFF" size="1"><% If Len(objrs("codice")) > 0 Then Response.write Trova_Cognome_Telefono(objrs("codice"), "Telefono") %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strIndirizzo %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strCivico %></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%= strComune %></font></td>
<td width="8%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tiposcadenza")%></font></td>
<td width="4%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("tipoappuntamento")%></font></td>
<td width="10%" align="center"><font face="Tahoma" color="#FFFFFF" size="1"><%=objrs("conferma")%></font></td>
</tr>
<%
strIndirizzo = "" : strComune = "" : strCivico = ""
objrs.MoveNext
Wend
%>
</table>
</td>
</tr>
</table>
<%
'Chiusura recordset
objrs.Close
Set objrs = Nothing
%>


</td>
</tr>

[viki1967]

Avevo chiesto solo la parte asp, così mi viene mal di testa...

[numapompilio]

In teoria ho risolto dividendo la pagina in 2 frame

ti lascio lo script cmq



// Istanzio l'oggetto XMLHTTP
var richiesta = new ActiveXObject("Msxml2.XMLHTTP.4.0");

// Apro l'oggetto ed invio la richiesta
richiesta.Open("GET", "http://www.dfasdfadfdfsdfe.com/public/elencocolloquiimpc.xml", false);
richiesta.Send();

// Stampo a video il contenuto del file Xml remoto
Response.Write(richiesta.responseXML.xml);
%>

[numapompilio]

come t dicevo in teoria ho risolto .....


ho pero un problema sempre simile ad un altra pagina t posso inviare una email con l'allegato che lo vedi meglio e soprattutto forse perdiamo meno tempo



grazie.