<% @ LANGUAGE="VBScript" %>
<%
on error resume next
Set oconn = CreateObject("conexion_web.cconexion")
oconn.conectar
set DataConn = oconn.conexion
DIM COMBOS(3)
dim DIAS(7)
dim diasmenos
'sw=1
DIAS(1)="Domingo"
DIAS(2)="Lunes"
DIAS(3)="Martes"
DIAS(4)="Miércoles"
DIAS(5)="Jueves"
DIAS(6)="Viernes"
DIAS(7)="Sábado"
diasmenos = 1
comboS(1) = "set dateformat mdy SELECT DISTINCT a.aeropuerto, b.DESCRIPCION FROM datos_aeropuerto a,aeropuertos b where a.aeropuerto = b.codigo and a.FECHA >= '" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "' ORDER BY b.DESCRIPCION"
comboS(2) = "set dateformat mdy SELECT DISTINCT c.codigo, c.DESCRIPCION FROM datos_aeropuerto a,aeropuertos b,ciudades c where a.aeropuerto = b.codigo and b.cod_ciudad = c.codigo and a.FECHA >= '" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "' order by c.descripcion"
%>
Ideam, estado de los principales aeropuertos del país
Definiciones