I am relatively new to programming and am having a problem with a small project that I am working on.  I have a names drop down list that is created from a database.  When the user selects a name and completes the rest of the form and clicks submit.  All of the data they entered is submitted to a different table in that database.  This is workign correctly for all of the data except the drop down.  For some reason the first value in the drop down is being submitted each time.  Here is the code and any help you can give will be appreciated.


Public Class final1

Inherits System.Web.UI.Page

#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.

<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection

Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter

Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand

Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand

Me.SqlDataAdapter2 = New System.Data.SqlClient.SqlDataAdapter

Me.SqlInsertCommand2 = New System.Data.SqlClient.SqlCommand

Me.SqlSelectCommand2 = New System.Data.SqlClient.SqlCommand

Me.DataSet11 = New norfolkcasereview.DataSet1

Me.SqlDataAdapter3 = New System.Data.SqlClient.SqlDataAdapter

Me.SqlInsertCommand3 = New System.Data.SqlClient.SqlCommand

Me.SqlSelectCommand3 = New System.Data.SqlClient.SqlCommand

CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit()

'

'SqlConnection1

'

Me.SqlConnection1.ConnectionString = '

'SqlDataAdapter1

'

Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1

Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1

Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "suspo", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("SUSPO", "SUSPO")})})

'

'SqlInsertCommand1

'

Me.SqlInsertCommand1.CommandText = "INSERT INTO dbo.suspo(SUSPO) VALUES (@SUSPO); SELECT SUSPO FROM dbo.suspo ORDER B" & _

"Y SUSPO"
Me.SqlInsertCommand1.Connection = Me.SqlConnection1

Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@SUSPO", System.Data.SqlDbType.VarChar, 30, "SUSPO"))

'

'SqlSelectCommand1

'

Me.SqlSelectCommand1.CommandText = "SELECT SUSPO FROM dbo.suspo ORDER BY SUSPO"

Me.SqlSelectCommand1.Connection = Me.SqlConnection1

'

'SqlDataAdapter2

'

Me.SqlDataAdapter2.InsertCommand = Me.SqlInsertCommand2

Me.SqlDataAdapter2.SelectCommand = Me.SqlSelectCommand2

Me.SqlDataAdapter2.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "officer", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("uspo", "uspo")})})

'

'SqlInsertCommand2

'

Me.SqlInsertCommand2.CommandText = "INSERT INTO dbo.officer(uspo) VALUES (@uspo); SELECT uspo FROM dbo.officer ORDER " & _

"BY uspo"
Me.SqlInsertCommand2.Connection = Me.SqlConnection1

Me.SqlInsertCommand2.Parameters.Add(New System.Data.SqlClient.SqlParameter("@uspo", System.Data.SqlDbType.VarChar, 30, "uspo"))

'

'SqlSelectCommand2

'

Me.SqlSelectCommand2.CommandText = "SELECT uspo FROM dbo.officer ORDER BY uspo"

Me.SqlSelectCommand2.Connection = Me.SqlConnection1

'

'DataSet11

'

Me.DataSet11.DataSetName = "DataSet1"

Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")

'

'SqlDataAdapter3

'

Me.SqlDataAdapter3.InsertCommand = Me.SqlInsertCommand3

Me.SqlDataAdapter3.SelectCommand = Me.SqlSelectCommand3

Me.SqlDataAdapter3.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "casereview", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("susponame", "susponame"), New System.Data.Common.DataColumnMapping("usponame", "usponame"), New System.Data.Common.DataColumnMapping("casename", "casename"), New System.Data.Common.DataColumnMapping("datesub", "datesub"), New System.Data.Common.DataColumnMapping("x1", "x1"), New System.Data.Common.DataColumnMapping("x2", "x2"), New System.Data.Common.DataColumnMapping("x3", "x3"), New System.Data.Common.DataColumnMapping("x4", "x4"), New System.Data.Common.DataColumnMapping("x5", "x5"), New System.Data.Common.DataColumnMapping("x6", "x6"), New System.Data.Common.DataColumnMapping("x7", "x7"), New System.Data.Common.DataColumnMapping("x8", "x8"), New System.Data.Common.DataColumnMapping("x9", "x9"), New System.Data.Common.DataColumnMapping("x10", "x10"), New System.Data.Common.DataColumnMapping("x11", "x11"), New System.Data.Common.DataColumnMapping("x12", "x12"), New System.Data.Common.DataColumnMapping("x13", "x13"), New System.Data.Common.DataColumnMapping("x14", "x14"), New System.Data.Common.DataColumnMapping("x15", "x15"), New System.Data.Common.DataColumnMapping("x16", "x16"), New System.Data.Common.DataColumnMapping("x17", "x17"), New System.Data.Common.DataColumnMapping("comment", "comment")})})

'

'SqlInsertCommand3

'

Me.SqlInsertCommand3.CommandText = "INSERT INTO dbo.casereview(susponame, usponame, casename, datesub, x1, x2, x3, x4" & _

", x5, x6, x7, x8, x9, x10, x11, x12, x13, x14, x15, x16, x17, comment) VALUES (@" & _
"susponame, @usponame, @casename, @datesub, @x1, @x2, @x3, @x4, @x5, @x6, @x7, @x" & _
"8, @x9, @x10, @x11, @x12, @x13, @x14, @x15, @x16, @x17, @comment); SELECT suspon" & _
"ame, usponame, casename, datesub, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, " & _
"x12, x13, x14, x15, x16, x17, comment FROM dbo.casereview"
Me.SqlInsertCommand3.Connection = Me.SqlConnection1

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@susponame", System.Data.SqlDbType.VarChar, 30, "susponame"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@usponame", System.Data.SqlDbType.VarChar, 30, "usponame"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@casename", System.Data.SqlDbType.VarChar, 50, "casename"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@datesub", System.Data.SqlDbType.DateTime, 8, "datesub"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x1", System.Data.SqlDbType.VarChar, 3, "x1"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x2", System.Data.SqlDbType.VarChar, 3, "x2"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x3", System.Data.SqlDbType.VarChar, 3, "x3"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x4", System.Data.SqlDbType.VarChar, 3, "x4"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x5", System.Data.SqlDbType.VarChar, 3, "x5"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x6", System.Data.SqlDbType.VarChar, 3, "x6"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x7", System.Data.SqlDbType.VarChar, 3, "x7"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x8", System.Data.SqlDbType.VarChar, 3, "x8"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x9", System.Data.SqlDbType.VarChar, 3, "x9"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x10", System.Data.SqlDbType.VarChar, 3, "x10"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x11", System.Data.SqlDbType.VarChar, 3, "x11"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x12", System.Data.SqlDbType.VarChar, 3, "x12"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x13", System.Data.SqlDbType.VarChar, 3, "x13"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x14", System.Data.SqlDbType.VarChar, 3, "x14"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x15", System.Data.SqlDbType.VarChar, 3, "x15"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x16", System.Data.SqlDbType.VarChar, 3, "x16"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@x17", System.Data.SqlDbType.VarChar, 3, "x17"))

Me.SqlInsertCommand3.Parameters.Add(New System.Data.SqlClient.SqlParameter("@comment", System.Data.SqlDbType.VarChar, 2147483647, "comment"))

'

'SqlSelectCommand3

'

Me.SqlSelectCommand3.CommandText = "SELECT susponame, usponame, casename, datesub, x1, x2, x3, x4, x5, x6, x7, x8, x9" & _

", x10, x11, x12, x13, x14, x15, x16, x17, comment FROM dbo.casereview"
Me.SqlSelectCommand3.Connection = Me.SqlConnection1

CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit()

End Sub

Protected WithEvents chkviolation As System.Web.UI.WebControls.CheckBox

Protected WithEvents chkfinal As System.Web.UI.WebControls.CheckBox

Protected WithEvents chkperiodic As System.Web.UI.WebControls.CheckBox

Protected WithEvents chkinitial As System.Web.UI.WebControls.CheckBox

Protected WithEvents btnreset As System.Web.UI.WebControls.Button

Protected WithEvents btnsubmit As System.Web.UI.WebControls.Button

Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection

Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter

Protected WithEvents SqlDataAdapter2 As System.Data.SqlClient.SqlDataAdapter

Protected WithEvents DataSet11 As norfolkcasereview.DataSet1

Protected WithEvents SqlDataAdapter3 As System.Data.SqlClient.SqlDataAdapter

Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand

Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand

Protected WithEvents SqlSelectCommand2 As System.Data.SqlClient.SqlCommand

Protected WithEvents SqlInsertCommand2 As System.Data.SqlClient.SqlCommand

Protected WithEvents txtcomments As System.Web.UI.WebControls.TextBox

Protected WithEvents lblcomments As System.Web.UI.WebControls.Label

Protected WithEvents rblx1 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx7 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx8 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx9 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx10 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx11 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx12 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents rblx13 As System.Web.UI.WebControls.RadioButtonList

Protected WithEvents lblcasename As System.Web.UI.WebControls.Label

Protected WithEvents lbluspo As System.Web.UI.WebControls.Label

Protected WithEvents lbldatesub As System.Web.UI.WebControls.Label

Protected WithEvents ddlsuspo As System.Web.UI.WebControls.DropDownList

Protected WithEvents ddluspo As System.Web.UI.WebControls.DropDownList

Protected WithEvents txtcase As System.Web.UI.WebControls.TextBox

Protected WithEvents txtdate As System.Web.UI.WebControls.TextBox

Protected WithEvents SqlSelectCommand3 As System.Data.SqlClient.SqlCommand

Protected WithEvents SqlInsertCommand3 As System.Data.SqlClient.SqlCommand

Protected WithEvents RequiredFieldValidator1 As System.Web.UI.WebControls.RequiredFieldValidator

Protected WithEvents RequiredFieldValidator2 As System.Web.UI.WebControls.RequiredFieldValidator

Protected WithEvents lblsuspo As System.Web.UI.WebControls.Label

'NOTE: The following placeholder declaration is required by the Web Form Designer.

'Do not delete or move it.

Private designerPlaceholderDeclaration As System.Object

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init

'CODEGEN: This method call is required by the Web Form Designer

'Do not modify it using the code editor.

InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.SqlDataAdapter1.Fill(Me.DataSet11)

Me.SqlDataAdapter2.Fill(Me.DataSet11)

Me.SqlDataAdapter3.Fill(Me.DataSet11)

Me.DataBind()

End Sub

Private Sub btnsubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsubmit.Click

Dim rw As DataSet1.casereviewRow

rw = Me.DataSet11.casereview.NewcasereviewRow

rw.susponame = Me.ddlsuspo.SelectedValue

rw.usponame = Me.ddluspo.SelectedValue

rw.casename = Me.txtcase.Text

rw.datesub = Me.txtdate.Text

rw.final = Me.chkfinal.Checked

rw.x1 = Me.rblx1.SelectedValue

rw.x7 = Me.rblx7.SelectedValue

rw.x8 = Me.rblx8.SelectedValue

rw.x9 = Me.rblx9.SelectedValue

rw.x10 = Me.rblx10.SelectedValue

rw.x11 = Me.rblx11.SelectedValue

rw.x12 = Me.rblx12.SelectedValue

rw.x13 = Me.rblx13.SelectedValue

rw.comment = Me.txtcomments.Text

Me.DataBind()

Me.DataSet11.casereview.AddcasereviewRow(rw)

Me.SqlDataAdapter1.Update(Me.DataSet11)

Me.SqlDataAdapter2.Update(Me.DataSet11)

Me.SqlDataAdapter3.Update(Me.DataSet11)

Me.Server.Transfer("success.aspx")

End Sub

Change your code to this (see red lines)

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    If Not IsPostBack Then
        Me.SqlDataAdapter1.Fill(Me.DataSet11)
        Me.SqlDataAdapter2.Fill(Me.DataSet11)
        Me.SqlDataAdapter3.Fill(Me.DataSet11)
        Me.DataBind()
    End If
End Sub