Código:
<%
Response.ContentType = "application/vnd.ms-excel ; name=ListadoReserva.xls"
Response.Addheader "Content-Disposition", "attachment; filename=ListadoReserva.xls"
DIM Restos(11)
Restos(0) = "Botanico"
Restos(1) = "Dolce"
Restos(2) = "Duomo"
Restos(3) = "Libertador"
Restos(4) = "Madero 1"
Restos(5) = "Madero 2"
Restos(6) = "Madero 3"
Restos(7) = "Martinez"
Restos(8) = "Madero 4"
Restos(9) = "San Isidro"
Restos(10) = "Riobamba"
Restos(11) = "Peru 1"
chkBotanico = CSTR(Request("chkBotanico"))
chkDolce = CSTR(Request("chkDolce"))
chkDuomo = CSTR(Request("chkDuomo"))
chkLibertador = CSTR(Request("chkLibertador"))
chkMadero1 = CSTR(Request("chkMadero1"))
chkMadero2 = CSTR(Request("chkMadero2"))
chkMadero3 = CSTR(Request("chkMadero3"))
chkMartinez = CSTR(Request("chkMartinez"))
chkMadero4 = CSTR(Request("chkMadero4"))
chkRiobamba = CSTR(Request("chkRiobamba"))
chkSanisidro = CSTR(Request("chkSanisidro"))
chkPeru1 = CSTR(Request("chkPeru1"))
FechaDesde = Request("FechaDesde")
FechaHasta = Request("FechaHasta")
Motivo = Request("Motivo")
Turno = Request("Turno")
Color = "#FFFFFF"
bolBotanico = TRUE
Colspan = 12
%>
<!--#include file="multiresto/connMultiResto.asp"-->
<HTML>
<HEAD>
<style type="text/css">
<!--
.style1 {color: #FFFFFF}
.style2 {
color: #000000;
font-weight:bold;
}
body,td,th {
font-size: 12px;
}
-->
</style>
</HEAD>
<body>
<table border="1" bordercolor="#000000" >
<tr bgcolor="<%=Color%>">
<td align="left" valign="middle">
Fecha </td>
<td align="left" valign="middle">
Apellido </td>
<td align="left" valign="middle">
Contacto </td>
<td align="left" valign="middle">
Local </td>
<td align="left" valign="middle">
Turno </td>
<td align="left" valign="middle">
Motivo </td>
<td align="left" valign="middle">
Hora </td>
<td align="left" valign="middle">
Pax </td>
<td align="left" valign="middle">
Free </td>
<td align="left" valign="middle">
Total </td>
<td align="left" valign="middle">
Menu </td>
<td align="left" valign="middle">
Detalle Menu </td>
<td align="left" valign="middle">
Sector </td>
<td align="left" valign="middle">
Precio </td>
<td align="left" valign="middle">
Telefono </td>
</tr>
<%
FOR i = 0 TO 10
bolConsultar = FALSE
SELECT CASE UCASE(Restos(i))
CASE "BOTANICO"
IF chkBotanico = "1" THEN
bolConsultar = TRUE
END IF
CASE "DOLCE"
IF chkDolce = "1" THEN
bolConsultar = TRUE
END IF
CASE "DUOMO"
IF chkDuomo = "1" THEN
bolConsultar = TRUE
END IF
CASE "LIBERTADOR"
IF chkLibertador = "1" THEN
bolConsultar = TRUE
END IF
CASE "MADERO 1"
IF chkMadero1 = "1" THEN
bolConsultar = TRUE
END IF
CASE "MADERO 2"
IF chkMadero2 = "1" THEN
bolConsultar = TRUE
END IF
CASE "MADERO 3"
IF chkMadero3 = "1" THEN
bolConsultar = TRUE
END IF
CASE "MARTINEZ"
IF chkMartinez = "1" THEN
bolConsultar = TRUE
END IF
CASE "MADERO 4"
IF chkMadero4 = "1" THEN
bolConsultar = TRUE
END IF
CASE "RIOBAMBA"
IF chkRiobamba = "1" THEN
bolConsultar = TRUE
END IF
CASE "SAN ISIDRO"
IF chkSanisidro = "1" THEN
bolConsultar = TRUE
END IF
CASE "PERU 1"
IF chkPeru1 = "1" THEN
bolConsultar = TRUE
END IF
END SELECT
IF bolConsultar = TRUE THEN
SET conn = Server.CreateObject("ADODB.Connection")
SET rs=Server.CreateObject("ADODB.Recordset")
conn.Open (ConnResto(Restos(i)))
SQL = "SELECT * FROM recervas "
IF Motivo <> "" THEN
SQL = SQL & "WHERE ((UCASE(motivo1) LIKE '') OR (UCASE(motivo2) LIKE ''))"
ELSE
SQL = SQL & "WHERE ((UCASE(motivo1) NOT LIKE '') OR (UCASE(motivo2) NOT LIKE ''))"
END IF
IF FechaDesde <> "" THEN
IF ISDATE(FechaDesde) THEN
NuevaFecha = CDATE(FechaDesde)
FechaDesde = RIGHT("00" & CSTR(MONTH(NuevaFecha)),2) & "/" & RIGHT("00" & CSTR(DAY(NuevaFecha)),2) & "/" & CSTR(YEAR(NuevaFecha))
SQL = SQL & " AND (CDATE(fecha) >= #" & FechaDesde & "#)"
END IF
END IF
IF FechaHasta <> "" THEN
IF ISDATE(FechaHasta) THEN
NuevaFecha = CDATE(FechaHasta)
FechaHasta = RIGHT("00" & CSTR(MONTH(NuevaFecha)),2) & "/" & RIGHT("00" & CSTR(DAY(NuevaFecha)),2) & "/" & CSTR(YEAR(NuevaFecha))
SQL = SQL & " AND (CDATE(fecha) <= #" & FechaHasta & "#)"
END IF
END IF
IF TRIM(Turno) <> "" THEN
aTurnos = SPLIT(Turno, ",")
Query = " AND ("
FOR x = 0 TO UBOUND(aTurnos)
IF x = 0 THEN
Query = Query & "(Turno" & LEFT(TRIM(aTurnos(x)),1) & " = " & TRIM(aTurnos(x)) & ")"
ELSE
Query = Query & " OR (Turno" & LEFT(TRIM(aTurnos(x)),1) & " = " & TRIM(aTurnos(x)) & ")"
END IF
NEXT
Query = Query & ")"
SQL = SQL & Query
END IF
SQL = SQL & SQLTurno
SET rs = conn.execute(SQL)
While Not rs.EOF
IF rs("turno1") > 0 THEN
Turno = 1
IF rs("turno1") = 11 THEN
TurnoSTR = "D"
ELSE
TurnoSTR = "1"
END IF
ELSE
Turno = 2
IF rs("turno2") = 22 THEN
TurnoSTR = "M"
ELSE
TurnoSTR = "2"
END IF
END IF
'TURISMO
Fecha = rs("fecha")
Apellido = rs("apellido" & Turno)
Nombre = rs("nombre" & Turno)
Hora = rs("hora" & Turno)
Pax = rs("pack" & Turno)
Free = rs("free")
IF ISNUMERIC(Pax) = FALSE THEN
Pax = 0
END IF
IF ISNUMERIC(Free) = FALSE THEN
Free = 0
END IF
Menu = rs("tipomenu")
DetalleMenu = rs("detallemenu")
Precio = rs("tarifa")
Contacto = rs("contacto")
'OTROS
Sector = rs("contacto")
Telefono = rs("tel" & Turno)
Motivo = rs("motivo" & Turno)
Total = CINT(Free) + CINT(Pax)
%>
<tr>
</tr>
<tr>
<td valign="middle" align="left">
<%=Fecha%> </td>
<td valign="middle" align="left">
<%=Apellido%> </td>
<td valign="middle" align="left">
<%=Contacto%> </td>
<td valign="middle" align="left">
<%=Restos(i)%> </td>
<td valign="middle" align="left">
<%=TurnoSTR%> </td>
<td valign="middle" align="left">
<%=Motivo%> </td>
<td valign="middle" align="left">
<%=Hora%> </td>
<td valign="middle" align="left">
<%=Pax%> </td>
<td valign="middle" align="left">
<%=Free%> </td>
<td valign="middle" align="left">
<%=Total%> </td>
<td valign="middle" align="left">
<%=Menu%> </td>
<td valign="middle" align="left">
<%=DetalleMenu%> </td>
<td valign="middle" align="left">
<%=Sector%> </td>
<td valign="middle" align="left">
<%=Precio%> </td>
<td valign="middle" align="left">
<%=Telefono%> </td>
</tr>
<%
rs.MoveNext
Wend
SET rs = Nothing
SET conn = Nothing
END IF
NEXT
%>
</table>
</BODY>
</HTML>
se que es muy complejo el tema, si alguien esta con tiempo me haria un gran favor.
Gracias a todos.
