|
|
 |
|
|
| > Táboa 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 hoxe
HoraAlt/m
<%=H1%><%=A1%>
<%=H2%><%=A2%>
<%=H3%><%=A3%>
<%=H4%><%=A4%>
Tamén pode
visualiza-los datos
do Mareógrafo do Porto de Vilagarcía pulsando aquí. |
|
|
2011
Xaneiro |
|
2011
Febreiro |
|
2011
Marzo |
|
2011
Abril |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
Maio |
|
2011
Xuño |
|
2011
Xullo |
|
2011
Agosto |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
Setembro |
|
2011
Outubro |
|
2011
Novembro |
|
2011
Decembro |
|
|
|
|
