|
|
 |
|
|
| > Tide Table |
|
|
|
 |
|
 |
|
 |
|
 |
|
<%
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
%>
Tides for today
TimeHeight/m
<%=H1%><%=A1%>
<%=H2%><%=A2%>
<%=H3%><%=A3%>
<%=H4%><%=A4%>
You can also see the Tide Register data of Vilagarcía Port by pressing here. |
|
|
2011
January |
|
2011
February |
|
2011
March |
|
2011
April |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
May |
|
2011
June |
|
2011
July |
|
2011
August |
|
|
|
 |
|
 |
|
 |
|
 |
|
|
|
2011
September |
|
2011
October |
|
2011
November |
|
2011
December |
|
|
|
|
