Errore su chiusura recordset

**donaz** · 25-05-2006, 10:26

Salve a tutti ho un banale errore sulla chiusura recordset di una pagina.

l'errore è questo:

Errore di run-time di Microsoft VBScript error '800a01a8'

Necessario oggetto: ''

/civitas/s0013/listaprenos0013.asp, line 265

la linea incriminata è questa:

RecordsetArticoli.Close

Il problema si verifica quando una volta inserito dei dati in un form confermandolo viene chiama la pagina listaprenos0013.asp, che fa l'elenco dei dati inseriti in una tabella per un determinato codice fiscale, cliccando sull'icona del cestino, oggetto presente nella pagina che consente di cancellare il record relativo, viene chiamata la pagina elimina.asp che cancella il record e rinvia alla pagina listaprenos0013.asp che a questo punto da l'errore sulla chiusura del recordset.
E' probabile che nei controlli che vengono fatti nella pagina bypassso l'apertura del recordset.

**maximum** · 25-05-2006, 10:35

Posta il codice.

**donaz** · 25-05-2006, 10:56

Questa è la pagina elimina.asp:

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>CIVITAS.NET - Servizi Tributari - Calcellazione Quietanze prenotate Pagamento ICI</title>
<link rel="stylesheet" href="/civitas/css/style-tributario.css">
</head>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="body">

<table border="0" style="border-collapse: collapse" width="70%" id="AutoNumber1" height="638" cellspacing="8" cellpadding="0">
<tr>
<td width="100%" height="42" colspan="3" align="center"></td>
</tr>
<tr>
<td width="100%" height="11" colspan="3"></td>
</tr>
<tr>
<td width="150" height="498" rowspan="3" valign="top">
</td>
<td width="450" height="425" align="center">
<table border=0 cellpadding=0 cellspacing=0><tr><td>

<%

anacf = Session("SchedaClientecf")
idarticolo = Request.QueryString("idarticolo")

sqldel = "DELETE FROM prenotazionequieta WHERE id=" & idarticolo
'response.write sqldel
'response.end
conn.execute(sqldel)
'RecordsetArticoli.Close
'Set RecordsetArticoli = Nothing
Conn.Close
Set Conn = Nothing
Session("aperta") = "ok"

'response.redirect "/civitas/s0013/listaprenos0013.asp?anacf=anacf"

'response.redirect "/civitas/s0013/elenco_comunis0013.asp"

%>

<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0 width="411">
<TR VALIGN="TOP">
<TD width="399" ALIGN="CENTER">
</TD>
</TR>
<TR VALIGN="TOP">
<TD width="399" ALIGN="CENTER"> La quietanza selezionata è stata eliminata. </TD>
</TR>
</TABLE>
<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0 width="411">
<TR VALIGN="TOP">
<TD width="100%" align="CENTER">
<A HREF="listaprenos0013.asp?cf=<%=anacf%>">
Torna all'elenco delle quietanze prenotate
</A>
</TR>
</TABLE>
</body>
</html>

Questa è la pagina listaprenos0013.asp

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>CIVITAS.NET - Servizi Tributari - Elenco Quietanze prenotate Pagamento ICI</title>
<link rel="stylesheet" href="/civitas/css/style-tributario.css">
</head>

<body bgcolor="#ffffff" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" class="body">

<table border="0" style="border-collapse: collapse" width="70%" id="AutoNumber1" height="638" cellspacing="8" cellpadding="0">
<tr>
<td width="100%" height="42" colspan="3" align="center"></td>
</tr>
<tr>
<td width="100%" height="11" colspan="3"></td>
</tr>
<tr>
<td width="150" height="498" rowspan="3" valign="top">
</td>
<td width="450" height="425" align="center">
<table border=0 cellpadding=0 cellspacing=0><tr><td>
<%
'If Not Session("token") Then
'Response.Redirect "home.html"
'End If

if len(Session("aperta")) > 0 then

anacf = Session("SchedaClientecf")
ananome = Session("SchedaClienteNome")
anacogno = Session("SchedaClienteCognome")
anadeno = Session("SchedaClienteDenom")
indirizzo = Session("SchedaClienteIndirizzo")
indcap = Session("SchedaClienteCodicePostale")
inddescomres = Session("SchedaClienteComune")
indsiglaprov = Session("SchedaClienteProvincia")
natgiu = Session("Schedanatgiu")

SchedaClientedenominazione= Request.form("SchedaClientedenominazione")
SchedaClientebelfiore= Request.form("SchedaClientebelfiore")
SchedaClientetotversam= Request.form("SchedaClientetotversam")
SchedaClienteteragri= Request.form("SchedaClienteteragri")
SchedaClienteareefab= Request.form("SchedaClienteareefab")
SchedaClienteabpri= Request.form("SchedaClienteabpri")
SchedaClientealtrifab= Request.form("SchedaClientealtrifab")
SchedaClientenumfab= Request.form("SchedaClientenumfab")
SchedaClientedetra= Request.form("SchedaClientedetra")
SchedaClienteanno= Request.form("SchedaClienteanno")
SchedaClientetipver= Request.form("SchedaClientetipver")
'respomse.write SchedaClientetipver
'response.end
SchedaClienteravvedi= Request.form("SchedaClienteravvedi")

If SchedaClientetotversam = "" then
SchedaClientetotversam = "0"
end if

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "prenotazionequieta", conn ,3,3
' If rs.EOF Then
rs.addnew
rs("codfiscpre")= anacf
rs("belfiorepre")= SchedaClientebelfiore
rs("dencompre")= SchedaClientedenominazione
rs("nomepre")= ananome
rs("cognopre")= anacogno
rs("denominazionepre")=anadeno
rs("totverspre")=SchedaClientetotversam
rs("teragripre")=SchedaClienteteragri
rs("areefabpre")=SchedaClienteareefab
rs("abitpripre")=SchedaClienteabpri
rs("altrifabpre")=SchedaClientealtrifab
rs("numfabpre")=SchedaClientenumfab
rs("detraziopre")=SchedaClientedetra
rs("annoverpre")=SchedaClienteanno
rs("tipverpre")=SchedaClientetipver
rs("ravvedipre")=SchedaClienteravvedi
rs("selezionato")="NO"
rs.update
'end if
rs.Close
Set rs = Nothing

'response.write "Fatto"
'response.end
idlineadicatalogo = SchedaClientebelfiore
cf = Request.QueryString("cf")
Session.LCID=1040

'ID = Request.QueryString("idlineadicatalogo")

'codicefiscale = Session("codicefiscale")

If Len(idlineadicatalogo) = 0 Then

Else

if anacf = "" then
anacf = cf
end if

Dim sqlquery
sqlquery = "Select * FROM prenotazionequieta WHERE codfiscpre =" & "'" & anacf & "'"
'response.write sqlquery
'response.end
Dim RecordsetArticoli
Set RecordsetArticoli = Conn.Execute(sqlquery)
%>
<%
Dim ID
Dim codfiscpre
Dim belfiorepre
Dim dencompre
Dim nomepre
Dim cognopre
Dim denominazionepre
Dim totverspre
Dim teragripre
Dim areefabpre
Dim abitpripre
Dim altrifabpre
Dim numfabpre
Dim detraziopre
Dim annoverpre
Dim tipverpre
Dim ravvedipre

'Dim ID
'Dim Codice
'Dim Denominazione
'Dim Informazioni
'Dim InformazioniEstese
'Dim Confezione
'Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
'Dim acconto
'Dim saldo
%>
<%If RecordsetArticoli.EOF Then%>
<%Else

If natgiu ="0" Then
%>
<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0 width="411">
<TR VALIGN="TOP">
<TD width="399" ALIGN="CENTER">
<%= "Spettabile società" & anadeno & " " %>
</TD>
</TR>
<TR VALIGN="TOP">
<TD width="399" ALIGN="CENTER"> Queste sono i pagamenti ICI,
che Lei ha prenotato. Per perfezionare l'operazione deve cliccare sull'icona carrello. </TD>
</TR>
<TR>
<TD width="399" ALIGN="CENTER">
<%= denominazione%>
</TD>
</TR>
</TABLE>
<% else %>
<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0 width="409">
<TR VALIGN="TOP">
<TD width="397" ALIGN="CENTER">
<%= "Gentile " & ananome & " " & anacogno%>
</TD>
</TR>
<TR VALIGN="TOP">
<TD width="397" ALIGN="CENTER"> Queste sono i pagamenti ICI,
che Lei ha prenotato. Per perfezionare l'operazione deve cliccare sull'icona carrello. </TD>
</TR>
<TR>
<TD width="397" ALIGN="CENTER">
<%= denominazione%>
</TD>
</TR>
</TABLE>
<%end if%>
<TABLE BORDER=0 CELLSPACING=6 CELLPADDING=0>
<%if err=0 then
While Not RecordsetArticoli.EOF%>
<%
'response.end
ID= RecordsetArticoli("id")
codfiscpre= RecordsetArticoli("codfiscpre")
belfiorepre= RecordsetArticoli("belfiorepre")
dencompre= RecordsetArticoli("dencompre")
nomepre= RecordsetArticoli("nomepre")
cognopre= RecordsetArticoli("cognopre")
denominazionepre= RecordsetArticoli("denominazionepre")
totverspre= RecordsetArticoli("totverspre")
teragripre= RecordsetArticoli("teragripre")
areefabpre= RecordsetArticoli("areefabpre")
abitpripre= RecordsetArticoli("abitpripre")
altrifabpre= RecordsetArticoli("altrifabpre")
numfabpre= RecordsetArticoli("numfabpre")
detraziopre= RecordsetArticoli("detraziopre")
annoverpre= RecordsetArticoli("annoverpre")
tipverpre= RecordsetArticoli("tipverpre")
ravvedipre= RecordsetArticoli("ravvedipre")

'ID = RecordsetArticoli("id_numop")
'codfisc = RecordsetArticoli("codfisc")'
'dateven = RecordsetArticoli("dateven")
'Codice = RecordsetArticoli("codice")
'perimp = RecordsetArticoli("perimp")
'imptotver = RecordsetArticoli("imptotver")
'acconto = RecordsetArticoli("acconto")
'saldo = RecordsetArticoli("saldo")
%>
<TR VALIGN="TOP">
<TD width="109">
<%If RiferimentoDiIcona <> "" Then%>
<A HREF="dett_quietas0013.asp?idarticolo=<%=ID%>">
[img]<%=RiferimentoDiIcona%>[/img]
</A>
<%else%>

<%End If%>
</TD>
<TD width="224">
<A HREF="dett_quietas0013.asp?idarticolo=<%=ID%>">
Codice Fiscale: <%=codfiscpre%>
</A>

Nome e Congnome:
<%=nomepre & " " & cognopre%>

Comune:
<%=dencompre%>

Tipo versamento:
<%
if acconto = "ACC" Then
response.write "Acconto"
else
response.write "Saldo"
end if
%>

Importo da versare€ <%=FormatNumber(totverspre, 2, -1, 0, -1)%>
</TD>
<TD width="49" valign=bottom>
<A HREF="elimina.asp?idarticolo=<%=ID%>">
[img]/civitas/s0013/icons/cestino.gif[/img]
</A>
</TD>
<TD width="49" valign=bottom>
<A HREF="carrello.asp?idarticolo=<%=ID%>">
[img]/civitas/s0013/icons/cart.gif[/img]
</A>
</TD>
</TR>
<TR><TD colspan=3></TD></TR>
<%RecordsetArticoli.MoveNext%>
<%Wend
end if%>
</TABLE>
<%End If%>
<%End If%>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
Conn.Close
Set Conn = Nothing
else%>
<H4>La sessione scaduta. Torna all'elenco comuni</H4>
<%end if
%>
</TD></TR>
<TR><TD align=left>
</TD></TR></table>
</td>
<td width="150" height="498" rowspan="3" valign="top">

</td>
</tr>
<tr>
<td width="450" height="29" align="center">
Torna all'elenco comuni | Guarda il carrello</td>
</tr>
<tr>
<td width="450" height="28"></td>
</tr>
<tr>
<td width="100%" height="55" colspan="3" align="center"></td>
</tr>
</table>

</body>

</html>

**donaz** · 25-05-2006, 14:47

Ho risolto.
Invece di richiamare la pagina listapenos0013.asp ne richiamo da elimina.asp una pagina similare che non fa il recupero dei valori passati con il form.
grazie a tutti.

Discussione: Errore su chiusura recordset

Strumenti discussione

Ricerca discussione

Visualizza

Errore su chiusura recordset

Permessi di invio