% @ LANGUAGE="VBScript" %> <% on error RESUME NEXT Set oconn = CreateObject("conexion_web.cconexion") oconn.conectar set DataConn = oconn.conexion dim sql dim DIAS(7) DIAS(1)="Domingo" DIAS(2)="Lunes" DIAS(3)="Martes" DIAS(4)="Miércoles" DIAS(5)="Jueves" DIAS(6)="Viernes" DIAS(7)="Sábado" %>
Inundación
Creciente
Avalancha
Represamiento
Helada
Huracán
Deslizamiento
Incendios
Contaminación
Marinas
Introducción
Reportes
Pronósticos
Definiciones
Condiciones
meteorológicas
Aeropuertos
Climatología
Vínculos

Trayectoria de ondas tropicales, depresiones tropicales, tormentas tropicales y huracanes<%sql = "SELECT convert(varchar,fecha,101), hora, nombre, coordenadas, FECHA_1, id_registro from ondas where convert(varchar,FECHA,101) = convert(varchar,(select max(fecha) from ondas),101)" Set TEM = DATACONN.Execute(sql) if NOT TEM.BOF AND NOT TEM.EOF THEN DATOS = TEM.GetRows() filas = UBound(datos, 2) ELSE FILAS = 0 END IF %> <%=DIAS(weekday(dateserial(year(date),month(date),day(date))))%> <%Response.write(day(date()) & "/" & month(date()) & "/" & year(date()))%>
|