ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
/mensajes/default.asp, line 83
Este es el error que me aparece al intentar acceder a la lista de mensajes del libro de visitas. Este es el codigo (la linea de error la pongo en color rojo):
<html>
<head>
<title>MENSAJES</title>
<style>
<!--
p { margin-top: 0; margin-bottom: 0 }
select { font-family: Arial; font-size: 7pt }
input { font-family: Arial; font-size: 7pt; height:17; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>
<body>
<%
orden = request.querystring("orden")
tipo = request.querystring("tipo")
if orden = "" then
orden = "Fecha"
end if
if tipo = "" then
tipo = "desc"
end if
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I
mostrar= 15
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
strsql="select * from mensajes order by "& orden & " "&tipo
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("libvis.mdb")
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
RS.Open strSQL, oConn,3,1
cant_paginas = RS.PageCount
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
<table width="90%" border="0" align="center">
<tr>
<td><table width="90%" border="0" align="center" background="../imagenes/fondo1.gif">
<tr>
<td><div align="center"><img src="../imagenes/funugt.gif" alt="INICIO" width="195" height="57" border="0"></div></td>
</tr>
</table></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<form method="GET" action="Default.asp">
<p align="center"><font size="6" face="Arial">MENSAJES</font></p>
<p> </p>
<p align="left"><font face="Arial" size="1">Ordenar por </font>
<select size="1" name="orden">
<option value="Fecha">Fecha</option>
<option value="Asunto">Asunto</option>
<option value="Nombre">Nombre</option>
</select>
<select size="1" name="tipo">
<option value="asc">Ascendente</option>
<option value="desc">Descendente</option>
</select>
<input name="submit" type="submit" value="ENVIAR">
<p align="left"><font face="Arial" size="1"> <a href="firmarlibro.asp">CREAR
MENSAJE</a> </font>
<p> </p>
<hr align="center">
<%If cant_paginas = 0 Then%>
<p align="center"><font face="Arial"><strong>LA LISTA DE MENSAJES ESTA
VACIA</strong></font></p>
<%
Else
RS.AbsolutePage = pagina_principal
registro_mostrado = 0
Do While registro_mostrado < mostrar And Not RS.EOF
%>
<p> </p>
<p><b>De:</b> <a href="mailto:<%=rs("email")%>"><%=rs("Nombre")%></a>
</p>
<p><font face="Arial" size="2"> <b>Enviado el: </b> <%=rs("Fecha")%></font></p>
<p><b>Asunto: </b><font color="red"><%=rs("Asunto")%> </font></p>
<p> </p>
<p><font face="Arial" size="2"> <%=rs("Mensaje")%></font></p>
<p align="right">
<input name="button" type="button" style="width:100" onClick="location.href('borrar.asp?id=<%=rs("id")% >')" value="BORRAR MENSAJE">
</p>
<hr align="center">
<%
registro_mostrado = registro_mostrado + 1
RS.MoveNext
Loop
End If
%>
</form></td>
</tr>
</table>
<p align="center">
<font size="1" face="MS Sans Serif">
<%If pagina_actual > 1 Then %>
<a href="Default.asp?eje=30&page=<%= pagina_actual - 1 %>&orden=<%=request.querystring("orden")%>&tipo=<% =request.querystring("tipo")%>"><< Anterior ]</a>
<%
End If
For I = 1 To cant_paginas
If I = pagina_actual Then %>
<b><%= I %></b>
<% Else %>
<a href="Default.asp?eje=30&page=<%= I %>&orden=<%=request.querystring("orden")%>&tipo=<% =request.querystring("tipo")%>"><%= I %></a>
<%
End If
Next 'I
If pagina_actual < cant_paginas Then %> </font>
<a href="Default.asp?eje=30&page=<%= pagina_actual + 1 %>&orden=<%=request.querystring("orden")%>&tipo=<% =request.querystring("tipo")%>">
<font size="1" face="MS Sans Serif">[ Siguiente >>
<%
End If
%> </font>
</p>
<p align="center"></font></p>
</body>
</html>
Ayudadme a resolverlo por favor, ya que soy bastante novato en el tema
