<% @ LANGUAGE="VBScript" %>
<%
Response.Expires =-1
'on error resume next
Set oconn = CreateObject("conexion_web.cconexion")
oconn.conectar
set DataConn = oconn.conexion
DIM COMBOS(3)
comboS(1) = "set dateformat mdy SELECT DISTINCT a.ciudad, b.DESCRIPCION FROM pronostico_ciudad a,ciudades b where a.ciudad = b.codigo and fecha >= '" & month(date()) & "/" & day(date()) & "/" & year(date())&"' ORDER BY b.DESCRIPCION"
comboS(2) = "set dateformat mdy SELECT DISTINCT a.region, b.DESCRIPCION FROM pronostico_region a,REGIONES b where a.region = b.codigo and fecha >= '" & month(date()) & "/" & day(date()) & "/" & year(date())&"' ORDER BY b.DESCRIPCION"
%>
Ideam, pronóstico del tiempo
Definiciones
