donde esta el error en esta paginacion ?

hugorei · #1 (**permalink**) 10/04/2004, 09:17

El tema es el siguiente la paginacion me la hace bien pero solo en la primer página pero cuando voy a los links me da error 404 no existe la pagina , por que no me crea los links ?

Les paso el codigo :

<HTML>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>

<form name="form1" method="post" action="resultado.asp">
<p>
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar">
</p>
<p align="left"> </p>
</form>

</center>
</body>
</html>

<%
buscar = Request.Form("textfield")

if buscar <> "" then

TamPagina = 40

if Request.Querystring("pagina") = "" then
PaginaActual = 1
else
PaginaActual = CInt(Request.Querystring("pagina"))
end if

set oConn = Server.CreateObject("ADODB.Connection")
set RSBusqueda = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath("equivalencias.mdb") & ";"

sSQL = "SELECT ORIGINAL, MARCA, FAMEL FROM Equivalencias WHERE MARCA LIKE '%"&buscar&"%'"

RSBusqueda.PageSize=TamPagina
RSBusqueda.CacheSize=TamPagina

RSBusqueda.Open sSQL, oConn, 1, 2

PaginasTotales = RSBusqueda.PageCount
Total = RSBusqueda.recordcount

if PaginaActual < 1 then
PaginaActual = 1
end if

if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

Tot = 0
'RSBusqueda.AbsolutePage = PaginaActual
If RSBusqueda.BOF And RSBusqueda.EOF Then
Total = RSBusqueda.EOF
'Response.Write Total
'Response.End
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>

<%
Else
%>

<table width="100%" align="center" border="0" cellspacing="2" cellpadding="2">
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="26%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
original</font></strong> </td>
<td width="41%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">MARCA</font></strong></p></td>
<td width="33%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
en FAMEL</font></strong> </td>
</tr>
<%
while not RSBusqueda.eof and Tot < TamPagina
%>
<tr>
<td width="26%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("original"))%></font></td>
<td width="41%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("marca"))%></font></td>
<td width="33%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("famel"))%></font></td>
</tr>

<%
Tot = Tot + 1
RSBusqueda.movenext
wend
%>
</table>
<%
end if
%>

<br>

<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>
<%
If PaginaActual > 1 Then
response.Write("<a href=""resultado.asp&pagina=" & PaginaActual - 1 & """>[<< Ant.]</a> ")
End If

For J = 1 To PaginasTotales
If J = PaginaActual Then
response.Write("<font Color=red><B> " & J & " </B></font>")
Else
response.Write("<a href=""resultado.asp&pagina=" & PaginaActual - 1 & """>" & J & "</a> ")
End If
Next

If PaginaActual < PaginasTotales Then
response.Write("<a href=""resultado.asp&pagina=" & PaginaActual - 1 & """>[Sig. >>]</a>")

End If
%>
</td>
</tr>
</table>

<%
else
response.Write("<center>Por favor, especifique su búsqueda.<br><br>")
end if
%>

</body>
</html>

GRACIAS A QUIEN ME AYUDE

hugorei · #2 (**permalink**) 10/04/2004, 21:05

Necesito ayuda por favor, gracias

hugorei · #3 (**permalink**) 13/04/2004, 19:20

Por favor si alguien me puede ayudar no se porque no me crea los links de las paginas posteriores, me muestra la 1º de resultados pero en los links no me muestra nada me dice que no existe , no me esta creando las páginas de referencia , alguien que me ayude hace rato que estoy con esto y no le encuentro la vuelta y aqui nadie me ayudo , por favor necesito solucionarlo urgente .

MUCHAS GRACIAS AL QUE ME AYUDE

univercity · #4 (**permalink**) 13/04/2004, 19:40

QUE TAL HUGOREI, compadre estoy mirando el codigo me lo he bajado para mirarlo en el editor... siempre funciono mejor con los colores, jeje...
bueno no te aseguro resultados, porque no soy de los mas maestros pero empeño le pondré... al menos 2 piensan mas que 1...
Esa base de datos equivalencias, tiene informacion muy privada?
me la puedes enviar???...

[email protected]

univercity · #5 (**permalink**) 13/04/2004, 19:42

Le hice un cambio, es rechico, si te funciona o no avisame...

<HTML>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>

<form name="form1" method="post" action="resultado.asp">
<p>
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar">
</p>
<p align="left"> </p>
</form>

</center>
</body>
</html>

<%
buscar = Request.Form("textfield")

if buscar <> "" then

TamPagina = 40

if Request.Querystring("pagina") = "" then
PaginaActual = 1
else
PaginaActual = CInt(Request.Querystring("pagina"))
end if

set oConn = Server.CreateObject("ADODB.Connection")
set RSBusqueda = Server.CreateObject("ADODB.Recordset")

oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=" & Server.MapPath("equivalencias.mdb") & ";"

sSQL = "SELECT ORIGINAL, MARCA, FAMEL FROM Equivalencias WHERE MARCA LIKE '%"&buscar&"%'"

RSBusqueda.PageSize=TamPagina
RSBusqueda.CacheSize=TamPagina

RSBusqueda.Open sSQL, oConn, 1, 2

PaginasTotales = RSBusqueda.PageCount
Total = RSBusqueda.recordcount

if PaginaActual < 1 then
PaginaActual = 1
end if

if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

Tot = 0
'RSBusqueda.AbsolutePage = PaginaActual
If RSBusqueda.BOF And RSBusqueda.EOF Then
Total = RSBusqueda.EOF
'Response.Write Total
'Response.End
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>

<%
Else
%>

<table width="100%" align="center" border="0" cellspacing="2" cellpadding="2">
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="26%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
original</font></strong> </td>
<td width="41%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">MARCA</font></strong></p></td>
<td width="33%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
en FAMEL</font></strong> </td>
</tr>
<%
while not RSBusqueda.eof and Tot < TamPagina
%>
<tr>
<td width="26%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("original"))%></font></td>
<td width="41%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("marca"))%></font></td>
<td width="33%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("famel"))%></font></td>
</tr>

<%
Tot = Tot + 1
RSBusqueda.movenext
wend
%>
</table>
<%
end if
%>

<br>

<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>
<%
If PaginaActual > 1 Then
response.Write("<a href=""resultado.asp&pagina=" & PaginaActual - 1 & """>[<< Ant.]</a> ")
End If

For J = 1 To PaginasTotales
If J = PaginaActual Then
response.Write("<font Color=red><B> " & J & " </B></font>")
Else
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual - 1 & """>" & J & "</a> ")
End If
Next

If PaginaActual < PaginasTotales Then
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual - 1 & """>[Sig. >>]</a>")

End If
%>
</td>
</tr>
</table>

<%
else
response.Write("<center>Por favor, especifique su búsqueda.<br><br>")
end if
%>

</body>
</html>

univercity · #6 (**permalink**) 13/04/2004, 20:42

Ok. por lo menos a mi me funciona....solo debes cambiar este sector, era un error pequeño , solo que al hacer el enlace en vez de ?, tienes puesto &, por eso no te funca el codigo...

<%
If PaginaActual > 1 Then
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual - 1 & """>[<< Ant.]</a> ")
End If

For J = 1 To PaginasTotales
If J = PaginaActual Then
response.Write("<font Color=red><B> " & J & " </B></font>")
Else
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual + 1 & """>" & J & "</a> ")
End If
Next

If PaginaActual < PaginasTotales Then
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual + 1 & """>[Sig. >>]</a>")

End If
%>

Ahhh, habilite el codigo que tienes desabilitado y funciona bien, vuelve a habilitarlo...

Slds.

hugorei · #7 (**permalink**) 14/04/2004, 05:43

mira me sigue sin funcionar fijate en este enlace lo que hace ? pone para buscar la palabra MAN , fijate los enlaces que no funcionan, puede ser por que la cantidad que encuentra es mucha ??????

http://www.famel.com.ar/equivalencias/resultado.asp

No te mando la base de datos por que tiene 90.000 registros pero en el enlace fijate como esta constituida la base de datos lo que se muestra es la base con todos sus campos .

hugorei · #8 (**permalink**) 14/04/2004, 13:11

Nadie descubrio el error ? no lo puedo creer , tantos visitantes y nada, yo ya he probado de todo

fedegrillo · #9 (**permalink**) 14/04/2004, 14:38

Tienes razon hugorei tu codigo no genera los enlaces , poco te puedo ayudar por que se muy poco de asp , me copie tu código, ojala te contesten a ver donde esta el error tambien me serviria a mi tu paginacion espero que no te moleste que me lo haya copiado.

saludos

univercity · #10 (**permalink**) 14/04/2004, 14:41

Y cambiastes los valores -1 a +1 porque el antiguo codigo lo tenias todo en -1 y a mi de esa manera tampoco me funcionaba, el codigo lo tengo en mi casa... si le encuentro alguna falla, en la noche estaré online...

Fijate en el ultimo codigo que te dejé, hay cambie los valores (-1)
ademas hay parte del codigo que lo tenias desabilitado... lo volviste a habilitar... yo lo habilite completo y me funcionaba bien, claro que mi BD, era de unos 50 registros... asi que haste limite el tamaño de paginacion a 5... pero bueno sigueme contando....

el problema que tienes es por esos valores...(-1)

slds.

hugorei · #11 (**permalink**) 14/04/2004, 15:44

Perdon no se a que te referis cuando dices codigo inhabilitado yo no veo nada desabilitado , y en cuanto a los valores si los cambie como vos me dijiste , ahora voy hacer una prueba con menos datos a ver si es la cantidad de datos que tira el error no se ?

Fijate en el enlace vas a ver como anda el codigo en el servidor cuando le das click a la pagina siguiente no te muestra nada .

Estoy permanente en linea entro y salgo cualquier cosa si descubris algo avisame . gracias por ayudarme

Contestacion a fedegrillo no hay problema no me molesta que copies el codigo es mas pasame tu mail que cuando encuentre la solucion te lo envio .

univercity · #12 (**permalink**) 14/04/2004, 16:22

hay codigo que lo tienes desabilitado con la comilla delante

Estos son...
sacales las comillas que tienen delante...

Tot = 0
'RSBusqueda.AbsolutePage = PaginaActual
If RSBusqueda.BOF And RSBusqueda.EOF Then
Total = RSBusqueda.EOF
'Response.Write Total
'Response.End

Avisame

univercity · #13 (**permalink**) 14/04/2004, 16:25

a todo esto ya ví el codigo, y es lo mismo que me pasaba a mi, e hice dos cambios :

1.- cambiar los valores de -1 a +1 (en los casos ya vistos)
2.- habilitar todo el codigo

y con eso me funciono...

edrdz · #14 (**permalink**) 14/04/2004, 16:32

Utilizando Asp, y BD Access.

para la creacion de paginas utilizando Asp, como le puedo hacer para acceder a distintas paginas, si tengo usuarios y password y cada usuario tiene una pagina de acceso, es decir, tengo en mi base de datos, almacenados user y password,

como le puedo hacer para que al momento de ingresar a la pagina de login, un usuario (user1) pueda accesar a cierta pagina, y otro usuario (user2) al ingresar pueda accesar a una pagina distinta a la que el user1 no tiene acceso,

si me explique,

User1 - pagina x
user2 - pagina y

el user1 no puede accesar a la pagina y
user2 no puede accesar a pagina x

y como tengo que almacenar las paginas o nombrarlas,

Por favor tengo esa duda, me podria alguien ayudar con el codigo,
gracias...

univercity · #15 (**permalink**) 14/04/2004, 16:39

No tengo problema en responder la pregunta EDRDZ, pero estamos en este post resolviendo el problema de HUgorei, haz un post nuevo y te ayudamos... no es complicado lo que quieres en todo caso... (bueno si es que te entendí)

Slds.

hugorei · #16 (**permalink**) 14/04/2004, 16:43

he habilitado todo el codigo y increiblemente sigo igual , me voy a enloquecer como puede ser que a vos te funcione y a mi noo.

Mira pongo el codigo que esta en el servidor de nuevo :

<HTML>
<head>
<title>Buscar</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000"><center>
<p><b><font size="5">MI BUSCADOR</font></b> </p>

<form name="form1" method="post" action="resultado.asp">
<p>
<input type="text" name="textfield">
<input type="submit" name="Submit" value="Buscar">
</p>
<p align="left"> </p>
</form>

</center>
</body>
</html>

<%
buscar = Request.Form("textfield")

if buscar <> "" then

TamPagina = 50

if Request.Querystring("pagina") = "" then
PaginaActual = 1
else
PaginaActual = CInt(Request.Querystring("pagina"))
end if

set oConn=Server.CreateObject("ADODB.Connection")
set RSBusqueda = Server.CreateObject("ADODB.Recordset")
oConn.Open "Data Source=" & Server.Mappath(" equivalencias.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"

sSQL = "SELECT ORIGINAL, MARCA, FAMEL FROM equivalencias WHERE MARCA LIKE '%"&buscar&"%'"

RSBusqueda.PageSize=TamPagina
RSBusqueda.CacheSize=TamPagina

RSBusqueda.Open sSQL, oConn, 1, 2

PaginasTotales = RSBusqueda.PageCount
Total = RSBusqueda.recordcount

if PaginaActual < 1 then
PaginaActual = 1
end if

if PaginaActual > PaginasTotales then
PaginaActual = PaginasTotales
end if

Tot = 0
RSBusqueda.AbsolutePage = PaginaActual
If RSBusqueda.BOF And RSBusqueda.EOF Then
Total = RSBusqueda.EOF
Response.Write Total
Response.End
%>

<p><font face="Tahoma" size="2">No se ha encontrado nada con <strong><%=Request("palabra")%></strong> en la Base de Datos</font></p>

<%
Else
%>

<table width="100%" align="center" border="0" cellspacing="2" cellpadding="2">
<div align="center"><center>
<table border="1" cellpadding="0" cellspacing="0" width="100%" height="74" bordercolor="#C0C0C0">
<tr>
<td width="26%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
original</font></strong> </td>
<td width="41%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">MARCA</font></strong></p></td>
<td width="33%" height="19"> <p align="center"><strong><font face="Tahoma" size="2">Número
en FAMEL</font></strong> </td>
</tr>
<%
while not RSBusqueda.eof and Tot < TamPagina
%>
<tr>
<td width="26%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("original"))%></font></td>
<td width="41%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("marca"))%></font></td>
<td width="33%" bgcolor="#FFCC00" height="20"> <p align="center"><font face="Tahoma" size="2"> <%=(RSBusqueda("famel"))%></font></td>
</tr>

<%
Tot = Tot + 1
RSBusqueda.movenext
wend
%>
</table>
<%
end if
%>

<br>

<table width="100%" border="0" cellspacing="2" cellpadding="2">
<tr>
<td>

<%
If PaginaActual > 1 Then
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual - 1 & """>[<< Ant.]</a> ")
End If

For J = 1 To PaginasTotales
If J = PaginaActual Then
response.Write("<font Color=red><B> " & J & " </B></font>")
Else
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual + 1 & """>" & J & "</a> ")
End If
Next

If PaginaActual < PaginasTotales Then
response.Write("<a href=""resultado.asp?pagina=" & PaginaActual + 1 & """>[Sig. >>]</a>")

End If
%>

</td>
</tr>
</table>

<%
else
response.Write("<center>Por favor, especifique su búsqueda.<br><br>")
end if
%>

</body>
</html>

univercity · #17 (**permalink**) 14/04/2004, 16:52

ahhh,. ahora me acuerdo lo otro que hice, ahora que te veo el codigo, yo borre, el formulario, no haz probado en sacarlo y colocarlo con otro nonmbrE????....

en 45 minutos estaré en mi casa... lo verémos de nuevo...
ahí nos vemos!!!!!!

hugorei · #18 (**permalink**) 14/04/2004, 17:00

okkk

univercity · #19 (**permalink**) 14/04/2004, 17:57

Mira aqui esta el problema :
buscar = Request.Form("textfield")

este valor no pasa a las otras paginas, haz el ejercicio un momento quita el codigo, del form por un instante fija la busqueda...

buscar = "MANN"
y pruebalo así...

ahora la solucion la buscamos enseguida, porque solo encontre el error ahora tenemos que darle la solucion...

fedegrillo · #20 (**permalink**) 15/04/2004, 05:17

Si separas el formulario y lo pones en otra hoja aparte, es decir el formulario por un lado y el resultado por el otro , podria estar la solucion por ahi

hugorei · #21 (**permalink**) 15/04/2004, 19:30

univercity lo he probado como dijiste y no funciona he puesto un balor fijo "man" pero hace lo mismo los enlaces no los muestra , sino fijate en esta direccion :

http://www.famel.com.ar/equivalencias/resultado100.asp