Pronóstico meteomarino, Caribe colombiano

<%sql = "set dateformat mdy select FECHA,valido,sinoptico,intensidadviento,direccionviento, alturaoleaje,direccionoleaje, periodooleaje, atmos1, atmos2, atmos3, observacion, day(fecha), month(fecha), year(fecha) from pronomar" sql = sql & " where mar = " & 1 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(12,introw) & "/" & datos(13,introw) & "/" & datos(14,introw)%>

Sinóptico

<%=datos(2,0)%>

Hidrometeorológico

Intensidad del viento: <%=datos(3,0)%>

Dirección del viento: <%=datos(4,0)%>

Altura del oleaje: <%=datos(5,0)%>

Dirección del oleaje: <%=datos(6,0)%>

Periodo del oleaje: <%=datos(7,0)%>

Atmosférico

Zona costera: <%=datos(8,0)%>

Isla de San Andrés y Providencia: <%=datos(9,0)%>

Zona marítima: <%=datos(10,0)%>

Observaciones finales

<%=datos(11,0)%>