Sub Page_Load(src as Object, e As EventArgs)
		If Not IsPostBack then
			LoadClients()
		end if
	End Sub
	
	Sub LoadClients()
	   Dim conMyData As SqlConnection
       Dim cmdSelect As SqlCommand
       Dim reader as SqlDataReader
	'try and make a connection   
	Try
	       conMyData = New SqlConnection( ConfigurationSettings.AppSettings("strConn") )
	       cmdSelect = New SqlCommand( "select_clients", conMyData )
	       cmdSelect.CommandType = CommandType.StoredProcedure
	       conMyData.Open()
	 
	       reader = cmdSelect.ExecuteReader()
	       
	       ddlClient.DataSource = reader
	       ddlClient.DataTextField = "Client"
	       ddlClient.DataValueField= "ClientID"
	       ddlClient.DataBind()
       	'catch any exceptions that might be thrown
	Catch e as Exception
		Response.Write("An Error Occurred: " & e.toString())
	'clean up and close resources
	Finally
		conMyData.Close()
	End Try
			
	End Sub