There are a number of ways to tackle.
Off hand, here are two approaches -
1) Create 4 boolean columns in the database and fill in true for the checked radio button and false for others.
2) Create just one column. Create four unqiue identifiers (one for each radiobutton e.g. 1,2,3 and 4). Fill the column with the unique identifier value after figuring out out which of the selected / checked maps to which identifier.
Imports System.Data
Imports System.Data.SqlClient
Partial Class _Default
Inherits System.Web.UI.Page
Dim DBConn As New SqlConnection("Data Source=ZETEONWS05;Initial Catalog=testingcheck;Integrated Security=True;")
Dim DBCmd As SqlCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
DBConn.Open()
End Sub
Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
Try
Dim SubNLetter1 As Boolean = False
Dim SubNLetter2 As Boolean = False
Dim SubNLetter3 As Boolean = False
Dim SubNLetter4 As Boolean = False
For Each LItems As ListItem In cblNewsLetter.Items
If LItems.Selected = True Then
Select Case LItems.Value
Case "1"
SubNLetter1 = True
Case "2"
SubNLetter2 = True
Case "3"
SubNLetter3 = True
Case "4"
SubNLetter4 = True
End Select
End If
Next
Dim SQLQuery As String = "INSERT INTO Subscription (FirstName, LastName, Address, EMail, CellNo, Country, LangPref, SubNLetter1, SubNLetter2, SubNLetter3, SubNLetter4) VALUES (@FirstName, @LastName, @Address, @EMail, @CellNo, @Country, @LangPref, @SubNLetter1, @SubNLetter2, @SubNLetter3, @SubNLetter4)"
DBCmd = New SqlCommand(SQLQuery, DBConn)
DBCmd.Parameters.Add("@FirstName", SqlDbType.Char, 50).Value = txtFirstName.Text
DBCmd.Parameters.Add("@LastName", SqlDbType.Char, 50).Value = txtLastName.Text
DBCmd.Parameters.Add("@Address", SqlDbType.VarChar, 50).Value = txtAddress.Text
DBCmd.Parameters.Add("@EMail", SqlDbType.Char, 50).Value = txtEMail.Text
DBCmd.Parameters.Add("@CellNo", SqlDbType.VarChar, 50).Value = txtCellNo.Text
DBCmd.Parameters.Add("@Country", SqlDbType.Char, 50).Value = ddlCountry.SelectedValue.ToString
DBCmd.Parameters.Add("@LangPref", SqlDbType.Char, 50).Value = rbVersion.SelectedItem.ToString
DBCmd.Parameters.Add("@SubNLetter1", SqlDbType.Char, 50).Value = SubNLetter1
DBCmd.Parameters.Add("@SubNLetter2", SqlDbType.Char, 50).Value = SubNLetter2
DBCmd.Parameters.Add("@SubNLetter3", SqlDbType.Char, 50).Value = SubNLetter3
DBCmd.Parameters.Add("@SubNLetter4", SqlDbType.Char, 50).Value = SubNLetter4
DBCmd.ExecuteNonQuery()
DBCmd.Dispose()
DBCmd = Nothing
Catch ex As Exception
Response.Write(ex)
End Try
End Sub
Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
DBConn.Close()
DBConn = Nothing
End Sub
End Class