ayudenme sobre esto chicossssssssss

Ana del Pilar · #1 (**permalink**) 07/02/2004, 18:03

Hola chicos soy nueva y necesito que vos me ayudes

:)

tengo una consulta que muestra un maximo de 30 filas
y lo que deseo es mostrar 10 filas en cada columna
en un table con 3 columnas
esto ya lo he recuperado, en un recorset solo me falta mostrarlo
del modo en que les digo
y necesito su ayuda

ayudenme porfa byeeeeeeeeeeeeeee

comsis · #2 (**permalink**) 08/02/2004, 14:47

Es bastante complicadito pero se puede utilizando movimientos del cursor de la Db.
Te regalo un ejemplo donde imprimo unos stickers a dos columnas de una Db . Espero te sirva.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%
DIM topMargen, leftMargen, lineasEntreClientes, lineasEntrePaginas, lineasPorPagina
topMargen = 40
leftMargen = 0
lineasEntreClientes = 2 ' epscios en blanco entre registros horizontales
lineasPorPagina = 9 ' cuantos registros ( x2 ) por pagina
lineasEntrePaginas = 3 ' espacios para salto de pagina
colorRelleno = "#FFFFFF"
' se deben cuadrar PAGINA TAMAÑO CARTA Y MARGENES EN 19.05 ARRIBA ABAJO IZQ Y DER
%>
<%
DIM strSql
strSql = ""
IF INSTR( REQUEST.QueryString, "Busqueda1") > 0 THEN
strSql = "WHERE clie_nombre LIKE '" + REQUEST.QUERYSTRING("inicie") + "%'"
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda2") > 0 THEN
strSql = "WHERE ( clie_nombre LIKE '%" + REQUEST.QUERYSTRING("contenga") + "%') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda3") > 0 THEN
strSql = "WHERE ( clie_ciudad ='" + REQUEST.QUERYSTRING("ciudadBuscada") + "') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda4") > 0 THEN
strSql = "WHERE ( clie_departamento ='" + REQUEST.QUERYSTRING("departamentoBuscado") + "') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda5") > 0 THEN
strSql = "WHERE ( clie_zona ='" + REQUEST.QUERYSTRING("zonaBuscada") + "') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda6") > 0 THEN
strSql = "WHERE ( clie_tipo ='" + REQUEST.QUERYSTRING("tipoBuscado") + "') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda0") > 0 THEN
strSql = "WHERE ( clie_codigo LIKE '%" + REQUEST.QUERYSTRING("codigo") + "%') "
ELSE
IF INSTR( REQUEST.QueryString, "Busqueda7") > 0 THEN
strSql = "WHERE ( clie_nit LIKE '%" + REQUEST.QUERYSTRING("nit") + "%') "
END IF
END IF
END IF
END IF
END IF
END IF
END IF
END IF
IF REQUEST.QueryString("tipoActivo") = "activos" THEN
strSql = strSql + " AND clie_activo "
ELSE
IF REQUEST.QueryString("tipoActivo") = "inactivos" THEN
strSql = strSql + " AND NOT clie_activo "
END IF
END IF
%>
<%
Dim clientes__MMColParam
clientes__MMColParam = "1"
If (Request.QueryString("clie_zona") <> "") Then
clientes__MMColParam = Request.QueryString("clie_zona")
End If
%>
<%
Dim clientes
Dim clientes_numRows

Set clientes = Server.CreateObject("ADODB.Recordset")
clientes.ActiveConnection = MM_distrim_STRING
clientes.Source = "SELECT * FROM clientes " & strSql & " AND clie_enviarLista ORDER BY " & REQUEST.QueryString("ordenarPor")& " ASC"
clientes.CursorType = 1
clientes.CursorLocation = 2
clientes.LockType = 1
clientes.Open()

clientes_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Dim totalRegistros
Dim totalPaginas
Dim RegistrosPorPagina
Dim registro, pagina

clientes_numRows = clientes_numRows + Repeat1__numRows
totalRegistros = clientes.recordCount
totalPaginas = totalRegistros / lineasPorPagina
%>
<html>
<head>
<title>Stickers</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body leftmargin=<%=leftMargen%> topmargin=<%=topMargen%>>
<%
pagina = 1
WHILE (pagina <= totalPaginas) AND ( NOT clientes.EOF)' WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW while 1 WWWWWWWWWWWWWWWWWWWWWWWWW
%>
<%
registro = 1
While ((registro <= lineasPorPagina) AND (NOT clientes.EOF)) ' *******************************while 2 *********
%>
<table width="552" border="0" cellpadding="0" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="258" height="66"><font size="1" face="Arial, Helvetica, sans-serif">Señores:<br>
<%IF NOT clientes.EOF AND NOT clientes.BOF THEN RESPONSE.WRITE(clientes.Fields.Item("clie_nombre") .Value)%>
<br>
<%IF NOT clientes.EOF THEN
IF LEN (clientes.Fields.Item("clie_direccion").Value) > 2 THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_direccio n").Value)
ELSE
RESPONSE.WRITE("Dirección ??")
END IF
END IF
%>
 Tel
<%
IF LEN( clientes.Fields.Item("clie_tel").Value) > 2 THEN
response.write(clientes.Fields.Item("clie_tel").Va lue)
ELSE
RESPONSE.WRITE("??") ' telefono
END IF
%>
<br>
<%
IF NOT clientes.EOF AND NOT clientes.BOF THEN
IF LEN(clientes.Fields.Item("clie_ciudad").Value) > 2 THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_ciudad") .Value)
ELSE
RESPONSE.Write("Ciudad ??")
END IF
END IF
%>
 
<%
IF clientes.Fields.Item("clie_departamento").Value <> "Sin Definir" THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_departam ento").Value)
ELSE
RESPONSE.WRITE("Departamento ??")
END IF
%>
<br>
</font></td>
<td width="39"> </td>
<td width="255"><font size="1" face="Arial, Helvetica, sans-serif"> Señores:<br>
<%IF NOT clientes.EOF THEN clientes.MoveNext()%>
<%IF NOT clientes.EOF THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_nombre") .Value) & "<br>"
IF LEN (clientes.Fields.Item("clie_direccion").Value) > 2 THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_direccio n").Value)
ELSE
RESPONSE.WRITE("Dirección ??")
END IF
IF LEN( clientes.Fields.Item("clie_tel").Value) > 2 THEN
response.write(" Tel " & clientes.Fields.Item("clie_tel").Value) & "<br>"
ELSE
RESPONSE.WRITE(" Tel ??") & "<br> " ' telefono
END IF
IF LEN(clientes.Fields.Item("clie_ciudad").Value) > 2 THEN
RESPONSE.WRITE(clientes.Fields.Item("clie_ciudad") .Value)
ELSE
RESPONSE.Write(" Ciudad ??")
END IF
IF clientes.Fields.Item("clie_departamento").Value <> "Sin Definir" THEN
RESPONSE.WRITE(" " & clientes.Fields.Item("clie_departamento").Value)
ELSE
RESPONSE.WRITE(" Departamento ??")
END IF
IF NOT clientes.EOF THEN clientes.MoveNext()
ELSE
' RESPONSE.WRITE("fin de archivo")
END IF
%>
<br>
<br>
</font></td>
</tr>
</table>
<%
DIM x
x = 1
WHILE x <= lineasEntreClientes
RESPONSE.WRITE("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td><div align='center'><font size='2' face='Arial' color='" + colorRelleno + "'>"& registro& "</font></div></td></tr></table>")
x = x + 1
WEND
registro = registro + 1
WEND ' *********************************** WEND REGISTRO
IF NOT clientes.EOF THEN clientes.MoveNext()
pagina = pagina + 1
IF registro > 8 THEN
y = 1
WHILE y <= lineasEntrePaginas
RESPONSE.WRITE("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td><div align='center'><font size='2' face='Arial' color='" + colorRelleno + "'>"& pagina& "</font></div></td></tr></table>")
y = y + 1
WEND
END IF
Wend '************************************************* ******* WEND PAGS
%>
</body>
</html>
<%
clientes.Close()
Set clientes = Nothing
%>

PMP · #3 (**permalink**) 11/02/2004, 09:08

Prueba con esto:

<table>
<%
While ((NOT rs.BOF) AND (NOT rs.EOF))
Response.Write("<tr>")
Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext

Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext

Response.Write("<td>" & rs("Dato") & "</td>")
rs.MoveNext
Response.Write("</tr>")
Wend
%>
</table>

O bien:

<%
While ((NOT rs.BOF) AND (NOT rs.EOF))
varCol1 = varCol1 & rs("Dato") & "<br>"
rs.MoveNext

varCol2 = varCol2 & rs("Dato") & "<br>"
rs.MoveNext

varCol3 = varCol3 & rs("Dato") & "<br>"
rs.MoveNext
Wend
%>
<table>
<tr>
<td><%=varCol1%></td>
<td><%=varCol2%></td>
<td><%=varCol3%></td>
</tr>
</table>

Espero te sirva!!!!

Bye