errore

**jet** · 16-06-2003, 17:55

Microsoft VBScript runtime error '800a01a8'

Object required: ''

Ottengo questo errore in un motore di ricerca interno, ma poi funziona. Di che si tratta?

**dedoweb** · 17-06-2003, 10:09

In qualche punto della pagina fai riferimento ad un oggetto che non è stato inizializzato...

**jet** · 17-06-2003, 10:24

La riga per la quale ottengo l'errore è quella in rosso:
ma è una function che non dovrebbe interessare il motore.

<script>
function finpopup(url) {
var largSch = screen.width;
var lungSch = screen.height;
var largFin = "300";
var lungFin = "200";
var pippo = "3";
var dasx= ((largSch-largFin)/2);
var datop = ((lungSch-lungFin)/2);
var parametri = "width=" + largFin +", height=" + lungFin + ", left=" + dasx +", top=" + datop, fullscreen=" + pippo ";
window.open(url, "", parametri);
}
</script>

**dedoweb** · 17-06-2003, 10:27

L'errore è lato server non lato client !!

Quella è una funzione javascript...

**jet** · 17-06-2003, 10:36

Lo so, ma è quello l'errore che ottengo!

**dedoweb** · 17-06-2003, 10:38

Suppongo sia una pagina asp...sei sicuro/a che non ci siano errori nel codice vbscript??

Prova a postare il codice...
:master:

**jet** · 17-06-2003, 10:50

<%
' stringa di connessione
strConn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & _
Server.MapPath("xxxx.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open strConn

' mostro il numero totale di visite
set rs = conn.Execute("SELECT Accessi FROM visite")
visite = rs("Accessi")

Dim ControllaAccessi
ControllaAccessi = Request.Cookies("CONTATORE")

'Se il cookie non è presente effettuo l'update di aggiornamento
if (ControllaAccessi = "") then
Dim ScadenzaControlloAccessi
ScadenzaControlloAccessi = Date
Response.Cookies("CONTATORE") = ScadenzaControlloAccessi

' aggiungo una visita
SQL = " UPDATE visite SET Accessi = Accessi + 1"
conn.Execute(SQL)

Response.write("<div align='right' class='testonormale'><font color='#0000FF' face='Verdana' size='1'>Visite: </font><font color='#FF0000' face='Verdana' size='2'>" & visite & "</font></div>")

else

Response.write("<div align='right' class='testonormale'><font color='#0000FF' face='Verdana' size='1'>Visite: </font><font color='#FF0000' face='Verdana' size='2'>" & visite & "</font></div>")

End if

' pulizia!
rs.Close
set rs = Nothing

conn.Close
set conn = Nothing
%>

<%
'Response.write("<div align='right' class='testonormale'><font color='#0000FF' face='Verdana' size='1'>Utenti connessi: </font><font color='#FF0000' face='Verdana' size='2'>" & Application("ActiveUsers") & "</font></div>")
%>
<%function ultima_visita()

Dim UltimaVisita
UltimaVisita=" " & Request.cookies("CookiesUltimaVisita")

if trim(UltimaVisita)<>"" then
response.write( trim(UltimaVisita) )
else
Response.write("<font color='#0000FF' face='Verdana' size='1'>Questa è la tua prima visita al mio sito. Grazie!</font>")
end if

Dim Ora
Ora = datepart("h", time() )
if len(Ora)=1 then
Ora="_" & Ora
end if
Dim Min
Min = datepart("n", time() )
if Len(Min)=1 then
Min="0" & Min
end if
Dim Sec
Sec = datepart("s", time() )
if Len(Sec)=1 then
Sec="0" & Sec
end if
Dim Anno
Anno = datepart("yyyy", date() )
Dim Mese
Mese = datepart("m", date() )
if len(Mese)=1 then
Mese="0" & Mese
end if
Dim Giorno
Giorno = datepart("d", date() )
if len(Giorno)=1 then
Giorno="0" & Giorno
end if

Response.cookies("CookiesUltimaVisita")="<font color='#0000FF' face='Verdana' size='1'>La tua ultima visita in questo sito è stata il </font><font color='#FF0000' face='Verdana' size='2'>" & Giorno&"/"&Mese&"/"&Anno& "</font><font color='#FF0000' face='Verdana' size='2'></font>"

Response.Cookies("CookiesUltimaVisita").Expires=#J anuary 1, 2010#

end function
%>
<html>
<head>
<title>Script Ultima Visita</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000" style="text-align: right">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="55">
<tr>
<td valign="middle" height="55">
<div align="right"><font face="Verdana" font size="1" color="#0000FF"><% call ultima_visita()%></font></div>
<table width="450" border="0" cellspacing="0" cellpadding="0" height="1">
<tr>
<td bgcolor="#FFCC99" height="1">
</td>
</tr>
<tr>
<td height="1">
<p align="right"><p align="right"><font face="Verdana" size="1" color="#0000FF">Utenti connessi:<font size="1"></font><font>[b]<font face="Verdana" size="2" color="#FF0000"><SCRIPT LANGUAGE='JavaScript' SRC='http://codice.html.it/utenti_in_linea.asp?IDSito=53969'></SCRIPT></font></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</body>
</html>
<tr>
</div>
<div id="Layer7" style="position:absolute; width:48px; height:47px; z-index:11; left: 10px; top: 370px">
<object classid="clsid

27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="36" height="38">
<param name=movie value="nota2.swf">
<param name=quality value=high>
<embed src="nota1.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="44" height="45">
</embed></object></div>
<div id="Layer1" style="position:absolute; width:89; height:25; z-index:1; left: 56; top: 389">
<font face="Verdana" size="1" color="#808080"><<stop/play</font></div>
<div id="Layer1" style="position:absolute; width:761; height:25; z-index:1; left: -5; top: 420">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; color: #FFFFFF; background-color: #808080" bordercolor="#808080" width="101%" id="AutoNumber1" height="21">
<tr>
<td width="100%" height="25">
<p align="left"> <font face="Verdana" size="2">
www34.brinkster.com/mariani1</font><font face="Verdana" size="1" color="#000000">
ultimo aggiornamento <%=Date()-2%></font></td>
</tr>
</table>
</div>
<form method="post" action="">
</form>
<script>
function finpopup(url) {
var largSch = screen.width;
var lungSch = screen.height;
var largFin = "300";
var lungFin = "200";
var pippo = "3";
var dasx= ((largSch-largFin)/2);
var datop = ((lungSch-lungFin)/2);
var parametri = "width=" + largFin +", height=" + lungFin + ", left=" + dasx +", top=" + datop, fullscreen=" + pippo ";
window.open(url, "", parametri);
}
</script>
<script>
function finpopup1(url) {
var largSch = screen.width;
var lungSch = screen.height;
var largFin = "510";
var lungFin = "280";
var pippo = "3";
var dasx= ((largSch-largFin)/2);
var datop = ((lungSch-lungFin)/2);
var parametri = "width=" + largFin +", height=" + lungFin + ", left=" + dasx +", top=" + datop, fullscreen=" + pippo ";
window.open(url, "", parametri);
}
</script>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse; background-color: #000000" bordercolor="#111111" width="100%" id="AutoNumber1" height="40">
<tr>
<td width="100%">
<marquee style="color: #FFFFFF; font-family: Verdana; font-size: 14 pt; font-weight: bold">sito in allestimento - prove tecniche</marquee></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="12">
<tr>
<td width="7%" bgcolor="#FFEBD7" height="12">
<p align="center"><font face="Verdana" size="1"><a href="http://www34.brinkster.com/mariani1/motore.asp">
Motore</a></font></td>
<td width="8%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="1" face="Verdana"><a href="http://www34.brinkster.com/mariani1/pace.htm">
Guerra...</a></font></td>
<td width="8%" bgcolor="#FFEBD7" height="12">
<font color="#808080" face="Verdana" size="1">

Scrivimi </font></td>
<td width="12%" bgcolor="#FFEBD7" height="12"><font size="1" face="Verdana">
Configurazione</font></td>
<td width="12%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="1" face="Verdana">
Drag and Drop</font></td>
<td width="14%" bgcolor="#FFEBD7" height="12">
<p align="center"><font face="Verdana" size="1" color="#808080">
Testo scorrevole</font></td>
<td width="7%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="1" face="Verdana">
free sms</font></td>
<td width="7%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="1" face="Verdana">
deejay</font></td>
<td width="16%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="1" face="Verdana">
<a href="javascript:finpopup1('segnala_sito.htm')">se gnala questo sito</font></td>
<td width="11%" bgcolor="#FFEBD7" height="12">
<p align="center"><font size="2" face="Verdana">
Altea B</font></td>
</tr>
</table>
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="43%" id="AutoNumber3" align="right" height="25">
<tr>
<td width="107%" align="left" height="25">
<a title="un pensiero sulla guerra" href="http://www34.brinkster.com/mariani1/pace.htm">
[img]PACE.jpeg[/img]</tr>
<td width="100%" align="left" height="25">
[img]nowar.jpg[/img][img]logo.gif[/img]<a title="la bandiera della pace" href="http://www.elettrosmog.com/bandieradellapace.htm">
</tr>
<td width="121%" align="left" height="25" bgcolor="#FFEBD7">

<TABLE border=0 cellspacing=0 cellpadding=0 width=100 height=1 bgcolor=#FFCC99 style="border-collapse: collapse" bordercolor="#111111">
<TR>
<TD width=100 height=1 align=left valign=top colspan="2" bgcolor="#FFEBD7">
<p align="center"><font face="Verdana" size="1">Motore esterno</font></TD>
</TR>
<TR>
<TD width=100 align=center valign=top height="16" colspan="2" bgcolor="#FFEBD7">
<FORM action="http://www.tuttogratis.it/cgi/result.cgi" method=post target="_blank" title="click">
<FONT face="Verdana,Arial" size=1>
<INPUT type=text size=11 name="keywords" style="color: #111111; background-color: #FFFFFF"></FONT>
</TD>
</TR>
<TR>
<TD width=24 height=25 align=right valign=bottom bgcolor="#FFEBD7">
<p align="center">
</TD>
<TD width=76 height=25 align=right valign=bottom bgcolor="#FFEBD7">
<p align="center">
<input type="submit" value="Cerca" name="submit" style="color: #FFFFFF; font-weight: bold; background-color: #FF9900; font-size:8 pt; float:left"></TD>
</TR>
</FORM>
</TABLE>
</a>
</tr>
</td>
<td width="50%" height="25" bgcolor="#FFEBD7">
<form method="get" name="frmSiteSearch" action="http://www34.brinkster.com/mariani1/motore1.asp" target="_blank" onSubmit="return CheckForm();">
<table cellpadding="0" cellspacing="0" width="242" align="right" height="68">
<tr>

<td height="68" width="1" align="justify" rowspan="3" valign="middle" bgcolor="#FFEBD7"></td>
<td class="arial" height="26" width="200" align="justify" bgcolor="#FFEBD7" colspan="2" valign="bottom">
<p align="left"><font face="Verdana" size="1">Motore interno</font></td>
</tr>
<tr>
<td class="normal" height="22" width="88" align="justify" bgcolor="#FFEBD7">

<input name="search" maxlength="50" size="11" value="<% =Request.QueryString("search") %>"></td>
<td class="normal" height="22" width="112" align="justify" bgcolor="#FFEBD7">
<p align="center">
<input type="submit" value="Cerca" name="submit" style="color: #FFFFFF; font-weight: bold; background-color: #FF9900; font-size:8 pt; float:left"></td>
</tr>
<tr>
<td class="normal" height="40" width="200" valign="top" align="justify" bgcolor="#FFEBD7" colspan="2">
<font color="#0000CC">
<input type="radio" name="mode" value="tutteleparole" CHECKED></font><font face="Times New Roman" size="2" color="#0000CC">
</font><font face="Arial" size="1" color="#0000CC">Tutte le parole</font><font face="Times New Roman" size="2" color="#0000CC"> </font>
<font color="#0000CC">
<input type="radio" name="mode" value="solounaparola"></font><font size="2" color="#0000CC">
</font>
<font face="Arial" size="1" color="#0000CC">Solo una parola</font><font size="2" color="#0000CC">
</font><font color="#0000CC">
<input type="radio" name="mode" value="frase"></font><font face="Arial" size="2" color="#0000CC"> </font>
<font face="Arial" size="1" color="#0000CC">Frase</font></td>
</tr>
</table>
</form>

Discussione: errore

Strumenti discussione

Ricerca discussione

Visualizza

errore

Permessi di invio