|
|
 |
|
 |
> 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
Hora Alt/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  |
 |
 |
 |
|