<%
If Request.Form("frmLocationID") <> "" Then
Set objWeather = New clsWeatherCurrent
objWeather.PartnerID = "1003957478"
objWeather.LicenseKey = "7fa13fed80718cd4"
objWeather.HTTPObject = 0
objWeather.ImagePath = "http://www.sonoraturismo.gob.mx/clima/Images/32x32/"
objWeather.ImageType = ".png"
objWeather.UseMetric = true
ErrorCode = objWeather.ProcessWeather(Request.Form("frmLocationID"))
If ErrorCode = 0 Then
%>
| Clima en <%= objWeather.Location %> |
Valores |
| Temperatura de hoy es de: |
<%= objWeather.Temperature %> °C |
|
<%= objWeather.Forecast %> |
|
| Punto de rocío |
<%= objWeather.DewPoint %> |
| Se siente como |
<%= objWeather.FeelsLike %> |
| Humedad |
<%= objWeather.Humidity %> |
| Última actualización |
<%= objWeather.LastUpdated %> |
| Visibilidad |
<%= objWeather.Visibility %> |
| Velocidad del viento |
<%= objWeather.WindSpeed %> mph |
<%
End If
Set objWeather = Nothing
End If
%>
|