Exportar a word

[DanX03]

Hola marco_foros.

Gracias por la respuesta, si me genera el documento word pero lo que hace es que todos los valores resultantes de la consulta los sobreescribe uno despues del otro, dejando solo el ultimo valor visible el codigo lo implemente de la siguiente forma:

Código ASP:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!-- #include file="variables.asp"-->
<%
narchivo = "\inetpub\wwwroot\bitacora_desarrollo\reporte_desarrollo.doc"
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")
 
Response.Clear()
Dim wrdApp
Dim wrdDoc
 
Set wrdApp = Server.CreateObject("WORD.Application")
Set wrdDoc = wrdApp.Documents.Open(narchivo)
 
 
conectar()
 
 
sqla="select a.fecha_odt,b.cliente,a.proyecto,c.descripcion,a.realizo,clasificacion from (select fecha_odt,cliente,proyecto,"&_
    "descripcion,realizo,(case when clasificacion=1 then 'CALLCENTER' when clasificacion=2 then 'ADMINISTRATIVO' when clasificacion=3 then "&_
    "'BASE DE DATOS' end) clasificacion from desarrollo.bitacora_desarrollo where fecha_odt between convert(datetime,'"&fechaini&"',103) "&_
    "and convert(datetime,'"&fechafin&"',103)+1) a left join (select id,nombre as cliente from desarrollo.clientes09 where area=1) b on "&_
    "a.cliente=b.id left join (select id_req,descripcion,actividad from desarrollo.cat_requerimientos) c on a.descripcion=c.id_req "&_
    "order by a.clasificacion,a.fecha_odt,a.realizo"
'response.Write(sqla)
'response.End()
rs.Open sqla, conn
 
wrdApp.Visible = True
 
while not rs.eof
 
wrdApp.ActiveDocument.Content.Text = rs(0)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(1)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(2)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(3)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(4)&"<br> "
wrdApp.ActiveDocument.Content.Text = rs(5)
 
rs.movenext
wend%>
 

En donde tengo que cambiarle para que salgan los datos de la siguiente forma

----------------------------------
| Dato 1 | Dato2 | Dato3 | Dato 4 | Dato n |
----------------------------------