He encontrado una posible respuesta:
Código ASP:
Ver original<%
response.ContentType ="application/msword"
fechaini=request.QueryString("fechaini")
fechafin=request.QueryString("fechafin")%>
<!--#include file="variables.asp"-->
<html>
<head>
<title>Word Test</title>
<meta name="Author" content="Acme Toys">
</head>
<style type="text/css">
.BigTitle {
font-family: Verdana, Sans-Serif;
font-size: 20pt;
font-weight: bold;
color: #004080;
}
.UserDetails {
font-family: Courier New, Monospace;
font-size: 12pt;
}
</style>
<body>
<%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
%>
<table width="100%">
<tr>
<td width="25%">Asunto</td>
<td width="25%">Detalle</td>
<td width="25%">Responsable</td>
<td width="25%">Fecha Compromiso</td>
</tr>
<%while not rs.eof%>
<tr>
<td><%=rs(1)%></td>
<td><%=rs(3)%></td>
<td><%=rs(4)%></td>
<td><%=rs(0)%></td>
</tr>
<%rs.movenext
wend%>
</table>
</p>
</body>
</html>
Código ASP:
Ver original<!--#include file="reporte_desarrollo.doc"-->