<% LocationID = "98118" Set objWeather = New clsWeatherCurrent objWeather.PartnerID = "1006672985" objWeather.LicenseKey = "e371738349ae4f4f" objWeather.HTTPObject = 0 objWeather.ImagePath = "http://www.limoanywhere.com/weather/images/old/31x31/" objWeather.ImageType = ".gif" ErrorCode = objWeather.ProcessWeather(LocationID) If ErrorCode = 0 Then %> <% Function CleanupLoc(str) if NOT isNull(str) then str = Replace(str,"(","") str = Replace(str,")","") str = Replace(str,"0","") str = Replace(str,"1","") str = Replace(str,"2","") str = Replace(str,"3","") str = Replace(str,"4","") str = Replace(str,"5","") str = Replace(str,"6","") str = Replace(str,"7","") str = Replace(str,"8","") str = Replace(str,"9","") else str = str end if CleanupLoc = str End Function %>
<% = CleanupLoc(objWeather.Location) %>
Current temp: <% = objWeather.Temperature %> F
<% End If Set objWeather = Nothing %>