<%@ Language=VBScript %>

<%
Response.Expires=0

' 9 JAN 2001 5:31pm PST 
dim tm
Dim mins
Dim hrs
Dim ampm

tm = DateAdd("H", +6, Now)

mins = Minute(tm)
if Minute(tm) < 10 then
    mins = "0" & mins
end if

hrs = Hour(tm)
if hrs < 12 then
    ampm = "AM"
else
    ampm = "PM"
    hrs = hrs - 12
end if

if hrs = 0 then
    hrs = 12
end if

Response.Write "document.writeln('" _
    & Day(tm) & " " & UCase(MonthName(Month(tm), TRUE)) _
    & " " & Year(tm) & " " & hrs & ":" & mins & ampm & " (+05:45 UTC)');"
%>