Rocky Point
Travel Tools
  CLICK HERE Need Multiple Rooms for Large Party? Weddings, events, reunions!! We can help!! Just call our specialist group: 1-800-892-2108.
Shop with Confidence!
The Seal of assurance for businesses conducting business over the Internet.
|
<%
If Request.Form("frmLocationID") <> "" Then
Set objWeather = New clsWeatherCurrent
objWeather.PartnerID = "1003957478"
objWeather.LicenseKey = "7fa13fed80718cd4"
objWeather.HTTPObject = 0
objWeather.ImagePath = "Images/32x32/"
objWeather.ImageType = ".png"
ErrorCode = objWeather.ProcessWeather(Request.Form("frmLocationID"))
If ErrorCode = 0 Then
%>
| <%= objWeather.Location %> Weather |
Forecast Conditions |
| Today's Temperature: |
<%= objWeather.Temperature %> °F |
|
<%= objWeather.Forecast %> |
|
| Dew Point |
<%= objWeather.DewPoint %> |
| Feels Like |
<%= objWeather.FeelsLike %> |
| Humidity |
<%= objWeather.Humidity %> |
| Last Updated |
<%= objWeather.LastUpdated %> |
| Visibility |
<%= objWeather.Visibility %> |
| Wind Speed |
<%= objWeather.WindSpeed %> mph |
<%
End If
Set objWeather = Nothing
End If
%> |
