example weather checker

weatherchecker.vb

Imports System.Web.Mvc

Namespace Controllers

	<HandleError> _
	Public Class HomeController
		Inherits Controller
		Public Function Index() As ActionResult
			Return View()
		End Function

		<AcceptVerbs("POST")> _
		Public Function Index(zip As String) As ActionResult
			Dim weather As New WeatherChecker.wsf.cdyne.com.Weather()
			Dim data = weather.GetCityWeatherByZIP(zip)

			ViewData("City") = data.City
			ViewData("State") = data.State
			ViewData("Temperature") = data.Temperature

			Return View("Result")
		End Function
	End Class
End Namespace