|
|
 |
|
|
| > Tabla de Mareas |
|
|
|
 |
|
 |
|
 |
|
 |
|
<%
intmes=cint(month(now))
intdia=cint(day(now))
Set rs = CreateObject("ADODB.Recordset")
SQLMarea = "Select * from tblMareas where mes=" & intmes & " and dia=" & intdia
rs.Open SQLMarea, dbvarosa
H1=""
A1=""
H2=""
A2=""
H3=""
A3=""
H4=""
A4=""
if not rs.eof then
H1=rs("hora")
A1=rs("metros")
rs.movenext
end if
if not rs.eof then
H2=rs("hora")
A2=rs("metros")
rs.movenext
end if
if not rs.eof then
H3=rs("hora")
A3=rs("metros")
rs.movenext
end if
if not rs.eof then
H4=rs("hora")
A4=rs("metros")
end if
%>
Mareas para hoy
HoraAlt/m
<%=H1%><%=A1%>
<%=H2%><%=A2%>
<%=H3%><%=A3%>
<%=H4%><%=A4%>
También puede
visualizar los datos
del Mareógrafo del Puerto de Vilagarcía pulsando aquí. |
|
|
2011
Enero |
|
2011
Febrero |
|
2011
Marzo |
|
2011
Abril |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
Mayo |
|
2011
Junio |
|
2011
Julio |
|
2011
Agosto |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
Septiembre |
|
2011
Octubre |
|
2011
Noviembre |
|
2011
Diciembre |
|
|
|
|
