COMO CREAR BOTON 10 SIGUIENTES o ATRAS
Publicado por Miguel Angel Fernández Martín (9 intervenciones) el 14/09/2000 00:00:00
Tengo la rutina pero me da un error cuando creo lo siguiente:
El problema esta marcado con Asteriscos...me dice Se requiere un objeto False...??????
<% IF (Request.QueryString("Pagina")="Pagina Siguiente")THEN
Session("Pagina")=Session("Pagina")+1
ELSE IF (Request.QueryString("Pagina") ="Pagina Anterior") THEN
Session("Pagina")=Session("Pagina")-1
ELSE Session("Pagina")=1
END IF
END IF
Set Obj_Conn = Server.CreateObject"ADODB.Connection")
Set Obj_Command = Server.CreateObject("ADODB.Command")
Set Obj_RS =Server.CreateObject("ADODB.Recordset")
Obj_Conn.Open("consulta")
Obj_Command.ActiveConnection = Obj_Conn
Obj_Command.CommandType = adCmdText
Sql= "SELECT * FROM hostelero"
Obj_Command.CommandText = Sql
´Obj_RS.open
Obj_RS.PageSize=9
*******Set Obj_RS = AbsolutePage=Session("Pagina")******
Set Obj_RS = Obj_Command.Execute()
El problema esta marcado con Asteriscos...me dice Se requiere un objeto False...??????
<% IF (Request.QueryString("Pagina")="Pagina Siguiente")THEN
Session("Pagina")=Session("Pagina")+1
ELSE IF (Request.QueryString("Pagina") ="Pagina Anterior") THEN
Session("Pagina")=Session("Pagina")-1
ELSE Session("Pagina")=1
END IF
END IF
Set Obj_Conn = Server.CreateObject"ADODB.Connection")
Set Obj_Command = Server.CreateObject("ADODB.Command")
Set Obj_RS =Server.CreateObject("ADODB.Recordset")
Obj_Conn.Open("consulta")
Obj_Command.ActiveConnection = Obj_Conn
Obj_Command.CommandType = adCmdText
Sql= "SELECT * FROM hostelero"
Obj_Command.CommandText = Sql
´Obj_RS.open
Obj_RS.PageSize=9
*******Set Obj_RS = AbsolutePage=Session("Pagina")******
Set Obj_RS = Obj_Command.Execute()
Valora esta pregunta


0