Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
searchresult.asp, línea 143
Aqui les paso el codigo completo y cual es la linea 143:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
strConnection = "driver={Microsoft Access Driver (*.mdb)}; server=;uid=;pwd=;data source=base de datos"
%>(Esto esta arriba del <head>).
(Esto esta debajo del </head>)
<%
Dim mostrar
Dim cant_paginas
Dim pagina_actual
Dim registro_mostrado
Dim I 'Variable Loop
Dim ID
campo = request.form("nombre campo1")
campo = request.form("nombre campo2")
campo = request.form("nombre campo3")
campo = request.form("nombre campo4")
campo = request.form("nombre campo5")
campo = request.form("nombre campo6")
campo = request.form("nombre campo7")
campo = request.form("nombre campo8")
campo = request.form("nombre campo9")
campo = request.form("nombre campo10")
campo = request.form("nombre campo11")
campo = request.form("nombre campo12")
alf = request.form("nombre campo13")
cantidad = request.form("cantidad")
if cantidad="10" then
mostrar = 10
elseif cantidad="20" then
mostrar = 20
elseif cantidad="30" then
mostrar = 30
end if
if orden = "" then
response.redirect "archivo.asp"
end if
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
strsql = "SELECT * FROM Tabla where UCase(nombre campo1) like '%" & UCase(Request("nombre campo1")) & "%' AND UCase(nombre campo2) like '%" & UCase(Request("nombre campo2")) & "%' AND UCase(nombre campo3) like '%" & UCase(Request("nombre campo3")) & "%' AND UCase(nombre campo4) like '%" & UCase(Request("nombre campo4")) & "%' AND UCase(nombre campo5) like '%" & UCase(Request("nombre campo5")) & "%' AND UCase(nombre campo6) like '%" & UCase(Request("nombre campo6")) & "%' AND UCase(nombre campo7) like '%" & UCase(Request("nombre campo7")) & "%' AND UCase(nombre campo8) like '%" & UCase(Request("nombre campo8")) & "%' AND UCase(nombre campo9) like '%" & UCase(Request("nombre campo9")) & "%' AND UCase(nombre campo10) like '%" & UCase(Request("nombre campo10")) & "%' AND UCase(nombre campo11) like '%" & UCase(Request("nombre campo11")) & "%' AND UCase(nombre campo12) like '%" & UCase(Request("nombre campo12")) & "%' order by "& orden & " "&alf
' creo el RecordSet y defino la cantidad de registros a mostrar
Set RS = Server.CreateObject("ADODB.Recordset")
RS.PageSize = mostrar
RS.CacheSize = mostrar
' Abro la tabla...
Set ObjDB = Server.CreateObject("ADODB.Connection")
ObjDB.Open strConnection, oConn,3,1
'cuento las páginas que se formaron con la variable mostrar
cant_paginas = RS.PageCount (esta es la linea 143)
' Si el pedido de página cae afuera del rango,
' lo modifico para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
If pagina_actual < 1 Then pagina_actual = 1
%>
Los datos del formulario se los paso en post al codigo de arriba.
Despues de todo esto viene el codigo html para donde se muestran las tablas, etc.
Gracias anticipadas al que me ayude.
