Ver Mensaje Individual
  #3 (permalink)  
Antiguo 14/11/2007, 14:04
Avatar de karmish
karmish
 
Fecha de Ingreso: mayo-2006
Mensajes: 272
Antigüedad: 18 años, 10 meses
Puntos: 1
Re: Como crear o generear un archivo WORD desde una pagina en asp

3 parte
Código:
 
         <td></td>
        </tr>
      
      <tr>
        <td height="933" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
          <!--DWLayoutTable-->
          <tr>
            <td height="109" colspan="2"
valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="4">&nbsp;</td>
              </tr>
          <tr>
            <td width="43" rowspan="6" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
                <td width="723" height="19" valign="top"><span class="reportetit2">
                OTROS CONOCIMIENTOS</span></td>
                <td>&nbsp;</td>
              </tr>
          <tr>
            <td height="24" align="left" valign="middle"><img src="images/reporte/linea2.jpg" width="700" height="5" /></td>
                <td>&nbsp;</td>
              </tr>
          <tr>
            <td height="222" valign="top">
              <span class="reportetit2">AREAS DE ESPECIALIZACIONTROS</span><br />
              <span class="reportetext"><br />
                <%WHILE NOT her.EOF%>
                <%	
						 hhh=her("id_herra")
						 eee=her("est_act")
						 nnn=her("des_herra")
					     if eee<> "0" then
						 Response.Write(nnn&",&nbsp;")
						 end if
						%>
                <%her.MoveNext%>
                <% WEND %>
                <br />
                <%WHILE NOT sop.EOF%>
                <%	
						sss=sop("id_so")
						count = sop("est_act")
					    ficha=sop("des_so")
					  
					  if count <> "0" then
						Response.Write(ficha&",&nbsp;")
						end if						
						%>
                <%sop.MoveNext%>
                <% WEND %>
                <br />
                <%WHILE NOT dbs.EOF%>
                <%	
					  eee=dbs("id_db")
					  count = dbs("est_act")
					  ficha=dbs("des_db")
					  if eee <> "0" then				
						Response.Write(ficha&",&nbsp;")
						end if
						%>
                <%dbs.MoveNext%>
                <% WEND %>
                </span><br />
              <br />
              <span class="reportetit2">
                <strong>IDIOMAS:</strong></span><br />
              <br />
              <span class="reportetext">
                <%idiom1=oRs("idioma1")
					
							if idiom1 <> "" then
					 SSQL="execute sp_s_idioma2 '"&idiom1&"';"
					 SET rrs2=DbObj.Execute(SSQL)
					 idioma1 = rrs2("des_idioma")
					 end if
					 Response.Write(idioma1)
					 %>
                &nbsp;&nbsp;<%=oRS.Fields("nivel1").value%><br />
                <%idiom2=oRs("idioma2")
							if idiom2 <> "" then
					 SSQL="execute sp_s_idioma2 '"&idiom2&"';"
					 SET rrs2=DbObj.Execute(SSQL)
					 idioma2 = rrs2("des_idioma")
					 end if
					 Response.Write(idioma2)
					 %>
                &nbsp;&nbsp;<%=oRS.Fields("nivel2").value%><br />
                <%idiom3=oRs("idioma3")
							if idiom3 <> "" then
					 SSQL="execute sp_s_idioma2 '"&idiom3&"';"
					 SET rrs2=DbObj.Execute(SSQL)
					 idioma3 = rrs2("des_idioma")
					 end if
					 Response.Write(idioma3)
					 %>
                &nbsp;&nbsp;<%=oRS.Fields("nivel3").value%></span><br />
              <br />			    </td>
                <td>&nbsp;</td>
              </tr>
          <tr>
            <td height="17" valign="top"><span class="reportetit2">ENTREVISTA PERSONAL HUMAN CAPITAL</span></td>
                <td></td>
              </tr>
          <tr>
            <td height="24" align="left" valign="middle"><img src="images/reporte/linea2.jpg" width="700" height="5" /></td>
                <td></td>
              </tr>
          <tr>
            <td height="518" valign="top"><span class="reportetext"><%=oRs("avepsi")%></span></td>
                <td></td>
              </tr>
          </table></td>
          <td></td>
        </tr>
      <tr>
        <td height="19" colspan="2" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
        </tr>
     </table></td>
  </tr>
</table>
</body>
</html>
para imprimirlo ocupo esto
Código:
<input name="ico_impr2" id="ico_impr2" type="image" src="images/Icon/impresora_ico.gif" width="56" height="62" onclick="framePrint('FrameReporte')" />
y me termina generando algo asi
http://www.conclave.cl/reportecorto.pdf

que debo hacer para que no me aparescan paginas en blanco y los temes esten separado (OTROS CONOCIMIENTOS AREAS DE ESPECIALIZACIONTROS, me aparesca en otra pagina)??????