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.
 	%>