Tema: ayudenme sobre esto chicossssssssss
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 08/02/2004, 14:47
comsis
 
Fecha de Ingreso: mayo-2002
Mensajes: 46
Antigüedad: 23 años
Puntos: 0
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"%>
<!--#include file="Connections/distrim.asp" -->
<%
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&ntilde;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
%>
&nbsp;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
%>
&nbsp;
<%
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">&nbsp;</td>
<td width="255"><font size="1" face="Arial, Helvetica, sans-serif"> Se&ntilde;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
%>