Problema Con Formato De Tabla

darkmcloud · #1 (**permalink**) 08/11/2007, 21:17

amigos de foros del web....mi consulta es la siguiente :
tengo un problema en el formato de una tabla que visualiza los resultados de un buscador.....el problema es que cuando en uno de los registros viene un campo vacio.....se corre las lineas de la tabla y me pierde el orden.....aqui una imagen de como se ve :

y este es el codigo del buscador :

Cita:

<HTML>
<HEAD>
</HEAD>
<body bgcolor="#FFCC66" background="2.jpg" text="BLACK" link="BLACK" vlink="BLACK" alink="BLACK">
<p align="center">
<%

dim dbConn

'aca recibo los campos que voy a realizar la busqueda
fecha_1 = Request.Form("fecha_1")
if IsDate(dfecha_1) then
dFecha_1=CDate(dFecha_1)
else
dFecha=""
end if

fecha_2 = Request.form("fecha_2")
csr = Request.form("csr")
distribuidor = Request.form("distribuidor")
estado = Request.form("estado")
tecnico = Request.form("tecnico")
On Error Resume next

Const adCmdText = &H0001
Const adOpenStatic = 3

'declaro las variables a utilizar incluyendo la se_encuentra
Dim Rs, Cnn, SQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
Cnn.Open Session("cnx")

'ejecuto la consulta
strSQL="SELECT *, DateDiff (day, fecha_in ,fecha_ret) as difes, DATEDIFF (DAY, fecha_in, getdate()) as difftot FROM tblcliente"

se_encuentra = False

if se_encuentra then
strSQL=strSQL & " AND tipo_cliente LIKE '%distribuidor'"
else
strSQL=strSQL & " WHERE tipo_cliente LIKE '%distribuidor'"
se_encuentra=True
end if

if IsDate(fecha_1) then

if se_encuentra then
strSQL=strSQL & " AND fecha_in between '"&fecha_1&"' and '"&fecha_2&"'"
else
strSQL=strSQL & " WHERE fecha_in between '"&fecha_1&"' and '"&fecha_2&"'"
se_encuentra=True
end if
end if

if csr <> "" then
if se_encuentra then
strSQL=strSQL & " AND csr LIKE '%"&csr&"'"
else
strSQL=strSQL & " WHERE csr LIKE '%"&csr&"'"
se_encuentra=True
end if
end if

'la variable se_encuentra se inicializa en falso y se cambia a verdadero si el campo trae un valor ingresado

if distribuidor <> "" then
if se_encuentra then
strSQL=strSQL & " AND distribuidor LIKE '%"&distribuidor&"'"
else
strSQL=strSQL & " WHERE distribuidor LIKE '%"&distribuidor&"'"
se_encuentra=True
end if
end if

if estado <> "" then
if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%"&estado&"'"
else
strSQL=strSQL & " WHERE estado LIKE '%"&estado&"'"
se_encuentra=True
end if
end if

if tecnico <> "" then
if se_encuentra then
strSQL=strSQL & " AND tecnico LIKE '%"&tecnico&"'"
else
strSQL=strSQL & " WHERE tecnico LIKE '%"&tecnico&"'"
se_encuentra=True
end if
end if
if se_encuentra then
strSQL = strSQL & " ORDER BY 'difftot' desc "
se_encuentra=True
end if

rs.Open strSQL,Cnn,adopenstatic,adcmdtext

'abrimos la tabla para llamar los registros

if rs.EOF then
Response.Write("No existe el campo ingresado, verifique los datos")
else %>

<br>
<font face="Bookman Old Style"><em>Número de registros seleccionados:</em></font> <b><%=RS.RecordCount%></b>
<p align="center">
<CENTER>
<TABLE WIDTH=1404 height="61" BORDER=1 align="center" CELLSPACING="2">
<tr> <td width=74 bordercolor="#F0F0F0" bgcolor="ORANGE"><center><b>Csr</b></center>
<td width=60 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Local</b></center>
<td width=66 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Guia De Despacho</b></center>
<td width=125 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Distribuidor</b></center>
<td width=73 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Fecha Ingreso</b></center>
<td width=122 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Artefacto</b></center>
<td width=83 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Serie</b></center>
<td width=95 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Estado</b></center>
<td width=92 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Fecha Aviso</b></center>
<td width=72 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><p><b>Fecha </b><b>Status</b></p></center>
<td width=92 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Guia de Entrega</b></center>
<td width=59 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Tipo de Garantia</b></center>
<td width=76 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Tecnico Asignado</b></center>
<td width=101 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Código de Autorización</b></center>
<td width=74 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Diferencia Dias Status</b></center>
<td width=74 bordercolor="#FFFFFF" bgcolor="ORANGE"><center><b>Diferencia Dias Total</b></center>
</tr> </table> </CENTER>

<%do while not rs.EOF%>

<center>
<TABLE BORDER=1 CELLSPACING="2" WIDTH=1416>
<tr>
<%Response.Write "<td WIDTH=80 align='left' >"&rs("csr")&"<td WIDTH=100 align='left'>"&rs("loc")&"<td WIDTH=99 align='left'>"&rs("guia_d")&"<td WIDTH=134 align='center'>"&rs("distribuidor")&"<td WIDTH=102 align='left'>"&rs("fecha_in")&"<td WIDTH=160 align='center' >"&rs("artefacto")&"<td WIDTH=100 align='left' >"&rs("serie")&"<td WIDTH=80 align='center' >"&rs("estado")&"<td WIDTH=102 align='left' >"&rs("fecha_avi")&"<td WIDTH=102 align='center' >"&rs("fecha_ret")&"<td WIDTH=82 align='left' >"&rs("guia_sta")&"<td WIDTH=70 align='center' >"&rs("gtia")&"<td WIDTH=100 align='left' >"&rs("tecnico")&"<td WIDTH=90 align='center' >"&rs("cod_auto")&"<td WIDTH=100 align='left' >"&rs("difes")&"<td WIDTH=90 align='center' >"&rs("difftot")%>
<br> </tr>
<%rs.Movenext%>
</table></center>
<%loop

end if

rs.Close

set rs = nothing

Cnn.Close

set oCnn = nothing

%>

</body>
</html>

De Antemano muchas gracias

Shiryu_Libra · #2 (**permalink**) 09/11/2007, 00:11

sencillo, modifica el codigo en cada RS("campo").value por el siguiente

Cita:

if isnull(RS.fields.item("campo").value) then
response.write" "
else
RS.fields.item("campo").value
end if

lo que hara es evaluar primero que no contenga vacio, en caso de ser afirmativo, escribe en respuesta un espacio en blanco generando la sentencia y evitandote el problema que tienes...... caso contrario te esribiria tu campo de la tabla

darkmcloud · #3 (**permalink**) 09/11/2007, 20:28

no te entiendo compadre....no me resulta....podrias ser mas especifico de como y donde insertar tu codigo.....porque no me resulta......

Ademas compadre........tengo otro problema.....es que cuando por ejemplo el campo de arriba tiene un dato de menor longitud....tambien me deforma la tabla........no se compadre.....habra algun codigo para que el formato de los campos sea siempre el mismo sin importar si el dato es de menos longitud o de mayor longitud

De antemano muchas gracias

AlZuwaga · #4 (**permalink**) 10/11/2007, 12:31

Compadre, es que tu HTML es un desastre de enormes proporciones. Comenzaría haciendo una linda tablita sin tantos atributos propietarios como bordercolor y bgcolor, no usar center y b para los encabezados haciendo uso de las "filas" th (table headers) y CSS para darle los tamaños y formatos... va a quedar más limpio y manejable.

Y prestá atención a donde dije una tablita... actualmente usás una para los encabezados y otra para los datos... ¡eso no tiene sentido!

darkmcloud · #5 (**permalink**) 11/11/2007, 19:44

entonces me podrias dar un ejemplo de como hacerlo entonces para mostrar los resultados pero sin hacer un for que me lea los datos (ya que desde asp hago la consulta datefiff para mostrar la diferencia de dias

Si no es mucho pedir.....podrias darme un ejemplo de esa "TABLITA" ???

AlZuwaga · #6 (**permalink**) 11/11/2007, 21:24

Cita:

...sin hacer un for que me lea los datos...

Bueno, creo que me tendrías que explicar qué quisiste decir

Si es que te referís a que si o si necesitás dos tablas (una para encabezados y otra para datos)... pues... nada....... mejor mañana te paso un ejemplo de la "TABLITA"

darkmcloud · #7 (**permalink**) 11/11/2007, 23:29

a esto es lo que yo me refiero compadre:

Cita:

'Contamos el numero de campos
num_campos=RS.Fields.Count
For campo=0 to num_campos-1%>
<td align="center"><%=RS(campo).Name%></td>
<%
Next
registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
registros_mostrados = registros_mostrados +1
%>
<tr>
<%For campo=0 to num_campos-1 %>
<td align="center"><%=RS(campo)%></td>
<%Next%>
</tr>
<%
RS.MoveNext
Wend
%>

a eso es lo que yo me refiero compadre....te agradeceria mucho que me ayudes.....
De antemano muchas gracias

CésarBalaguer · #8 (**permalink**) 12/11/2007, 17:15

a lo que se refiere es que en tu codigo estas creando dos tablas, una para los encabezados y una para los datos, cuando deberias crear una sola tabla.
antes de hacer el FOR creas las tablas.
dentro del FOR creas las columnas que son los encabezados con el <th>

luego en el WHILE vas creando fila por fila, pero todo en la misma tabla

darkmcloud · #9 (**permalink**) 12/11/2007, 19:43

Cita:

Iniciado por CésarBalaguer

a lo que se refiere es que en tu codigo estas creando dos tablas, una para los encabezados y una para los datos, cuando deberias crear una sola tabla.
antes de hacer el FOR creas las tablas.
dentro del FOR creas las columnas que son los encabezados con el <th>

luego en el WHILE vas creando fila por fila, pero todo en la misma tabla

ya....pero como lo hago ??? me podrias dar algun ejemplo del codigo por favor ???

solracnauj21 · #10 (**permalink**) 12/11/2007, 19:54

o simplemente coloca el   que por lo visto tambien no cierras <td> con el </td> es por eso que se te hace un papalote toda tu informacion ...
y trata de manejar mas lejible tu codigo, digo; esto te ayudara mas a entender

v_tabla="<td WIDTH=80 align='left' >"&rs("csr")& </td>"
v_tabla=v_tabla&<td WIDTH=100 align='left'>"&rs("loc")& </td>"
v_tabla=v_tabla&<td WIDTH=99 align='left'>"&rs("guia_d")& </td>"
v_tabla=v_tabla&<td WIDTH=134 align='center'>"&rs("distribuidor")& </td>"
v_tabla=v_tabla&<td WIDTH=102 align='left'>"&rs("fecha_in")& </td>"
v_tabla=v_tabla&<td WIDTH=160 align='center' >"&rs("artefacto")& </td>"
v_tabla=v_tabla&<td WIDTH=100 align='left' >"&rs("serie")& </td>"
v_tabla=v_tabla&<td WIDTH=80 align='center' >"&rs("estado")& </td>"
v_tabla=v_tabla&<td WIDTH=102 align='left' >"&rs("fecha_avi")& </td>"
v_tabla=v_tabla&<td WIDTH=102 align='center' >"&rs("fecha_ret")& </td>"
v_tabla=v_tabla&<td WIDTH=82 align='left' >"&rs("guia_sta")& </td>"
v_tabla=v_tabla&<td WIDTH=70 align='center' >"&rs("gtia")& </td>"
v_tabla=v_tabla&<td WIDTH=100 align='left' >"&rs("tecnico")& </td>"
v_tabla=v_tabla&<td WIDTH=90 align='center' >"&rs("cod_auto")& </td>"
v_tabla=v_tabla&<td WIDTH=100 align='left' >"&rs("difes")& </td>"
v_tabla=v_tabla&<td WIDTH=90 align='center' >"&rs("difftot")& </td>"

cuardate de esto <tr></tr><td></td>

algo asi men : saludos desde Chiapas Mex....

darkmcloud · #11 (**permalink**) 12/11/2007, 23:03

gracias compadre....lo hice como dices tu pero aun me sigue desordenando los campos vacios......que puedo hacer ???

De antemano muchas gracias

AlZuwaga · #12 (**permalink**) 13/11/2007, 09:53

Ayer no tuve tiempo, hoy no creo que tenga mucho y mañana menos.
Pero vos estás hablando de un for para crear dinámicamente los campos... ¿dónde lo estás usando? porque en tu código original no lo veo ¿eh?

Shiryu_Libra · #13 (**permalink**) 13/11/2007, 09:58

Mcloud
mira Mater A_Z(

), te decia que le dieras formato a la tabla con CSS, para que se miren mejor las tablas...

Despues nuestros compañeros Cesarbalaguer(

) y solracnauj21, te decian que no utilizaras 2 tablas para formar tu consulta, es un poco engorrosa y se mira demasiado desordenada si no les das formato a las 2 para que sean iguales en el despliegue...

anteriormente (6 dias) te anexe un pedazo de codigo que se hace en el despliegue de los datos de la consulta para evitar los datos nulos....

juntando todo lo que te hemos dicho seria algo asi:

CSS

Código PHP:

  <HEAD>
<style media="screen" type="text/css">
body{
    background-color:#FFCC66;
    background-image:"2.jpg";}
body a:link, a:vlink, a:alink;{
    color:#000000;}
table{
    text-align:center;
    vertical-align:top;
    width:1404px;
    border:1 px;}
th{
    border-color:#F0F0F0;
    background-color:#FFA500;
    text-align:center;
    font-style:normal;}
.tda1{text-align:left;}
.tda2{text-align:center;}
</style>

recuerda que el CSS, debe estar entre las etiquetas HEAD y las tablas en ves de ser 2, la dejamos en 1 sola

Código PHP:

  .
...
.
.
.<font face="Bookman Old Style"><em>N&uacute;mero de registros seleccionados:</em></font> <b><%=RS.RecordCount%></b>
<table cellspacing="2">
    <tr height="61">
        <th width="74">Csr</th>
        <th width="60">Local</th>
        <th width="66">Guia De Despacho</th>
        <th width="125">Distribuidor</th>
        <th width="73">Fecha Ingreso</th>
        <th width="122">Artefacto</th>
        <th width="83">Serie</th>
        <th width="95">Estado</th>
        <th width="92">Fecha Aviso</th>
        <th width="72">Fecha Status</th>
        <th width="92">Guia de Entrega</th>
        <th width="59">Tipo de Garantia</th>
        <th width="76">Tecnico Asignado</th>
        <th width="101">Código de Autorización</th>
        <th width="74">Diferencia Dias Status</th>
        <th width="74">Diferencia Dias Total</th>
    </tr>
<%
while rs.EOF=FALSE
%>
    <tr>
        <td class="tda1"><%if (rs.fields.item("csr").value)<>"" then response.Write rs.fields.item("csr").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("loc").value)<>"" then response.Write rs.fields.item("loc").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("guia_d").value)<>"" then response.Write rs.fields.item("guia_d").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("distribuidor").value)<>"" then response.Write rs.fields.item("distribuidor").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("fecha_in").value)<>"" then response.Write rs.fields.item("fecha_in").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("artefacto").value)<>"" then response.Write rs.fields.item("artefacto").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("serie").value)<>"" then response.Write rs.fields.item("serie").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("estado").value)<>"" then response.Write rs.fields.item("estado").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("fecha_avi").value)<>"" then response.Write rs.fields.item("fecha_avi").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("fecha_ret").value)<>"" then response.Write rs.fields.item("fecha_ret").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("guia_sta").value)<>"" then response.Write rs.fields.item("guia_sta").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("gtia").value)<>"" then response.Write rs.fields.item("gtia").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("tecnico").value)<>"" then response.Write rs.fields.item("tecnico").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("cod_auto").value)<>"" then response.Write rs.fields.item("cod_auto").value else response.Write"&nbsp;"%></td>
        <td class="tda1"><%if (rs.fields.item("difes").value)<>"" then response.Write rs.fields.item("difes").value else response.Write"&nbsp;"%></td>
        <td class="tda2"><%if (rs.fields.item("difftot").value)<>"" then response.Write rs.fields.item("difftot").value else response.Write"&nbsp;"%></td>
    </tr><%rs.Movenext%>
</table>
<%wend
....
....
..

tambien existe la forma de desplegar los resultados con el metodo GetRows....

ahora compara tus codigos con los que te hemos estado aconsejando y dinos cual es la diferencia...

darkmcloud · #14 (**permalink**) 13/11/2007, 20:40

estoy trabajando con todo lo que ustedes me dijeron....luego posteo los resultados

darkmcloud · #15 (**permalink**) 13/11/2007, 20:42

Primero que nada....agradezco la paciencia y la atencion de todos los que me han respondido....y bueno.....a decir verdad ya encontre la solucion pero a medias.......este es el codigo nuevo:

Cita:

<HTML>
<HEAD>
<%xx=request.form("direccion")
if xx = "Registros Previos" then
session("pagina")=session("pagina")-1

if session("pagina")< 1 then

session("pagina")=1 'evitamos el error por reload
end if

else
if xx="Registros Siguientes" then
session("pagina")=session("pagina")+1
else
session("pagina")=1 'primera pasada
end if
end if%>

</HEAD>
<body bgcolor="#FFCC66" background="2.jpg" text="BLACK" link="BLACK" vlink="BLACK" alink="BLACK">
<p align="center">
<%
if Session("id_usuario") = "" then
Response.Write "<SCRIPT LANGUAGE='JAVASCRIPT'>"
Response.Write "top.opener.close()"
Response.Write "</SCRIPT>"
Response.Redirect("Login.Asp")
end if

dim dbConn

'aca recibo los campos que voy a realizar la busqueda
fecha_1 = Request.Form("fecha_1")
if IsDate(dfecha_1) then
dFecha_1=CDate(dFecha_1)
else
dFecha=""
end if

fecha_2 = Request.form("fecha_2")
csr = Request.form("csr")
distribuidor = Request.form("distribuidor")
estado = Request.form("estado")
tecnico = Request.form("tecnico")
On Error Resume next

'declaro las variables a utilizar incluyendo la se_encuentra
Dim Rs, Cnn, SQL
set Cnn=Server.CreateObject("ADODB.Connection")
set rs=Server.CreateObject("ADODB.Recordset")
set rs.CursorType = adOpenstatic
Cnn.Open Session("cnx")

'ejecuto la consulta
strSQL="SELECT *, DateDiff (day, fecha_in ,fecha_ret) as difes,
DATEDIFF (DAY, fecha_in, getdate()) as difftot
FROM tblcliente"

se_encuentra = False

if se_encuentra then
strSQL=strSQL & " AND tipo_cliente LIKE '%distribuidor'"
else
strSQL=strSQL & " WHERE tipo_cliente LIKE '%distribuidor'"
se_encuentra=True
end if

if IsDate(fecha_1) then

if se_encuentra then
strSQL=strSQL & " AND fecha_ret between '"&fecha_1&"' and '"&fecha_2&"'"
else
strSQL=strSQL & " WHERE fecha_ret between '"&fecha_1&"' and '"&fecha_2&"'"
se_encuentra=True
end if
end if

if csr <> "" then
if se_encuentra then
strSQL=strSQL & " AND csr LIKE '%"&csr&"'"
else
strSQL=strSQL & " WHERE csr LIKE '%"&csr&"'"
se_encuentra=True
end if
end if

'la variable se_encuentra se inicializa en falso y se cambia a verdadero si el campo trae un valor ingresado

if distribuidor <> "" then
if se_encuentra then
strSQL=strSQL & " AND distribuidor LIKE '%"&distribuidor&"'"
else
strSQL=strSQL & " WHERE distribuidor LIKE '%"&distribuidor&"'"
se_encuentra=True
end if
end if

if estado <> "" then
if se_encuentra then
strSQL=strSQL & " AND estado LIKE '%"&estado&"'"
else
strSQL=strSQL & " WHERE estado LIKE '%"&estado&"'"
se_encuentra=True
end if
end if

if tecnico <> "" then
if se_encuentra then
strSQL=strSQL & " AND tecnico LIKE '%"&tecnico&"'"
else
strSQL=strSQL & " WHERE tecnico LIKE '%"&tecnico&"'"
se_encuentra=True
end if
end if
if se_encuentra then
strSQL = strSQL & " ORDER BY 'difftot' desc "
se_encuentra=True
end if

rs.Open strSQL, Cnn,adopenstatic,adcmdtext, rs.pagesize=10
'abrimos la tabla para llamar los registros

if session("pagina")>rs.pagecount then
session("pagina")=rs.pagecount 'evitamos el error de reload
end if%>



<%rs.absolutepage=session("pagina")
inicio=1+(session("pagina")-1)*rs.pagesize
fin=inicio+9
if fin > rs.recordcount then
fin =rs.recordcount
end if
%>
<center>
<h3>Resultados de la Busqueda </h3>
</center>
<table border="0" width="100%" bgcolor="#00FF00">
<tr>
<td width="50%" align="center">Registros <font color="#FF0000"><%=inicio%> </font>
al <font color="#FF0000"><%=fin%></font> de un total de
<font color="#FF0000"><%=rs.recordcount%></font></td>
<td width="50%" align="center">Página <font color="#FF0000"><%=session("pagina")%>
</font> de <font color="#FF0000"><%=rs.pagecount%></font></td>
</tr>
</table>
<br>

<table width="123%" height="99" BORDER="1" CELLPADDING="2" CELLSPACING="0" BORDERCOLOR="#000000">
<tr>
<td width="3%" BGCOLOR="#FFFFFF"><b>CSR</b></td>
<td width="4%" BGCOLOR="#FFFFFF"><b>Local</b></td>
<td width="6%" align="center" BGCOLOR="#FFFFFF"><b>Guia Despacho</b></td>
<td width="8%" align="center" BGCOLOR="#FFFFFF"><b>Distribuidor</b></td>
<td width="6%" align="center" BGCOLOR="#FFFFFF"><b>Artefacto</b></td>
<td width="4%" align="center" BGCOLOR="#FFFFFF"><b>Serie</b></td>
<td width="5%" align="center" BGCOLOR="#FFFFFF"><b>Estado</b></td>
<td width="4%" align="center" BGCOLOR="#FFFFFF"><b>Tipo Gtia</b></td>
<td width="13%" align="center" BGCOLOR="#FFFFFF"><b>Fecha Ingreso</b></td>
<td width="11%" align="center" BGCOLOR="#FFFFFF"><b>Fecha Status</b></td>
<td width="4%" align="center" BGCOLOR="#FFFFFF"><b>Fecha Aviso</b></td>
<td width="5%" align="center" BGCOLOR="#FFFFFF"><b>Guia de Entrega</b></td>
<td width="8%" align="center" BGCOLOR="#FFFFFF"><b>Codigo Autorizacion</b></td>
<td width="5%" align="center" BGCOLOR="#FFFFFF"><b>Tecnico</b></td>
<td width="7%" align="center" BGCOLOR="#FFFFFF"><b>Diferencia Status</b></td>
<td width="7%" align="center" BGCOLOR="#FFFFFF"><b>Diferencia Total</b></td>

</tr>



<%
contador=0
Do While contador < rs.pagesize and NOT rs.EOF%>

<tr>
<td><%= rs("csr")%></td>
<td><%= rs("loc")%></td>
<td> <%= rs("guia_d")%></td>
<td> <%= rs("distribuidor")%></td>
<td> <%= rs("artefacto")%></td>
<td> <%= rs("serie")%></td>
<td> <%= rs("estado")%></td>
<td> <%= rs("gtia")%></td>
<td> <%= rs("fecha_in")%></td>
<td> <%= rs("fecha_ret")%></td>
<td> <%= rs("fecha_avi")%></td>
<td> <%= rs("guia_sta")%></td>
<td> <%= rs("cod_auto")%></td>
<td> <%= rs("tecnico")%></td>
<td> <%= rs("difes")%></td>
<td> <%= rs("difftot")%></td>
</tr>

<% rs.MoveNext
contador=contador+1
Loop

%>
</table>

<div align="center">
<center>


<table border="0" width="38%" height="5">
<tr><%if session("pagina")<> 1 then %>
<td width="50%" height="1" align="center">
<form method="POST" action="val_buscar.asp">
<p><input type="submit" value="Registros Anteriores" name="direccion"></p>
</form>
</td><%end if%>
<%if session("pagina")< rs.pagecount then%>
<td width="50%" height="1" align="center">
<form method="POST" name="val_buscar.asp">
<p><input type="submit" value="Registros Siguientes" name="direccion"></p>
</form>
</td><%end if%>
</tr>
</table>
</center>
</div>



<%rs.Close%>
</body>
</html>

el problema que tengo es que cuando me muestra los 10 primeros registros no tengo problema alguno...pero cuando presiono para ver los registros siguientes....se salta el filtro de la busqueda y me trae todos los resultados de la base de datos, que podra ser mi error ??

De antemano muchas gracias

AlZuwaga · #16 (**permalink**) 13/11/2007, 22:05

Hola de nuevo... ese "efecto" debería ocurrir sólo en IE (el de no "dibujar" los bordes de las celdas que no tienen contenido)... te recomiendo mires tu página en otro navegador como por ejemplo Firefox para corroborarlo (nah, mejor no... seguro te llevarías una mala impresión y firefox no sería el culpable...)

Para solucionarlo meté éste estilo:

Código:

table{
	border-collapse: collapse;
}

darkmcloud · #17 (**permalink**) 13/11/2007, 23:00

pero compadre.....mi problema no es ese ahora.........sino el que al paginar los resultados.....al presionar los botones para ver los siguientes registros......se salta el filtro de la busqueda y me trae todos los resultados de la bdd y no los que yo consulte...

DE antemano muchas gracias

JuanRAPerez · #18 (**permalink**) 14/11/2007, 10:41

verifica que el valor de la pagina este incrementandose de verdad
y que tu sql este leyendo el valor de la pagina en la que dice estar

suerte

darkmcloud · #19 (**permalink**) 14/11/2007, 12:06

y eso que tu dices compadre.........como lo puedo hacer ???
en donde tengo que fijarme ???

De antemano muchas gracias