Fx.
<html><head>
<title>Verdensur</title>
</head><body>
<script language="VBScript">
Dim arrTS(24,1)
Dim n, curTimeZone, sel
curTimeZone = Request.QueryString("ts")
If isEmpty(curTimeZone) Then curTimeZone = 1
curTimeZone = Cint(curTimeZone)
' Her laver vi et array med ZONE navn, samt tids angivelse + eller - tid.
arrTS(0,0) = "Kwajalein"
arrTS(0,1) = -12
arrTS(1,0) = "Samao"
arrTS(1,1) = -11
arrTS(2,0) = "Hawaii"
arrTS(2,1) = -10
arrTS(3,0) = "Juneau"
arrTS(3,1) = -9
arrTS(4,0) = "San Fransisco"
arrTS(4,1) = -8
arrTS(5,0) = "Denver"
arrTS(5,1) = -7
arrTS(6,0) = "Chicago"
arrTS(6,1) = -6
arrTS(7,0) = "New York"
arrTS(7,1) = -5
arrTS(8,0) = "Caracas"
arrTS(8,1) = -4
arrTS(9,0) = "Rio De Janeiro"
arrTS(9,1) = -3
arrTS(10,0) = "Recife"
arrTS(10,1) = -2
arrTS(11,0) = "Azores"
arrTS(11,1) = -1
arrTS(12,0) = "London"
arrTS(12,1) = 0
arrTS(13,0) = "Paris"
arrTS(13,1) = 1
arrTS(14,0) = "Cairo"
arrTS(14,1) = 2
arrTS(15,0) = "Moskva"
arrTS(15,1) = 3
arrTS(16,0) = "Baku"
arrTS(16,1) = 4
arrTS(17,0) = "Karachi"
arrTS(17,1) = 5
arrTS(18,0) = "Dacca"
arrTS(18,1) = 6
arrTS(19,0) = "Bankok"
arrTS(19,1) = 7
arrTS(20,0) = "Hong Kong"
arrTS(20,1) = 8
arrTS(21,0) = "Tokyo"
arrTS(21,1) = 9
arrTS(22,0) = "Sydney"
arrTS(22,1) = 10
arrTS(23,0) = "Moumea"
arrTS(23,1) = 11
arrTS(24,0) = "Wellington"
arrTS(24,1) = 12
Document.Write "<p><font face=verdana size=3><strong>Verdensur</strong></font></p>"
' Her looper vi igennem vores array og udskriver tidszoner, den valgte tidszone udskrives med grå baggrund og den vil altid have tiden lige nu.
Document.Write "<p><font face=verdana size=2>"
For n = 0 To UBound(arrTS)
If arrTS(n,1) = curTimeZone Then Document.Write "<span style=""background-color: #C0C0C0"">"
Document.Write DateAdd("h",arrTS(n,1)-curTimeZone,Now) &" - "& arrTS(n,0)
If arrTS(n,1) = curTimeZone Then Document.Write "</span>"
Document.Write "<br>"
Next
Document.Write "</font></p>"
' Her laver vi en dropdown liste hvor alle tidszoner kan vælges
Document.Write "<p><form action=2000070901.asp method=GET><select size=1 name=""ts"">"
For n = 0 To UBound(arrTS)
If arrTS(n,1) = curTimeZone Then sel = " selected" : Else sel = ""
Document.Write "<option"& sel &" value="""& arrTS(n,1) &""">"& arrTS(n,0) &" ("& arrTS(n,1) &")</option>"
Next
Document.Write "</select></option>"
Document.Write " <input type=submit name=go value=Go></form>"
</script>
//>Rune
Ny bruger
Nybegynder
Opret
Preview
