[Transfer] Common ASP functions: TimeZone

<% 
Function TimeZone() 
    Set oShell = CreateObject("") 
    atb = "HKEY_LOCAL_MACHINE\System\CurrentControlSet\" & _ 
         "Control\TimeZoneInformation\ActiveTimeBias" 
    TimeZone = - (atb) / 60 
End Function 
%>