Forums Últimos mensajes - Powered by IBM
 

se me pierden los parametros

11/01/2005 - 17:59 por aleblack | Informe spam
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
 

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


Preguntas similares