como puedo manipular un recordset desde un procedimiento en vbscript

uffff... es que la pagina que tengo es muy complicada para pasartela en
pp guardo la página actual es un imput oculto... de modo que pasa en el
request.form...

<input type="hidden" name="pp" value="<%=page%>">

el menos 1 y el más 1 es para indicarle al recordset paginado si debe
avanzar o retroceder segun el boton al que le hayan dado

Sashka

"juan" escribió en el mensaje
news:
Mostrar la cita

probando probando no consigo nada, no entiendo por que pones
Request.Form("pp")-1
y no veo claro donde poner el codigo eset ultimo, tendria que poner
tambien un formulario para englobar los dos submit, y que action le
pondria, la misma pagina??
gracias.

On Sun, 23 May 2004 16:39:39 -0500, "Sashka"
wrote:

>Efectivamente... disculpa...
>
> if instr(Request.Form("ir"), "Ante") then
> page=Request.Form("pp") -1
> elseif instr(Request.Form("ir"), "imo") then
> page=Request.Form("pp") +1
> end if
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> solo consigo que me enseñe una.
>> le doy al boton que pone y no hace nada, supongo que en este codigo
>> faltara el codigo para los botones anterior y poximo.
>>
>>
>> On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
>> wrote:
>>
>> >En vbscript... del lado del servidor... es decir en asp... una vez que

la
Mostrar la cita

>> >pagina llegó al cliente no hay forma que tengas acceso al recordset...
>> >Lo que puedes hacer es trabajar con un recordset paginado más o

menos
Mostrar la cita

>> >así:
>> >
>> > Dim mostrar,cant_paginas ,pagina_actual, page
>> > Dim objConn, objRS, strProvider, SQL
>> >
>> > mostrar = 10 ' cantidad de registros por página (puede modificarse a

1
Mostrar la cita

>por
>> >ejemplo)
>> > CadenaConn ="tu cadena de conexion"
>> > Set objConn = Server.CreateObject("ADODB.Connection")
>> > Set objRS = Server.CreateObject("ADODB.Recordset")
>> > objConn.Open CadenaConn
>> > ' IF para saber que página mostrar
>> > If page = "" Then
>> > page=1
>> > pagina_actual = 1
>> > Else
>> > pagina_actual = CInt(page)
>> > page=pagina_actual
>> > End If
>> > SQL = "tu SQL"
>> >
>> > ObjConn.CursorLocation = 2
>> > ObjRS.PageSize = mostrar
>> > ObjRS.CacheSize = mostrar
>> > ObjRS.Open SQL, ObjConn, 3,1
>> > cant_paginas = ObjRS.PageCount
>> > If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
>> > If pagina_actual < 1 Then pagina_actual = 1
>> > If cant_paginas <> 0 Then
>> > ObjRS.AbsolutePage = pagina_actual
>> >
>> >Aca haces lo que tienes que hacer... pintar una tabla... las imagenes

o
Mostrar la cita

>lo
>> >que sea...
>> >
>> > objRS.Close
>> > objConn.Close
>> > If pagina_actual > 1 Then %>
>> > <input type="submit" name="ir" value="Anterior">
>> ><% End If
>> >If pagina_actual < cant_paginas Then
>> >%>
>> > <input type="submit" name="ir" value="Proximo">
>> ><% End If %>
>> >
>> >Sashka
>> >MS MVP Access
>> >
>> >"juan" escribió en el mensaje
>> >news:
>> >> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>> >>
>> >> tengo un recordset en asp, y quiero manipularle desde un

procedimiento
Mostrar la cita

>> >> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> >> contenido.
>> >> como puedo hacerlo??
>> >> gracias.
>> >
>>
>

bueno voy a ver si consigo hacer algo.
gracias.

On Mon, 24 May 2004 12:55:01 -0500, "Sashka"
wrote:

Mostrar la cita

uffff... es que la pagina que tengo es muy complicada para pasartela en
pp guardo la página actual es un imput oculto... de modo que pasa en el
request.form...

<input type="hidden" name="pp" value="<%=page%>">

el menos 1 y el más 1 es para indicarle al recordset paginado si debe
avanzar o retroceder segun el boton al que le hayan dado

Sashka

"juan" escribió en el mensaje
news:
Mostrar la cita

probando probando no consigo nada, no entiendo por que pones
Request.Form("pp")-1
y no veo claro donde poner el codigo eset ultimo, tendria que poner
tambien un formulario para englobar los dos submit, y que action le
pondria, la misma pagina??
gracias.

On Sun, 23 May 2004 16:39:39 -0500, "Sashka"
wrote:

>Efectivamente... disculpa...
>
> if instr(Request.Form("ir"), "Ante") then
> page=Request.Form("pp") -1
> elseif instr(Request.Form("ir"), "imo") then
> page=Request.Form("pp") +1
> end if
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> solo consigo que me enseñe una.
>> le doy al boton que pone y no hace nada, supongo que en este codigo
>> faltara el codigo para los botones anterior y poximo.
>>
>>
>> On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
>> wrote:
>>
>> >En vbscript... del lado del servidor... es decir en asp... una vez que

la
Mostrar la cita

>> >pagina llegó al cliente no hay forma que tengas acceso al recordset...
>> >Lo que puedes hacer es trabajar con un recordset paginado más o

menos
Mostrar la cita

>> >así:
>> >
>> > Dim mostrar,cant_paginas ,pagina_actual, page
>> > Dim objConn, objRS, strProvider, SQL
>> >
>> > mostrar = 10 ' cantidad de registros por página (puede modificarse a

1
Mostrar la cita

>por
>> >ejemplo)
>> > CadenaConn ="tu cadena de conexion"
>> > Set objConn = Server.CreateObject("ADODB.Connection")
>> > Set objRS = Server.CreateObject("ADODB.Recordset")
>> > objConn.Open CadenaConn
>> > ' IF para saber que página mostrar
>> > If page = "" Then
>> > page=1
>> > pagina_actual = 1
>> > Else
>> > pagina_actual = CInt(page)
>> > page=pagina_actual
>> > End If
>> > SQL = "tu SQL"
>> >
>> > ObjConn.CursorLocation = 2
>> > ObjRS.PageSize = mostrar
>> > ObjRS.CacheSize = mostrar
>> > ObjRS.Open SQL, ObjConn, 3,1
>> > cant_paginas = ObjRS.PageCount
>> > If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
>> > If pagina_actual < 1 Then pagina_actual = 1
>> > If cant_paginas <> 0 Then
>> > ObjRS.AbsolutePage = pagina_actual
>> >
>> >Aca haces lo que tienes que hacer... pintar una tabla... las imagenes

o
Mostrar la cita

>lo
>> >que sea...
>> >
>> > objRS.Close
>> > objConn.Close
>> > If pagina_actual > 1 Then %>
>> > <input type="submit" name="ir" value="Anterior">
>> ><% End If
>> >If pagina_actual < cant_paginas Then
>> >%>
>> > <input type="submit" name="ir" value="Proximo">
>> ><% End If %>
>> >
>> >Sashka
>> >MS MVP Access
>> >
>> >"juan" escribió en el mensaje
>> >news:
>> >> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>> >>
>> >> tengo un recordset en asp, y quiero manipularle desde un

procedimiento
Mostrar la cita

>> >> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> >> contenido.
>> >> como puedo hacerlo??
>> >> gracias.
>> >
>>
>

bueno algo e conseguido ya, muchas gracias.


On Mon, 24 May 2004 12:55:01 -0500, "Sashka"
wrote:

Mostrar la cita

uffff... es que la pagina que tengo es muy complicada para pasartela en
pp guardo la página actual es un imput oculto... de modo que pasa en el
request.form...

<input type="hidden" name="pp" value="<%=page%>">

el menos 1 y el más 1 es para indicarle al recordset paginado si debe
avanzar o retroceder segun el boton al que le hayan dado

Sashka

"juan" escribió en el mensaje
news:
Mostrar la cita

probando probando no consigo nada, no entiendo por que pones
Request.Form("pp")-1
y no veo claro donde poner el codigo eset ultimo, tendria que poner
tambien un formulario para englobar los dos submit, y que action le
pondria, la misma pagina??
gracias.

On Sun, 23 May 2004 16:39:39 -0500, "Sashka"
wrote:

>Efectivamente... disculpa...
>
> if instr(Request.Form("ir"), "Ante") then
> page=Request.Form("pp") -1
> elseif instr(Request.Form("ir"), "imo") then
> page=Request.Form("pp") +1
> end if
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> solo consigo que me enseñe una.
>> le doy al boton que pone y no hace nada, supongo que en este codigo
>> faltara el codigo para los botones anterior y poximo.
>>
>>
>> On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
>> wrote:
>>
>> >En vbscript... del lado del servidor... es decir en asp... una vez que

la
Mostrar la cita

>> >pagina llegó al cliente no hay forma que tengas acceso al recordset...
>> >Lo que puedes hacer es trabajar con un recordset paginado más o

menos
Mostrar la cita

>> >así:
>> >
>> > Dim mostrar,cant_paginas ,pagina_actual, page
>> > Dim objConn, objRS, strProvider, SQL
>> >
>> > mostrar = 10 ' cantidad de registros por página (puede modificarse a

1
Mostrar la cita

>por
>> >ejemplo)
>> > CadenaConn ="tu cadena de conexion"
>> > Set objConn = Server.CreateObject("ADODB.Connection")
>> > Set objRS = Server.CreateObject("ADODB.Recordset")
>> > objConn.Open CadenaConn
>> > ' IF para saber que página mostrar
>> > If page = "" Then
>> > page=1
>> > pagina_actual = 1
>> > Else
>> > pagina_actual = CInt(page)
>> > page=pagina_actual
>> > End If
>> > SQL = "tu SQL"
>> >
>> > ObjConn.CursorLocation = 2
>> > ObjRS.PageSize = mostrar
>> > ObjRS.CacheSize = mostrar
>> > ObjRS.Open SQL, ObjConn, 3,1
>> > cant_paginas = ObjRS.PageCount
>> > If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
>> > If pagina_actual < 1 Then pagina_actual = 1
>> > If cant_paginas <> 0 Then
>> > ObjRS.AbsolutePage = pagina_actual
>> >
>> >Aca haces lo que tienes que hacer... pintar una tabla... las imagenes

o
Mostrar la cita

>lo
>> >que sea...
>> >
>> > objRS.Close
>> > objConn.Close
>> > If pagina_actual > 1 Then %>
>> > <input type="submit" name="ir" value="Anterior">
>> ><% End If
>> >If pagina_actual < cant_paginas Then
>> >%>
>> > <input type="submit" name="ir" value="Proximo">
>> ><% End If %>
>> >
>> >Sashka
>> >MS MVP Access
>> >
>> >"juan" escribió en el mensaje
>> >news:
>> >> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>> >>
>> >> tengo un recordset en asp, y quiero manipularle desde un

procedimiento
Mostrar la cita

>> >> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> >> contenido.
>> >> como puedo hacerlo??
>> >> gracias.
>> >
>>
>

muchas gracias, ya he conseguido hacer funcionar lo que me has pasado,
solo una cosilla mas, en esto ultimo que me pasaste

<input type="hidden" name="pp" value="<%=page%>">

esta mal, tendria que poner

<input type="hidden" name="pp" value="<%=pagina_actual%>">

me e vuelto loco hasta que lo e cambiado, claro se me pasaba de
indices.
pero otra vez muchas gracias.

On Mon, 24 May 2004 12:55:01 -0500, "Sashka"
wrote:

Mostrar la cita

uffff... es que la pagina que tengo es muy complicada para pasartela en
pp guardo la página actual es un imput oculto... de modo que pasa en el
request.form...

<input type="hidden" name="pp" value="<%=page%>">

el menos 1 y el más 1 es para indicarle al recordset paginado si debe
avanzar o retroceder segun el boton al que le hayan dado

Sashka

"juan" escribió en el mensaje
news:
Mostrar la cita

probando probando no consigo nada, no entiendo por que pones
Request.Form("pp")-1
y no veo claro donde poner el codigo eset ultimo, tendria que poner
tambien un formulario para englobar los dos submit, y que action le
pondria, la misma pagina??
gracias.

On Sun, 23 May 2004 16:39:39 -0500, "Sashka"
wrote:

>Efectivamente... disculpa...
>
> if instr(Request.Form("ir"), "Ante") then
> page=Request.Form("pp") -1
> elseif instr(Request.Form("ir"), "imo") then
> page=Request.Form("pp") +1
> end if
>
>Sashka
>MS MVP Access
>
>"juan" escribió en el mensaje
>news:
>> solo consigo que me enseñe una.
>> le doy al boton que pone y no hace nada, supongo que en este codigo
>> faltara el codigo para los botones anterior y poximo.
>>
>>
>> On Sun, 23 May 2004 10:47:08 -0500, "Sashka"
>> wrote:
>>
>> >En vbscript... del lado del servidor... es decir en asp... una vez que

la
Mostrar la cita

>> >pagina llegó al cliente no hay forma que tengas acceso al recordset...
>> >Lo que puedes hacer es trabajar con un recordset paginado más o

menos
Mostrar la cita

>> >así:
>> >
>> > Dim mostrar,cant_paginas ,pagina_actual, page
>> > Dim objConn, objRS, strProvider, SQL
>> >
>> > mostrar = 10 ' cantidad de registros por página (puede modificarse a

1
Mostrar la cita

>por
>> >ejemplo)
>> > CadenaConn ="tu cadena de conexion"
>> > Set objConn = Server.CreateObject("ADODB.Connection")
>> > Set objRS = Server.CreateObject("ADODB.Recordset")
>> > objConn.Open CadenaConn
>> > ' IF para saber que página mostrar
>> > If page = "" Then
>> > page=1
>> > pagina_actual = 1
>> > Else
>> > pagina_actual = CInt(page)
>> > page=pagina_actual
>> > End If
>> > SQL = "tu SQL"
>> >
>> > ObjConn.CursorLocation = 2
>> > ObjRS.PageSize = mostrar
>> > ObjRS.CacheSize = mostrar
>> > ObjRS.Open SQL, ObjConn, 3,1
>> > cant_paginas = ObjRS.PageCount
>> > If pagina_actual > cant_paginas Then pagina_actual = cant_paginas
>> > If pagina_actual < 1 Then pagina_actual = 1
>> > If cant_paginas <> 0 Then
>> > ObjRS.AbsolutePage = pagina_actual
>> >
>> >Aca haces lo que tienes que hacer... pintar una tabla... las imagenes

o
Mostrar la cita

>lo
>> >que sea...
>> >
>> > objRS.Close
>> > objConn.Close
>> > If pagina_actual > 1 Then %>
>> > <input type="submit" name="ir" value="Anterior">
>> ><% End If
>> >If pagina_actual < cant_paginas Then
>> >%>
>> > <input type="submit" name="ir" value="Proximo">
>> ><% End If %>
>> >
>> >Sashka
>> >MS MVP Access
>> >
>> >"juan" escribió en el mensaje
>> >news:
>> >> hago la misma pregunta de otra forma aver si asi teneis respuesta.
>> >>
>> >> tengo un recordset en asp, y quiero manipularle desde un

procedimiento
Mostrar la cita

>> >> en vbscript, quiero por ejemplo hacer un movenext, o acceder a su
>> >> contenido.
>> >> como puedo hacerlo??
>> >> gracias.
>> >
>>
>