Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ASP
 Pagianr con combobox
 Foro Bloqueado  Tema Bloqueado


Autor Temas
sheyla82
Starting Member

España
37 Posts
Mensajes - 15 Sep 2004 :  10:58:56  Ver Perfil  Enviar Email
Yo como siempre con problemas a la hora de paginar. Pagino bien, pero si en el formulario incluyo un select (combobox) que recibe los datos de un base de datos, muestra bien el formulario, con el menu desplegable correctamente realizado, pero al dar a enviar y redireccionar la página da error de q no encuentra la siguiente página. Si quito el select sí que la encuentra la página y pagian correctamente.
Gracias por leerlo.
Alguna idea?
El código por si les interesa:

saldos.asp:

<HTML>
<HEAD>
<TITLE>Paginar un recordset</TITLE>
<%
Response.Buffer = TRUE
%>

<%
Dim conec, rsc, sql
Dim PaginaActual ' en qué pagina estamos
Dim PaginasTotales ' cuántas páginas tenemos
Dim TamPagina ' cuantos registros por pagina
Dim CuantosRegistros ' para imprimir solo el nº de registro por pagina que queramos

'cbasedatos=mid(request.querystring("basedatos"),1,6)
cbasedatos=trim(request.querystring("basedatos"))

set conec=Server.CreateObject("ADODB.Connection")
set rsc=Server.CreateObject("ADODB.Recordset")

' Conexión por OLEDB
'conec.open=("Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("data/"&cbasedatos&".mdb"))
conec.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="&Server.MapPath("data\"&cbasedatos&".mdb")
sql="Select distinct CLE_NOMBRE,NOMBRE from EMPLEADOS"

' Abro el recordset
rsc.Open sql, conec, 1, 2

'Cuento las páginas
PaginasTotales=rsc.PageCount

rsc.movefirst

maxpagina=cint(rsc.pagecount)
maxregistros=cint(rsc.pagesize)
rsc.absolutepage=1
contreg=0
%>
<FONT FACE="Verdana"><br>Seleccione empleado</FONT>
<% if request.form = "" then %>
<form method="POST" action="saldos.asp">
<br><input type="hidden" name="basedatos" value=<%=request.querystring("basedatos")%> size="20"><br>
<select name="nombre" BGCOLOR="FUCHSIA">
<option selected value="">Todos</option>
<% do while not rsc.EOF and contreg < maxregistros %>
<option><%= rsc.fields("NOMBRE") %>
</option>
<% rsc.movenext
contreg=contreg+1
loop
%>

</select>
<%
rsc.close
set rsc=Nothing
conec.close
Set conec = Nothing
%>
<br><input type="text" name="fecha" value=<%=DateAdd("m",-1,Date)%> size="20"><br>
<Br><p align="center"><input type="submit" value="Enviar" name="B1"></Br>
</FORM>

<%else%>
<%cbd = request.form("basedatos")
cnombre = request.form("nombre")
cfecha = request.form("fecha")

response.redirect "saldosmesresultados.asp?basedatos="&cbd& " &nombre="&cnombre& " &fecha="&cfecha
end if%>

</body>
</html>

sheyla82
Starting Member

España
37 Posts
Posted - 16 Sep 2004 :  11:34:26  Ver perfil  Enviar e-mail
Ah, y cuando el select lo escribo yo y pongo los valores que quiero con <option>Valor1</option><option>Valor2</option>,......
entonces sí que funciona.
Está claro que el fallo tiene que estar al redireccionar algo que se ha conectado a la base de datos.
Algún fallo en el orden del código?
No sé. Puf, puf, puf.

Inicio Pagina

ander
Starting Member

España
24 Posts
Posted - 16 Sep 2004 :  14:21:05  Ver perfil  Enviar e-mail
Es porque muestras datos al cliente y haces luego un redirect, no sé si me explico.
Una posible solución sería quitar esa condición if para el formulario ("") y pasar los datos del formulario normalmente a una página intermedia que luego no será vista por el cliente, y en la que recoges los datos con request.form. Y allí sí, ya se puede redireccionar sin problemas.
saludos.

Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar