' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports Microsoft.VisualBasic
Imports System
Public Partial Class _Default
  Inherits System.Web.UI.Page
  Protected Sub Page_Load(ByVal sender As Object, ByVal eventArgs As System.EventArgs)
    ' Make sure control initialization only occurs during initial page load or on page refresh
    If (Not IsPostBack) Then
      Try
        ' Populate the service type drop-down list with the service types in the 
        ' AddActionLocation.ServiceType enumeration
        serviceTypeDropDownList.DataSource = System.Enum.GetNames(GetType(AddActionLocationService.ServiceType))
        serviceTypeDropDownList.DataBind()
      Catch exception As System.Exception
        Dim jsErrorAlert As String = String.Format("<script>{0}</script>", Utility.GetJavaScriptErrorString(exception))
        Response.Write(jsErrorAlert)
      End Try
    End If
  End Sub
End Class