O 1º Código <!--#include file="../globais/connect.asp"-->
<%Session.LCID=1046%>
<%
Dim RS,SQL,empresa,datainicio,datafim
empresa = Request("empresa")
situacao = Request("situacao")
cargo = Request("cargo")
dataincial = cDate(Request("campo"))
diaInicio = DatePart("d",dataincial)
mesInicio = DatePart("m",dataincial)
anoInicio = DatePart("yyyy",dataincial)
datainicio = anoInicio&"/"&mesInicio&"/"&diaInicio
datafinal = cDate(Request("campo2"))
diafim = DatePart("d",datafinal)
mesfim = DatePart("m",datafinal)
anofim = DatePart("yyyy",datafinal)
datafim = anofim&"/"&mesfim&"/"&diafim
pag = Request.QueryString("pag")
if pag = 1 then
Server.Transfer("relatorioWord.asp")
End if
SQL = "SELECT * FROM agenda_teste WHERE empresa like '%"&empresa&"%' AND situacao LIKE '%"&situacao&"%' AND cargo LIKE '%"&cargo&"%' AND dia BETWEEN #"&datainicio&"# AND #"&datafim&"# ORDER BY dia ASC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Oconn,3,3
%>
O 2º Código
<!--#include file="../globais/connect.asp"-->
<%Session.LCID=1046%>
<%
Dim RS,SQL,empresa,datainicio,datafim
empresa = Request("empresa")
situacao = Request("situacao")
cargo = Request("cargo")
dataincial = cDate(Request("campo"))
diaInicio = DatePart("d",dataincial)
mesInicio = DatePart("m",dataincial)
anoInicio = DatePart("yyyy",dataincial)
datainicio = anoInicio&"/"&mesInicio&"/"&diaInicio
datafinal = cDate(Request("campo2"))
diafim = DatePart("d",datafinal)
mesfim = DatePart("m",datafinal)
anofim = DatePart("yyyy",datafinal)
datafim = anofim&"/"&mesfim&"/"&diafim
SQL = "SELECT * FROM agenda_teste WHERE empresa like '%"&empresa&"%' AND situacao LIKE '%"&situacao&"%' AND cargo LIKE '%"&cargo&"%' AND dia BETWEEN #"&datainicio&"# AND #"&datafim&"# ORDER BY dia ASC"
Set RS = Server.CreateObject("ADODB.Recordset")
RS.Open SQL,Oconn,3,3
'passo o documento para o formato WORD
Response.ContentType = "application/msword"
Response.AddHeader "content-disposition", "attachment;filename=Relatorio.doc"
%>