 |
Océano Pacífico colombiano en tiempo real
<%sql = "set dateformat dmy SELECT FECHA,hora,sinoptico,hora2, day(fecha), month(fecha), year(fecha) from realmar"
sql = sql & " where mar = " & 2
sql = sql & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql = sql & " order by fecha desc"
Set TEM = DATACONN.Execute(sql)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing%>
<%=DIAS(weekday(dateserial(year(datos(0,introw)),month(datos(0,introw)),day(datos(0,introw)))))%><%response.write" "%><%=datos(4,introw) & "/" & datos(5,introw) & "/" & datos(6,introw)%>, <%=datos(1,0)%> hora local colombiana
Sinóptico
<%=datos(2,0)%>
Estado hidrometeorológico
<%=datos(3,0)%> hora local colombiana
| Convenciones |
| IV: intensidad del viento en nudos |
DV: dirección del viento, de donde proviene |
| H: altura del oleaje en metros |
P: periodo del oleaje en segundos |
| DH: Dirección del oleaje, hacia donde se dirige |
|
| IV |
DV |
H |
P |
DH |
Cielo |
Evento |
<% end if
%>
<% sql1 = "select CONVERT(VARCHAR(10),a.FECHA,101),a.hora,a.z1iv,b.descripcion,a.z1h,a.z1p,c.descripcion,d.descripcion,e.imagen,e.descripcion from realmar a, vientos b, oleajes c, nubosidad d, tipos_pronosticos e"
sql1 = sql1 & " where a.mar = " & 2
sql1 = sql1 & " and b.codigo = a.z1dv and c.codigo = a.z1dh and d.codigo = a.z1nu and e.codigo = a.z1at"
sql1 = sql1 & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql1 = sql1 & " order by fecha desc"
Set TEM = DATACONN.Execute(sql1)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing %>
| Norte |
| <%=datos(2,0)%>
|
<%=datos(3,0)%>
|
<%=datos(4,0)%>
|
<%=datos(5,0)%>
|
<%=datos(6,0)%>
|
<%=datos(7,0)%>
|
%>.gif) |
<% end if
%>
<% sql2 = "select CONVERT(VARCHAR(10),a.FECHA,101),a.hora,a.z2iv,b.descripcion,a.z2h,a.z2p,c.descripcion,d.descripcion,e.imagen,e.descripcion from realmar a, vientos b, oleajes c, nubosidad d, tipos_pronosticos e"
sql2 = sql2 & " where a.mar = " & 2
sql2 = sql2 & " and b.codigo = a.z2dv and c.codigo = a.z2dh and d.codigo = a.z2nu and e.codigo = a.z2at"
sql2 = sql2 & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql2 = sql2 & " order by a.fecha desc"
Set TEM = DATACONN.Execute(sql2)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing
%>
| Centro |
| <%=datos(2,0)%>
|
<%=datos(3,0)%>
|
<%=datos(4,0)%>
|
<%=datos(5,0)%>
|
<%=datos(6,0)%>
|
<%=datos(7,0)%>
|
|
<% end if
%>
<% sql3 = "select CONVERT(VARCHAR(10),a.FECHA,101),a.hora,a.z3iv,b.descripcion,a.z3h,a.z3p,c.descripcion,d.descripcion,e.imagen,e.descripcion from realmar a, vientos b, oleajes c, nubosidad d, tipos_pronosticos e"
sql3 = sql3 & " where a.mar = " & 2
sql3 = sql3 & " and b.codigo = a.z3dv and c.codigo = a.z3dh and d.codigo = a.z3nu and e.codigo = a.z3at"
sql3 = sql3 & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql3 = sql3 & " order by a.fecha desc"
Set TEM = DATACONN.Execute(sql3)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing %>
| Sur |
| <%=datos(2,0)%>
|
<%=datos(3,0)%>
|
<%=datos(4,0)%>
|
<%=datos(5,0)%>
|
<%=datos(6,0)%>
|
<%=datos(7,0)%>
|
|
<% end if
%>
<% sql4 = "select CONVERT(VARCHAR(10),a.FECHA,101),a.hora,a.z4iv,b.descripcion,a.z4h,a.z4p,c.descripcion,d.descripcion,e.imagen,e.descripcion from realmar a, vientos b, oleajes c, nubosidad d, tipos_pronosticos e"
sql4 = sql4 & " where a.mar = " & 2
sql4 = sql4 & " and b.codigo = a.z4dv and c.codigo = a.z4dh and d.codigo = a.z4nu and e.codigo = a.z4at"
sql4 = sql4 & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql4 = sql4 & " order by a.fecha desc"
Set TEM = DATACONN.Execute(sql4)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing %>
| Isla Malpelo |
| <%=datos(2,0)%>
|
<%=datos(3,0)%>
|
<%=datos(4,0)%>
|
<%=datos(5,0)%>
|
<%=datos(6,0)%>
|
<%=datos(7,0)%>
|
|
| Norte: Punta Ardita - Cabo Corrientes |
Centro: Cabo Corrientes -
Buenaventura |
| Sur: Buenaventura - Cabo Manglares |
|
<% end if
%>
<% sql5 = "select CONVERT(VARCHAR(10),FECHA,101),hora,observacion from realmar"
sql5 = sql5 & " where mar = " & 2
sql5 = sql5 & " and fecha <= CONVERT(datetime ,'" & month(date()-diasmenos) & "/" & day(date()-diasmenos) & "/" & year(date()-diasmenos) & "',101)"
sql5 = sql5 & " order by fecha desc"
Set TEM = DATACONN.Execute(sql5)
if NOT TEM.BOF AND NOT TEM.EOF THEN
DATOS = TEM.GetRows()
set tem = nothing %>
Observaciones finales
<%=datos(2,0)%> |
Definiciones