Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim sqlconn As SqlClient.SqlConnection
Dim cmdCantone As SqlClient.SqlCommand
sqlconn = New SqlClient.SqlConnection("Server=appdata.auburn.edu;uid=yourid;pwd=yourpw;database=yourdb")
cmdCantone = New SqlClient.SqlCommand("SELECT DISTINCT tblCantones.PB3Name, tblCantones.PB3ID FROM tblCantones JOIN tblParroquias ON tblCantones.PB3ID = tblParroquias.PB3ID JOIN tblCommunities ON tblParroquias.PB2ID = tblCommunities.PB2ID JOIN tblSites ON tblCommunities.PB1ID = tblSites.PB1ID JOIN tblChemData ON tblSites.SiteCode = tblChemData.SiteCode WHERE tblCantones.PB4ID =" & "'" & Request.QueryString("PB4ID") & "'" & "AND tblChemData.SiteCode Is Not Null ORDER BY PB3Name", sqlconn)
Try
sqlconn.Open()
ddCantone.DataSource = cmdCantone.ExecuteReader()
ddCantone.DataTextField = "PB3Name"
ddCantone.DataValueField = "PB3ID"
ddCantone.DataBind()
sqlconn.Close()
Catch objException As SqlClient.SqlException
Dim objError As SqlClient.SqlError
For Each objError In objException.Errors
Response.Write("<li>" & objError.Message)
Next
Finally
sqlconn.Close()
End Try
End If
End Sub