Arguments are of the wrong type, are out of acceptable range, or are in conflict...

**Lino80** · 20-05-2007, 21:50

ADODB.Recordset error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

/include/inc_news.asp, line 17

perchè da errore?

codice:

<table width="480" border="0" align="center" height="344">
<%
'---Dichiarazione variabili
	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag

'---Recupero le ultime News dal database e le stampo a video
	Set RSnews = Server.CreateObject("ADODB.RecordSet")
	SQL = " SELECT * FROM News ORDER BY ID DESC"
	RSnews.Open SQL, Conn, 1
	If page = "" then 
page = (rsnews.PageCount) 
End if

Rsnews.PageSize = perpage
Rsnews.AbsolutePage = page

	If NOT RSNews.EOF Then
		For CicloNews = 1 To MaxNews
			If RSNews.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Titolo%>">
			<td colspan="2">
				 &gt; <%= RSnews("Titolo") %>
			</td>
		</tr>
		<tr>
<%
			If Len(RSnews("Img")) > 0 Then
%>
				<td width="120" align="center" valign="top">
					[img]<%=Path_Img%><%=RSnews([/img]" width="110" height="108" border="1">
				</td>
				<td width="360" valign="top">
<%
			Else
%>
				<td width="480" valign="top" colspan=2>
<%
			End If
%>
				<p align="justify"><%= RSnews("Testo") %></p>
			</td>
		</tr>
<%
				RSnews.MoveNext
		Next
        Else
%>
		<tr>
			<td align="center" valign="top" colspan="2">
				<%=Errore_NoNews%>
			</td>
		</tr>
<%
        End If

        RSNews.Close
	Set RSnews = Nothing
%>
	</table>
<%
For i = 1 to perpage  
if Rsnews("id") < 10 then 
end if 
Rsnews.MoveNext 
'end if 
next 
%>

<% 

Response.Write "

Pagine News Presenti: " 

For pag= 1 to rsnews.PageCount 
if page = pag then 
Response.Write "" 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write "" 
else 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if 
Next 

Response.Write "</P>" %>


<%
Rsnews.Close 
Set Rsnews = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

**Roby_72** · 20-05-2007, 21:57

quanto vale perpage?

Roby

**Lino80** · 20-05-2007, 22:04

grazie roby..quel passaggio l ho risolto...ora mi genera quest errore:

Microsoft VBScript runtime error '800a000d'

Type mismatch

/include/inc_news.asp, line 67

riga 67: if Rsnews("ID") < 10 then

codice:

<%
	'VERSIONE FILE 1.4.0
%>
	<table width="480" border="0" align="center" height="344">
<%
'---Dichiarazione variabili
	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag
	perpage = 1

'---Recupero le ultime News dal database e le stampo a video
	Set RSnews = Server.CreateObject("ADODB.RecordSet")
	SQL = " SELECT * FROM News ORDER BY ID DESC"
	RSnews.Open SQL, Conn, 1
	If page = "" then 
page = (rsnews.PageCount) 
End if

Rsnews.PageSize = perpage 
Rsnews.AbsolutePage = page

	If NOT RSNews.EOF Then
		For CicloNews = 1 To MaxNews
			If RSNews.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Titolo%>">
			<td colspan="2">
				 &gt; <%= RSnews("Titolo") %>
			</td>
		</tr>
		<tr>
<%
			If Len(RSnews("Img")) > 0 Then
%>
				<td width="120" align="center" valign="top">
					[img]<%=Path_Img%><%=RSnews([/img]" width="110" height="108" border="1">
				</td>
				<td width="360" valign="top">
<%
			Else
%>
				<td width="480" valign="top" colspan=2>
<%
			End If
%>
				<p align="justify"><%= RSnews("Testo") %></p>
			</td>
		</tr>
<%
				RSnews.MoveNext
		Next
        Else
%>
		<tr>
			<td align="center" valign="top" colspan="2">
				<%=Errore_NoNews%>
			</td>
		</tr>
<%
        End If

        RSNews.Close
	Set RSnews = Nothing
%>
	</table>
<%
For i = 1 to perpage  
if Rsnews("ID") < 10 then 
end if 
Rsnews.MoveNext 
'end if 
next 
%>

<% 

Response.Write "

Pagine News Presenti: " 

For pag= 1 to rsnews.PageCount 
if page = pag then 
Response.Write "" 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write "" 
else 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if 
Next 

Response.Write "</P>" %>


<%
Rsnews.Close 
Set Rsnews = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

**Roby_72** · 20-05-2007, 22:06

Quando scrivi

if Rsnews("ID") < 10 then

il recordset l'hai già chiuso qualche riga prima...

Roby

**Lino80** · 21-05-2007, 11:55

Microsoft VBScript runtime error '800a01a8'

Object required

/include/inc_news.asp, line 75

riga 75: For pag= 1 to RSnews.PageCount

codice:

<table width="480" border="0" align="center" height="344">
<%
'---Dichiarazione variabili
	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag
	page = Request.QueryString("page")
	perpage = 1

'---Recupero le ultime News dal database e le stampo a video
	Set RSnews = Server.CreateObject("ADODB.RecordSet")
	SQL = " SELECT * FROM News ORDER BY ID DESC"
	RSnews.Open SQL, Conn, 1
	If page = "" then 
page = (RSnews.PageCount) 
End if

RSnews.PageSize = perpage 
RSnews.AbsolutePage = page

	If NOT RSNews.EOF Then
		For CicloNews = 1 To MaxNews
			If RSNews.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Titolo%>">
			<td colspan="2">
				 &gt; <%= RSnews("Titolo") %>
			</td>
		</tr>
		<tr>
<%
			If Len(RSnews("Img")) > 0 Then
%>
				<td width="120" align="center" valign="top">
					[img]<%=Path_Img%><%=RSnews([/img]" width="110" height="108" border="1">
				</td>
				<td width="360" valign="top">
<%
			Else
%>
				<td width="480" valign="top" colspan=2>
<%
			End If
%>
				<p align="justify"><%= RSnews("Testo") %></p>
			</td>
		</tr>
<%
				RSnews.MoveNext
		Next
        Else
%>
		<tr>
			<td align="center" valign="top" colspan="2">
				<%=Errore_NoNews%>
			</td>
		</tr>
<%
        End If

        RSNews.Close
	Set RSnews = Nothing
%>
	</table>
<%
For i = 1 to perpage 
next 
%>

<% 

Response.Write "

Pagine News Presenti: " 

For pag= 1 to RSnews.PageCount 
if page = pag then 
Response.Write "" 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write "" 
else 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if 
Next 

Response.Write "</P>" %>


<%
RSnews.Close 
Set RSnews = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

**Roby_72** · 21-05-2007, 11:58

Non ho la palla di vetro...
Dov'è l'errore?
Dove apri al connessione?

Roby

**Lino80** · 21-05-2007, 12:09

ho aggiunto queste 2 righe in rosso, ma mi da sempre l errore:

Microsoft VBScript runtime error '800a01a8'

Object required

/include/inc_news.asp, line 77

cosa manca?

codice:

<table width="480" border="0" align="center" height="344">
<%
'---Dichiarazione variabili
	Dim SQL, RSnews, CicloNews, page, perpage, Rs, i, pag
	page = Request.QueryString("page")
	perpage = 1

'---Recupero le ultime News dal database e le stampo a video
    Set Conn = Server.CreateObject("ADODB.Connection") 
    Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/ecom.mdb")
	Set RSnews = Server.CreateObject("ADODB.RecordSet")
	SQL = " SELECT * FROM News ORDER BY ID DESC"
	RSnews.Open SQL, Conn, 1
	If page = "" then 
page = (RSnews.PageCount) 
End if

RSnews.PageSize = perpage 
RSnews.AbsolutePage = page

	If NOT RSNews.EOF Then
		For CicloNews = 1 To MaxNews
			If RSNews.EOF Then Exit For
%>
		<tr bgcolor="<%=Tabella_Colore_Titolo%>">
			<td colspan="2">
				 &gt; <%= RSnews("Titolo") %>
			</td>
		</tr>
		<tr>
<%
			If Len(RSnews("Img")) > 0 Then
%>
				<td width="120" align="center" valign="top">
					[img]<%=Path_Img%><%=RSnews([/img]" width="110" height="108" border="1">
				</td>
				<td width="360" valign="top">
<%
			Else
%>
				<td width="480" valign="top" colspan=2>
<%
			End If
%>
				<p align="justify"><%= RSnews("Testo") %></p>
			</td>
		</tr>
<%
				RSnews.MoveNext
		Next
        Else
%>
		<tr>
			<td align="center" valign="top" colspan="2">
				<%=Errore_NoNews%>
			</td>
		</tr>
<%
        End If

        RSNews.Close
	Set RSnews = Nothing
%>
	</table>
<%
For i = 1 to perpage 
next 
%>

<% 

Response.Write "

Pagine News Presenti: " 

For pag= 1 to RSnews.PageCount 
if page = pag then 
Response.Write "" 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
Response.Write "" 
else 
Response.Write "<A href='links.asp?page=" & pag 
Response.write "'>" 
Response.Write pag 
Response.Write "</A> " 
end if 
Next 

Response.Write "</P>" %>


<%
RSnews.Close 
Set RSnews = Nothing 
Conn.Close 
Set Conn = Nothing 
%>

**Roby_72** · 21-05-2007, 12:11

La pagina inc_news è questa?
La linea 77 qual'è?

Roby

**Lino80** · 21-05-2007, 12:13

si è questa...

riga 77: For pag= 1 to RSnews.PageCount

è come se non riesce a determinare quante pagine assegnare a seconda del MaxNews...

**Roby_72** · 21-05-2007, 12:14

Quando entri in quella FOR il recordset rsNews l'hai già chiuso qualche riga più in alto e quindi non lo puoi usare...
Roby

Discussione: Arguments are of the wrong type, are out of acceptable range, or are in conflict...

Strumenti discussione

Ricerca discussione

Visualizza

Arguments are of the wrong type, are out of acceptable range, or are in conflict...

Permessi di invio