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 
%>