I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
eberaudo
eberaudo
il 21 luglio 2001 alle 03:37
189 messaggi dal 26 marzo 2001
Ho ricevuto questo errore strano:

Errore di run-time di Microsoft VBScript errore "800a01a8"

Necessario oggetto: 'Provider = Microsoft'

/doc.asp, riga 117


Ecco il codice che l'ha generato:

<% option explicit %>

<!--#include file="dbcon.asp"-->
<!--#include virtual="adovbs.inc"-->
<html>
<body>
<%
dim objrs, Sigl, SQL, RecordsPerPagina, page, TotalRecords, i, p

RecordsPerPagina = 5

page = Request("page")
if page = "" then page = 1

Sigl = request.querystring ("Sigl")

SQL="SELECT * FROM Docit WHERE Sigla='" & Sigl & "'"

set objrs = server.createobject("ADODB.recordset")

objrs.Open SQL, conn, 1, 3

objrs.PageSize = RecordsPerPagina
objrs.AbsolutePage = page

TotalRecords = objrs.recordcount

If TotalRecords = 0 then
Response.Write "<p>Nessun risultato trovato</p>"
Else

For i = 1 to RecordsPerPagina

if Not objrs.EOF then
%>

<table border="0" cellpadding="0" cellspacing="0">

<%
response.write "<tr><td width=""100%"" align=""center""><h2>"
if not isnull(objrs ("Nome")) then response.write replace(objrs ("Nome"), vbcrlf,"<br>")
response.write "</h2></td></tr>"

response.write "<tr><td width=""100%"" align=""center""><h3>"
if not isnull(objrs ("Cap1")) then response.write replace(objrs ("Cap1"), vbcrlf,"<br>")
response.write "</h3></tr>"

response.write "<tr><td width=""100%""><h4>"
if not isnull(objrs ("Cap2")) then response.write replace(objrs ("Cap2"), vbcrlf,"<br>")
response.write "</h4></tr>"

response.write "<tr><td width=""100%""><h5>"
if not isnull(objrs ("Cap3")) then response.write replace(objrs ("Cap3"), vbcrlf,"<br>")
response.write "</h5></tr>"
%>
<tr><td width="100%"><table border="0" cellpadding="0" cellspacing="0">
<%
response.write "<tr><td width=""6%"" valign=""top"">" & objrs ("Numero") & "</td>"
response.write "<td width=""94%""><p align=""justify"">" & (replace(objrs ("Testo"), vbcrlf, "<br>")) & "</p><br></tr>"

objrs.movenext
%>
</table>
</table>
<%
end if

Next

End if

%>

<hr>

<%

If TotalRecords > 0 then

Response.Write "<p><b>Pagine:</b> "

For p=1 to objrs.PageCount

If p <> CInt(Page) then
%>

<a href="doc.asp?Sigl=<%=Server.UrlEncode(Sigl)%>&page=" &p>

<%
Else
Response.Write "<b>"
End if

Response.Write p

If p <> CInt(Page) then
Response.Write "</a> "
Else
Response.Write "</b> "
End if

Next

Response.Write "</p>"

End if

%>

<hr>

<%
objrs.close
set objrs=nothing


objconn.close
set objconn=nothing
%>
</body>
</html>

Qualcuno sa aiutarmi?
Grazie.

RispondiQuoting
rome
rome
il 21 luglio 2001 alle 04:18
2.907 messaggi dal 15 maggio 2001
Contributi
Nell'errore ti viene indicata la riga 117,sapresti indicarla ??

Rome

RispondiQuoting
eberaudo
eberaudo
il 21 luglio 2001 alle 04:29
189 messaggi dal 26 marzo 2001
E'

objconn.close

Comunque eliminando questa riga e la successiva, non dà più errore, ma mi restituisce sempre la prima pagina.

RispondiQuoting
rome
rome
il 21 luglio 2001 alle 05:11
2.907 messaggi dal 15 maggio 2001
Contributi
Ma per forza che ti dà errore cerchi di chiudere una connessione inesistente !!!

NON SO' COSA CONTENGANO I FILE INCLUSI, però leggendo ciò che hai scritto,l'unica connessione attiva e che chiudi correttamente è objrs e non objconn,il codice l'hai fatto tu o lo hai già preso fatto ???
Comunque cancellala quella riga e anche la seconda xchè sono inesistenti, cosa vuoi dire con "mi restituisce sempre la prima pagina." ???

Rome Webmaster

RispondiQuoting
davide01
davide01
il 21 luglio 2001 alle 08:02
8 messaggi dal 18 luglio 2001
credo di aver capito l'errore:
l'oggetto della Connessione non si chiama objconn, bensì conn, probabilmente la Connessione esiste (nota che ce' un file di inclusione chiamato dbconn) altrimenti si sarebbe verificato un errore di routine gia' alla apertura del recordset (objrs.open SQL, conn, 1, 3)

tutto quello che devi fare è sostituire:

objconn.close
set objconn=nothing

con:

conn.close
set conn=nothing

prova così

fammi sapere
ciao...




RispondiQuoting
eberaudo
eberaudo
il 21 luglio 2001 alle 16:39
189 messaggi dal 26 marzo 2001
Avevi perfettamente ragione, davide01, avevo modificato il file dbcon e ho dimenticato di modificare questa riga.
Grazie mille.

RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.