como puedo contar lineas en ASP????

[karmish]

Saludos:

Necesito contar lineas en asp para poder dejar la informacion en paginas, el codigo que tengo es este:

Código:

<table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td height="128" colspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="315" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="3"></td>
              </tr>
          <tr>
            <td width="44" rowspan="3" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td height="17" colspan="2" valign="top"><span class="reportetit2">EXPERIENCIA PROFESIONAL</span></td>
                <td></td>
              </tr>
          <tr>
            <td height="24" colspan="2" align="left" valign="middle"><img src="images/reporte/linea2.jpg" width="700" height="5" /></td>
                <td></td>
              </tr>
          <tr>
            <td height="106" colspan="2" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
              <!--DWLayoutTable-->
              <%WHILE NOT rsex.EOF%>
              <tr>
                <td width="387" height="24" valign="top"><span class="reportetit2"><%=rsex.Fields("empresa").value%></span></td>
                      <td colspan="2" valign="top"><span class="reportetit2">Desde <%=rsex.Fields("mes_ini").value%>&nbsp;<%=rsex.Fields("ano_ini").value%>&nbsp;a&nbsp;<%=rsex.Fields("mes_fin").value%>&nbsp;<%=rsex.Fields("ano_fin").value%></span></td>
                    </tr>
              <tr>
                <td height="81" colspan="2" valign="top">
                  <div align="justify"><span class="reportetit2">
                    <%depto1=rsex.Fields("id_famcargos").value
					  if depto1 <> "" then
					 	SQL8="execute sp_s_famcargos3 '"&depto1&"';"
						SET rss2=DbObj.Execute(SQL8)
					 depto1 = rss2("des_famcargo")
					 else
					 depto1 = "Departamento"
					 end if
					 Response.Write(depto1)
					  %>
                    &nbsp;&nbsp;-&nbsp;&nbsp;
                    <%cargo1=rsex.Fields("id_cargos").value
					  if cargo1 <> "" then
					MI1="execute sp_s_cargos4 '"&cargo1&"';"
					 SET bo1=DbObj.Execute(MI1)
					carg1 = bo1("des_cargos")
					 else
					 carg1 = "Cargo"
					end if
					 Response.Write(carg1)
					  %>
                    </span><br />
                    <span class="reportetext">
                      <%=rsex.Fields("des_expla").value%></span> <br />
                    <br />
                    <%rsex.MoveNext%>
                    <br />
                    <br />                
                    </div></td>
                      <td width="136" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                    </tr>
              <tr>
                <td height="0"></td>
                      <td width="200"></td>
                      <td></td>
                    </tr>
              <%WEND%>
              </table></td>
                <td></td>
              </tr>
          </table>

[Myakire]

En las FAQ's y en las respuestas anteriores hay ejemplos.

Saludos

[karmish]

Muchas gracias por el dato estimado

cambiando de tema y muy bruscamente, estube viendo el post de asp a pdf, me gustaria saver como puedo colocar los datos de mi base de datos dentro del pdf???

[Myakire]

te refieres a un post de muuuuchas páginas o cuál te refieres?

Ya hiciste los ejemplos que ahi vienen?

[u_goldman]

¿Anda de mal humor? ya cásese....wooops

[Myakire]

mal humorado yo?

por favor!!!

Si es viernes largo de quincena

[karmish]

hola: si hice todos los ejemplos del post ese que tiene muuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuchas paginas (8)
lo que pasa es que no chacho bien donde hay que configurar para que se genere una imagen de fondo en todas las paginas que hay al generas el pdf () solo me sale la primera hoja con la imajen), lo otro que tambien tiene que ver con eso es la enumeracion de la paginas, tampoco se donde configurar eso.
Yo estoy programando todo esto en asp.
si quieren que envie el codigo mi correo es [email protected]
gracias.

[karmish]

Wuuuaaaaa sigo leyendo los foros con respecto al FPDF y si go sin entender algunas cosas , porfavor expliquenme con masanitas.....

[Myakire]

Para que te ponga la imagen en todas las páginas solo debes indicar con coordenadas absolutas la imagen despues del Addpage, por ejemplo:

Código:

Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
Ciclo con en el haces algo para llenara cada página, debes de contar las páginas para agregar encabezados (método AddPage)
pdf.AddPage()
pdf.Image "borrador.JPG",60,80,90,80
....contenido del pdf
fin ciclo
pdf.Close()
pdf.Output()

[karmish]

Si lo tengo asi despues del ADD page

Código:

 Set pdf=CreateJsObject("FPDF") 
pdf.CreatePDF() 
pdf.SetPath("fpdf/") 
pdf.SetFont "Arial","",12
pdf.Open() 
pdf.AddPage() 
pdf.Image "images/reporte/fondo.jpg",0,0,250,296, "JPG"
pdf.Cell 42,40,"Resumen Ejecutivo del Postulante"

y no lo hace.

Otra cosa como ago un salto de pagina??????

[Myakire]

Pues si lo hace ...

este código pone la imagen en tres hojas vacias

Código:

<!--#include file="fpdf.asp"-->
<%
Set pdf=CreateJsObject("FPDF")
pdf.CreatePDF()
pdf.SetPath("fpdf/")
pdf.SetFont "Arial","",16
pdf.Open()
for i=1 to 299
if i=1 or i=100 or i=200 Then pdf.AddPage() End if
pdf.Image "borrador.JPG",60,80,90,80
next
pdf.Close()
pdf.Output()
%>

[karmish]

y con el pie de pagina como quedaria?????

[karmish]

alguien sabe por que no funciona el FPDF en el windows server 2003 enterprise??????

[Myakire]

Yo tengo montado un site ASP que usa FPDF en Windows 2003 Server Small Business, no creo que el Enterprise venga más limitado que el que tengo .... ¿qué error te marca?

[karmish]

La tipica pantalla de error de windows, cuando no se puede mostrar una pantalla

[Myakire]

Te respondería, pero como ese problema lo estas tratando en tres post diferentes , dejemos que sea en el hilo de verinchi donde se trate eso