Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 error '800a0bb9'
 Foro Bloqueado  Tema Bloqueado


Autor Temas
eduvivi
Starting Member


46 Posts
Mensajes - 29 May 2002 :  23:42:28  Ver Perfil  Enviar Email
Alguien sabe que signica este error

ADODB.Recordset error '800a0bb9'

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

/foro2/forum.asp, line 92


dos
Moderator

España
1575 Posts
Posted - 30 May 2002 :  10:18:28  Ver perfil  Enviar e-mail
pues significa que los argumentos estan mal o que los que han pasado se pasan del límite. Fijate bien que hayas puesto los argumentos en su tipo de datos adecuado.

Inicio Pagina

eduvivi
Starting Member


46 Posts
Posted - 30 May 2002 :  16:17:11  Ver perfil  Enviar e-mail
Hola DOS este el código que tengo lo que estoy tratando de hacer es un repaginado de un foro. el error salta en la
* linea 92 rsThreads.PageSize=TamPagina

<!-- #INCLUDE FILE="config.inc"-->
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<p>&nbsp;
<table width="100%" border="0" cellspacing="3" cellpadding="0">
<tr>
<td height="17" width="2%" align="left" valign="top">
<p><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><img src="../images/start.gif" width="9" height="12">
<%
' Read details of all forums on this site.
' Show all of them with statistics in a nice table.
Dim rsForums
Set rsForums = Connect (ForumMDB).Execute ("SELECT * FROM Forums ORDER BY Forum ASC")
rsForums.MoveFirst
%></font></p>
</td>
<td height="17" width="98%"> <%
' Function treeMessage_Build() goes through the messages recursively,
' and shows all messages in a tree-like structure.
' This is the basis of the "threaded" discussion that is
' unique to this script.
Public Sub treeMessage_Build(MessageID, Level)
Dim rsMessages
Set rsMessages = DB.Execute ("SELECT * FROM Messages WHERE ForumID = " & ForumID & " ORDER BY Date DESC")

rsMessages.Filter = "MessageID = " & MessageID
%>
<tr>
<td width="60%" align="left" bgcolor="#FFCCFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><img src="../spacer.gif" width="<%= Level * 20 %>" height="1"><img src="../images/asunto.gif" width="16" height="14" align="absmiddle" hspace="4"><a href="message.asp?MessageID=<%= rsMessages ("MessageID") %>"><%= rsMessages ("Asunto") %></a>
</font>
<td width="20%" align="left" bgcolor="#FFCCFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><img src="../images/cara.gif" alt="" align="absmiddle" hspace="4"><a href="mailto:<%= rsMessages ("Email")%>"><%= rsMessages ("EnviadoPor") %></a>
</font>
<td width="20%" align="right" bgcolor="#FFCCFF"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><%= ShortDate(rsMessages ("Date")) %>
</font>
</tr>
<%
rsMessages.Filter = "InReplyTo = " & MessageID

If Not (rsMessages.EOF And rsMessages.BOF) Then
rsMessages.MoveFirst
While Not rsMessages.EOF
treeMessage_Build rsMessages("MessageID"), Level+1
rsMessages.MoveNext
Wend
End If
End Sub
%> <%
If Request ("ForumID") = "" Then
' We don't have a valid ForumID, so go back to the main page.
Response.Redirect "default.asp"
End If

Dim ForumID
ForumID = Request("ForumID")
' ---------------------------
Dim DB, rsForum, rsMessages, rsThreads
Dim oConn, rs, SQL
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos

'MODIFICAR AQUI PARA CAMBIAR EL Nº DE REGISTRO POR PAGINA
TamPagina=4
' --------------------
Set DB = Connect (ForumMDB)
Set rsForum = DB.Execute ("SELECT * FROM Forums WHERE ForumID = " & ForumID)
Set rsMessages = DB.Execute ("SELECT * FROM Messages WHERE ForumID = " & ForumID & " ORDER BY Date DESC")
Set rsThreads = DB.Execute ("SELECT * FROM Messages WHERE ForumID = " & ForumID & " AND InReplyTo = 0 ORDER BY Date DESC")

If rsThreads.BOF And rsThreads.EOF Then
ShowError ("<P ALIGN=""center"">No hay ningun mensaje en este Forum.</P>")
%>
<p align="center"><b><a href="post.asp?ForumID=<%= ForumID%>"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000">
Envie un Mensaje nuevo </a></b><img src="../images/asuntomov.gif" width="32" height="14"></p>
<%
Else
' ------------------------
if Request.Querystring("pagina")="" then
PaginaActual=1
else
PaginaActual=CInt(Request.Querystring("pagina"))
end if

' Defino el tamaño de las páginas
rsThreads.PageSize=TamPagina
rsThreads.CacheSize=TamPagina
' Defino el cursor en el cliente: adUseClient
rsThreads.CursorLocation = 3

' Abro el recordset
rsThreads.Open SQL, oConn, 1, 2

'Cuento las páginas
PaginasTotales=rsThreads.PageCount

'Compruebo que la pagina actual está en el rango
if PaginaActual < 1 then
PaginaActual = 1
end if
if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if
rsThreads.AbsolutePage=PaginaActual
' --------------------------
rsThreads.MoveFirst

Response.Write("Pagina " & PaginaActual & " de " & PaginasTotales)
%>
<table width="90%" border="0" cellspacing="1" cellpadding="12" align="CENTER">
<tr align="LEFT" valign="TOP" bgcolor="">
<td colspan="2">
<p><a href="post.asp?ForumID=<%= ForumID %>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><b>Nuevo
Mensaje </b></font></a><img src="../images/asuntomov.gif" width="32" height="14"></p>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#FFFFFF">
<table width="100%" align="center" cellpadding="6" cellspacing="0" border="0" bgcolor="#990099">
<tr>
<td width="60%" align="left" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b>Mensajes</b></font></td>
<td width="20%" align="center" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b>Enviado
por</b></font></td>
<td width="20%" align="center" valign="top"><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"><b>Fecha</b></font></td>
</tr>
<tr>
<td colspan="3" align="left" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<%
' -----------------
CuantosRegistros=0
' do while not rs.EOF and CuantosRegistros < TamPagina
' ------------------------
While Not rsThreads.EOF and CuantosRegistros < TamPagina
treeMessage_Build rsThreads("MessageID"), 0
CuantosRegistros=CuantosRegistros+1
rsThreads.MoveNext

Wend
' -------------------
'Muestro los enlaces
Response.Write("<hr>")
if PaginaActual > 1 then
Response.Write("<A HREF=rspagina.asp?pagina="& PaginaActual-1& ">4 Anteriores</A>&nbsp;&nbsp;&nbsp;")
end if
if PaginaActual < PaginasTotales then
Response.Write("<A HREF=forum.asp?pagina=" & PaginaActual+1 &">4 Siguientes</A>")
end if
' ---------------------
%>

</table>
</tr>
</table>
</font></td>
</tr>
</table>
<% End If %> <br>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"></font>
<font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#FFFFFF"></font>
<p><a href="post.asp?ForumID=<%= ForumID %>"><font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#000000"><b>Nuevo
Mensaje </b></font></a><img src="../images/asuntomov.gif" width="32" height="14"></p>
</table>
<p>&nbsp;
<p> </p>
</body>
</html>


Inicio Pagina

buho_nero
Moderator

España
1316 Posts
Posted - 30 May 2002 :  18:50:03  Ver perfil  Enviar e-mail
No veo nada especial.
Prueba con rsThreads.PageSize = cint(TamPagina)

y ten cuidado con el include, quizá estés redefiniendo esa variable.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar