Componentes ASP

mart · #1 (**permalink**) 18/04/2002, 02:01

Necesito urgentemente un componente para pasar datos de asp a un documento de word automaticamente.

bakanzipp · #2 (**permalink**) 18/04/2002, 15:35

dame tu email y te mando un ejemplo sencillo

urjose · #3 (**permalink**) 18/04/2002, 15:47

Hola bakanzipp yo no lo necesito pero es bueno saberlo así que si me lo puedes mandar, te lo agradecere mi mail:

[email protected]

Saludos

<center><img src="http://www.pcmasmas.com.ar/foro/images/avatars/043.gif"><br>
Urjose</center>

bakanzipp · #4 (**permalink**) 18/04/2002, 16:06

a ver...mejor doy un ejemplo cortito aki..

Código:

  
&lt;%response.buffer=true %&gt;
&lt;%
' inicializa el word
Response.ContentType = &quot;application/vnd.ms-word&quot; 
' agrega a la cabecera el nombre del documento
response.AddHeader &quot;content-disposition&quot;, &quot;inline; filename=documento.doc&quot;%&gt;
&lt;html&gt;
&lt;body&gt;
&lt;%
Dim oConn, rs, SQL
set oConn =  Server.CreateObject(&quot;ADODB.Connection&quot;)
oConn.Open &quot;Driver={Microsoft Access Driver (*.mdb)}; DBQ=&quot; &amp; Server.MapPath(&quot;base.mdb&quot;)
SQL=&quot;SELECT * FROM TablaEjemplo&quot;
et rs = oConn.Execute(SQL)
if not rs.EOF then%&gt;
 &lt;table border=1&gt;
  &lt;tr&gt;
    &lt;td&gt;&lt;font face=verdana&gt;Dato 1&lt;/font&gt;&lt;/td&gt;
    &lt;td&gt;&lt;font face=verdana&gt;Dato 2&lt;/font&gt;&lt;/td&gt;
    &lt;td&gt;&lt;font face=verdana&gt;Dato 3&lt;/font&gt;&lt;/td&gt;
    &lt;td&gt;&lt;font face=verdana&gt;Dato 4&lt;/font&gt;&lt;/td&gt;
  
  &lt;%while not rs.eof%&gt;
   &lt;tr&gt;  
    &lt;td&gt;&lt;font face=verdana&gt;&lt;%=rs.field(&quot;campo1&quot;)%&gt;&lt;/font&gt;&lt;/td&gt; 
    &lt;td&gt;&lt;font face=verdana&gt;&lt;%=rs.field(&quot;campo2&quot;)%&gt;&lt;/font&gt;&lt;/td&gt; 
    &lt;td&gt;&lt;font face=verdana&gt;&lt;%=rs.field(&quot;campo3&quot;)%&gt;&lt;/font&gt;&lt;/td&gt; 
    &lt;td&gt;&lt;font face=verdana&gt;&lt;%=rs.field(&quot;campo4&quot;)%&gt;&lt;/font&gt;&lt;/td&gt; 
   &lt;/tr&gt; 
   &lt;%rs.movenetx%&gt;   
 &lt;%wend
 end if%&gt;	
 &lt;/table&gt;
&lt;/body&gt;
&lt;/html&gt;

no se necesita una componente...y la idea es por ejemplo mostrar esta misma pa. sin las cabeceras que se utiliza para abrir un word...y tener un boton o algo ke diga guardar..y al presionar ese boton mandar a llamar a esta página y lo hara todo automaticamente...espero les sirva amigos..
tb guarda en rtf y otras extensiones que acepta el word office (office 97 hacia arriba)...solo tienen ke cambiar la extension

nos vimos :P