|
Week Ahead Calendar
Click Link To Change Times Zone
New
Zealand |
Sydney
| Tokyo | Singapore | Zurich
|London |
GMT | NYK
<%
Set Offset = Request("offset")
Set zone = Request("zone")
If Offset = "" Then
Offset = 0
zone = "GMT"
Else
End If
Response.Write "Times Displayed Are For The "& zone &" Timezone
"
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "forexe"
Query = "SELECT * FROM ecocal WHERE GMT > (Now()-1)"
Set rs = Connect.Execute(Query)
Do While Not rs.EOF
If nowdate <> DatePart("d",DateAdd("h", offset, rs("GMT"))) Then
Response.Write " "& FormatDateTime(DateAdd("h", offset, rs("GMT")), vbLongDate) &""
Else
End If
Response.Write FormatDateTime(DateAdd("h", offset, rs("GMT")), vbShortTime) &" "& rs("Country") &" "& rs("Release") &"
"
nowdate = DatePart("d",DateAdd("h", offset, rs("GMT")))
rs.MoveNext
Loop
%>
|