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