Stuff

<%
Dim objWinHttp ' Start out declaring our variables.
Dim strHTML ' You are using Option Explicit aren't you?

Set objWinHttp = Server.CreateObject("WinHttp.WinHttpRequest.5.1") ' New WinHTTP v5.1 - from MS
objWinHttp.Open "GET", "http://www.timezoneauthority.com/ws/tz.html"
objWinHttp.Send ' Send the request
strHTML = objWinHttp.ResponseText

' strHTML will contain the timezone

Set objWinHttp = Nothing ' Trash our object now that we're finished with it.
%>