Ver Mensaje Individual
  #4 (permalink)  
Antiguo 18/04/2002, 16:06
Avatar de bakanzipp
bakanzipp
 
Fecha de Ingreso: noviembre-2001
Ubicación: santiago de shilli
Mensajes: 2.554
Antigüedad: 23 años, 5 meses
Puntos: 0
Re: Componentes ASP

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

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