Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

se me pierden los parametros

11/01/2005 - 17:59 por aleblack | Informe spam
Ayuda Hacer una pregunta
Tengo una pagina carga el recordset a atraves de una procedure, hice algumas
modificaciones para paginar, para la primera pagina me funciona perfecto ,
pero cuando paso a la segunda es como si perdiera los parametros.

<!--#INCLUDE FILE="index.ASP"-->
<html><head>
<title>Tabela de Preços Kyowa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head><body>
<%
const numperpage = 20 'numeros de registros por pagina
dim curpage
if request.QueryString("curpage") = "" then
curpage = 1 'primera pagina
else
curpage = request.QueryString("curpage")
end if


orden=1
escolhe = request.Form("rcodigo")
escr= "%" & request.form ("entrada")& "%"
response.write escr & "<br>"

select case (escolhe)
case "cod"
opcion=1
response.Write("Items por codigo")
valor=escr
case "ref"
opcion=2
response.Write("Items por referencia")
valor=escr
case "desc"
opcion=3
valor=escr
response.Write("Items por Descricao")
case "cat"
opcion=4
valor=request.Form("select2")
response.Write("Vc escolheu items por categoria")
case "for"
opcion=5
valor=request.Form("select")
response.Write("Vc escolheu items por fornecedores")
end select

Set cmd=Server.CreateObject ("adodb.command") ' creando un objeto command
Set cmd.ActiveConnection = Conexao 'seta a conexao ativa para o
objeto
cmd.CommandText = "xcodigo" 'passamos o nome da stored procedure
cmd.CommandType = 4 'passamos o parametro de execucao do commando, 4
refere-se a procedure
cmd.Parameters.Refresh
cmd.Parameters("@az") = orden ' a variavel declarada na procedure é
passada pelo command do ADO
'cmd.Parameters("@opc") = opcion
cmd.Parameters("@opc") = 1
cmd.Parameters("@valor") = valor ' tercera variabel de la procedure

set rs=server.createobject("adodb.recordset")
rs.cachesize = numperpage ' define o tamanho a cache
rs.cursorlocation=3
rs.open cmd
rs.movefirst
rs.pagesize = numperpage
dim totalpages
totalpages = rs.pagecount
rs.absolutepage = curpage
%>
<table widthˆ3>
<tr>
<td height="49" colspan="5">&nbsp;</td>
</tr>
<tr>
<td width="63"><font face="Arial, Helvetica,
sans-serif"><b>Codigo</b></font></td>
<td width="118"><font face="Arial, Helvetica,
sans-serif"><b>Referencia</b></font></td>
<td width="532"><div align="center"><font face="Arial, Helvetica,
sans-serif"><strong>Descricao</strong></font></div></td>
<td width="93"> <div align="center"><font face="Arial, Helvetica,
sans-serif"><strong>Pre&ccedil;o</strong></font></div></td>
<td width="53"><font face="Arial, Helvetica,
sans-serif"><strong>Quant</strong></font></td>
</tr>
<%
count=0
do while not rs.eof and count < rs.pagesize
codigo=rs("codigo")
referencia=rs("referencia")
descricao=rs("descricao")
preco=rs("preco")
quant=rs("qtd_atual")
%>
<% cor=not cor %>
<% if cor then %>
<tr bgcolor="#FFFFFF">
<% else %>
<tr bgcolor="#999999">
<% end if %>
<td><%=codigo%></td>
<td><%=referencia%></td>
<td><%=descricao%></td>
<td><%=preco%></td>
<td><%=quant%></td>
</tr>
<%
count=count + 1
rs.movenext
loop
rs.close
%>
</table>
<%
response.write("<B><font color=""#003399"" size=""2""
face=""arial""><strong> Pagina " & curpage & " de " & Totalpages & "
</strong></font></B><BR><BR>")
if curpage > 1 then
response.write ("<B><font color=""#FF8040"">")
response.write ("<a href='salidap.asp?curpage=" & curpage - 1 & "'>")
response.Write("anterior")
end if
if Cint(curpage) <> Cint(Totalpages) then
response.write("<B><font color=""#FF8040"">")
response.Write("<a href='salidap.asp?curpage=" & curpage + 1 & "'>")
response.Write("proximo")
end if
%>
</body></html>


que tendria que modificar para en las otras paginas los parametros no se
pierdan

Desde ya muchas gracias

Alejandri
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta

Preguntas similare

Leer las respuestas

#1 JCEA
11/01/2005 - 18:16 | Informe spam
Yo resolvi ese problema haciendo una pagina Temporal donde recogia mediante
una cookie los valores de filtrado en el SQL y redirigiendo posteriormente a
la pagina en cuestion.

"aleblack" escribió en el mensaje
news:OSAyb6$
Tengo una pagina carga el recordset a atraves de una procedure, hice


algumas
modificaciones para paginar, para la primera pagina me funciona perfecto ,
pero cuando paso a la segunda es como si perdiera los parametros.

<!--#INCLUDE FILE="index.ASP"-->
<html><head>
<title>Tabela de Preços Kyowa</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head><body>
<%
const numperpage = 20 'numeros de registros por pagina
dim curpage
if request.QueryString("curpage") = "" then
curpage = 1 'primera pagina
else
curpage = request.QueryString("curpage")
end if


orden=1
escolhe = request.Form("rcodigo")
escr= "%" & request.form ("entrada")& "%"
response.write escr & "<br>"

select case (escolhe)
case "cod"
opcion=1
response.Write("Items por codigo")
valor=escr
case "ref"
opcion=2
response.Write("Items por referencia")
valor=escr
case "desc"
opcion=3
valor=escr
response.Write("Items por Descricao")
case "cat"
opcion=4
valor=request.Form("select2")
response.Write("Vc escolheu items por categoria")
case "for"
opcion=5
valor=request.Form("select")
response.Write("Vc escolheu items por fornecedores")
end select

Set cmd=Server.CreateObject ("adodb.command") ' creando un objeto command
Set cmd.ActiveConnection = Conexao 'seta a conexao ativa para o
objeto
cmd.CommandText = "xcodigo" 'passamos o nome da stored procedure
cmd.CommandType = 4 'passamos o parametro de execucao do commando, 4
refere-se a procedure
cmd.Parameters.Refresh
cmd.Parameters("@az") = orden ' a variavel declarada na procedure é
passada pelo command do ADO
'cmd.Parameters("@opc") = opcion
cmd.Parameters("@opc") = 1
cmd.Parameters("@valor") = valor ' tercera variabel de la procedure

set rs=server.createobject("adodb.recordset")
rs.cachesize = numperpage ' define o tamanho a cache
rs.cursorlocation=3
rs.open cmd
rs.movefirst
rs.pagesize = numperpage
dim totalpages
totalpages = rs.pagecount
rs.absolutepage = curpage
%>
<table widthˆ3>
<tr>
<td height="49" colspan="5">&nbsp;</td>
</tr>
<tr>
<td width="63"><font face="Arial, Helvetica,
sans-serif"><b>Codigo</b></font></td>
<td width="118"><font face="Arial, Helvetica,
sans-serif"><b>Referencia</b></font></td>
<td width="532"><div align="center"><font face="Arial, Helvetica,
sans-serif"><strong>Descricao</strong></font></div></td>
<td width="93"> <div align="center"><font face="Arial, Helvetica,
sans-serif"><strong>Pre&ccedil;o</strong></font></div></td>
<td width="53"><font face="Arial, Helvetica,
sans-serif"><strong>Quant</strong></font></td>
</tr>
<%
count=0
do while not rs.eof and count < rs.pagesize
codigo=rs("codigo")
referencia=rs("referencia")
descricao=rs("descricao")
preco=rs("preco")
quant=rs("qtd_atual")
%>
<% cor=not cor %>
<% if cor then %>
<tr bgcolor="#FFFFFF">
<% else %>
<tr bgcolor="#999999">
<% end if %>
<td><%=codigo%></td>
<td><%=referencia%></td>
<td><%=descricao%></td>
<td><%=preco%></td>
<td><%=quant%></td>
</tr>
<%
count=count + 1
rs.movenext
loop
rs.close
%>
</table>
<%
response.write("<B><font color=""#003399"" size=""2""
face=""arial""><strong> Pagina " & curpage & " de " & Totalpages & "
</strong></font></B><BR><BR>")
if curpage > 1 then
response.write ("<B><font color=""#FF8040"">")
response.write ("<a href='salidap.asp?curpage=" & curpage - 1 & "'>")
response.Write("anterior")
end if
if Cint(curpage) <> Cint(Totalpages) then
response.write("<B><font color=""#FF8040"">")
response.Write("<a href='salidap.asp?curpage=" & curpage + 1 & "'>")
response.Write("proximo")
end if
%>
</body></html>


que tendria que modificar para en las otras paginas los parametros no se
pierdan

Desde ya muchas gracias

Alejandri


Respuesta Responder a este mensaje
#2 aleblack
11/01/2005 - 18:41 | Informe spam
me podrias pasar un ejemplo de como resolviste son mis primeros pasos y
todavia no tengo mucha idea de trabajo con cookies
gracias de cualquier forma por la idea.
Alejandro
"JCEA" escreveu na mensagem
news:cs11lh$nod$
Yo resolvi ese problema haciendo una pagina Temporal donde recogia


mediante
una cookie los valores de filtrado en el SQL y redirigiendo posteriormente


a
la pagina en cuestion.

"aleblack" escribió en el mensaje
news:OSAyb6$
> Tengo una pagina carga el recordset a atraves de una procedure, hice
algumas
> modificaciones para paginar, para la primera pagina me funciona perfecto


,
> pero cuando paso a la segunda es como si perdiera los parametros.
>
> <!--#INCLUDE FILE="index.ASP"-->
> <html><head>
> <title>Tabela de Preços Kyowa</title>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> </head><body>
> <%
> const numperpage = 20 'numeros de registros por pagina
> dim curpage
> if request.QueryString("curpage") = "" then
> curpage = 1 'primera pagina
> else
> curpage = request.QueryString("curpage")
> end if
>
>
> orden=1
> escolhe = request.Form("rcodigo")
> escr= "%" & request.form ("entrada")& "%"
> response.write escr & "<br>"
>
> select case (escolhe)
> case "cod"
> opcion=1
> response.Write("Items por codigo")
> valor=escr
> case "ref"
> opcion=2
> response.Write("Items por referencia")
> valor=escr
> case "desc"
> opcion=3
> valor=escr
> response.Write("Items por Descricao")
> case "cat"
> opcion=4
> valor=request.Form("select2")
> response.Write("Vc escolheu items por categoria")
> case "for"
> opcion=5
> valor=request.Form("select")
> response.Write("Vc escolheu items por fornecedores")
> end select
>
> Set cmd=Server.CreateObject ("adodb.command") ' creando un objeto


command
> Set cmd.ActiveConnection = Conexao 'seta a conexao ativa para


o
> objeto
> cmd.CommandText = "xcodigo" 'passamos o nome da stored procedure
> cmd.CommandType = 4 'passamos o parametro de execucao do commando, 4
> refere-se a procedure
> cmd.Parameters.Refresh
> cmd.Parameters("@az") = orden ' a variavel declarada na procedure


é
> passada pelo command do ADO
> 'cmd.Parameters("@opc") = opcion
> cmd.Parameters("@opc") = 1
> cmd.Parameters("@valor") = valor ' tercera variabel de la procedure
>
> set rs=server.createobject("adodb.recordset")
> rs.cachesize = numperpage ' define o tamanho a cache
> rs.cursorlocation=3
> rs.open cmd
> rs.movefirst
> rs.pagesize = numperpage
> dim totalpages
> totalpages = rs.pagecount
> rs.absolutepage = curpage
> %>
> <table widthˆ3>
> <tr>
> <td height="49" colspan="5">&nbsp;</td>
> </tr>
> <tr>
> <td width="63"><font face="Arial, Helvetica,
> sans-serif"><b>Codigo</b></font></td>
> <td width="118"><font face="Arial, Helvetica,
> sans-serif"><b>Referencia</b></font></td>
> <td width="532"><div align="center"><font face="Arial, Helvetica,
> sans-serif"><strong>Descricao</strong></font></div></td>
> <td width="93"> <div align="center"><font face="Arial, Helvetica,
> sans-serif"><strong>Pre&ccedil;o</strong></font></div></td>
> <td width="53"><font face="Arial, Helvetica,
> sans-serif"><strong>Quant</strong></font></td>
> </tr>
> <%
> count=0
> do while not rs.eof and count < rs.pagesize
> codigo=rs("codigo")
> referencia=rs("referencia")
> descricao=rs("descricao")
> preco=rs("preco")
> quant=rs("qtd_atual")
> %>
> <% cor=not cor %>
> <% if cor then %>
> <tr bgcolor="#FFFFFF">
> <% else %>
> <tr bgcolor="#999999">
> <% end if %>
> <td><%=codigo%></td>
> <td><%=referencia%></td>
> <td><%=descricao%></td>
> <td><%=preco%></td>
> <td><%=quant%></td>
> </tr>
> <%
> count=count + 1
> rs.movenext
> loop
> rs.close
> %>
> </table>
> <%
> response.write("<B><font color=""#003399"" size=""2""
> face=""arial""><strong> Pagina " & curpage & " de " & Totalpages & "
> </strong></font></B><BR><BR>")
> if curpage > 1 then
> response.write ("<B><font color=""#FF8040"">")
> response.write ("<a href='salidap.asp?curpage=" & curpage - 1 & "'>")
> response.Write("anterior")
> end if
> if Cint(curpage) <> Cint(Totalpages) then
> response.write("<B><font color=""#FF8040"">")
> response.Write("<a href='salidap.asp?curpage=" & curpage + 1 & "'>")
> response.Write("proximo")
> end if
> %>
> </body></html>
>
>
> que tendria que modificar para en las otras paginas los parametros no se
> pierdan
>
> Desde ya muchas gracias
>
> Alejandri
>
>


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida