fork download 
  1. Imports System.Data
  2.  Imports System.Data.SqlClient
  3.  
  4.  Partial Class _Default
  5.  Inherits System.Web.UI.Page
  6.  Dim DBConn As New SqlConnection("Data Source=ZETEONWS05;Initial Catalog=testingcheck;Integrated Security=True;")
  7.  Dim DBCmd As SqlCommand
  8.  
  9.  Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
  10.  DBConn.Open()
  11.  End Sub
  12.  
  13.  Protected Sub cmdSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSubmit.Click
  14.  Try
  15.  
  16.  Dim SubNLetter1 As Boolean = False
  17.  Dim SubNLetter2 As Boolean = False
  18.  Dim SubNLetter3 As Boolean = False
  19.  Dim SubNLetter4 As Boolean = False
  20.  For Each LItems As ListItem In cblNewsLetter.Items
  21.  If LItems.Selected = True Then
  22.  Select Case LItems.Value
  23.  Case "1"
  24.  SubNLetter1 = True
  25.  Case "2"
  26.  SubNLetter2 = True
  27.  Case "3"
  28.  SubNLetter3 = True
  29.  Case "4"
  30.  SubNLetter4 = True
  31.  End Select
  32.  End If
  33.  Next
  34.  
  35.  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)"
  36.  DBCmd = New SqlCommand(SQLQuery, DBConn)
  37.  DBCmd.Parameters.Add("@FirstName", SqlDbType.Char, 50).Value = txtFirstName.Text
  38.  DBCmd.Parameters.Add("@LastName", SqlDbType.Char, 50).Value = txtLastName.Text
  39.  DBCmd.Parameters.Add("@Address", SqlDbType.VarChar, 50).Value = txtAddress.Text
  40.  DBCmd.Parameters.Add("@EMail", SqlDbType.Char, 50).Value = txtEMail.Text
  41.  DBCmd.Parameters.Add("@CellNo", SqlDbType.VarChar, 50).Value = txtCellNo.Text
  42.  DBCmd.Parameters.Add("@Country", SqlDbType.Char, 50).Value = ddlCountry.SelectedValue.ToString
  43.  DBCmd.Parameters.Add("@LangPref", SqlDbType.Char, 50).Value = rbVersion.SelectedItem.ToString
  44.  DBCmd.Parameters.Add("@SubNLetter1", SqlDbType.Char, 50).Value = SubNLetter1
  45.  DBCmd.Parameters.Add("@SubNLetter2", SqlDbType.Char, 50).Value = SubNLetter2
  46.  DBCmd.Parameters.Add("@SubNLetter3", SqlDbType.Char, 50).Value = SubNLetter3
  47.  DBCmd.Parameters.Add("@SubNLetter4", SqlDbType.Char, 50).Value = SubNLetter4
  48.  DBCmd.ExecuteNonQuery()
  49.  DBCmd.Dispose()
  50.  DBCmd = Nothing
  51.  
  52.  Catch ex As Exception
  53.  Response.Write(ex)
  54.  End Try
  55.  
  56.  End Sub
  57.  
  58.  Protected Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Unload
  59.  DBConn.Close()
  60.  DBConn = Nothing
  61.  End Sub
  62.  End Class
Compilation error #stdin compilation error #stdout 0s 0KB
comments (?)
stdin 
Standard input is empty
compilation info 
prog.cs(2,8): error CS8025: Parsing error
Compilation failed: 1 error(s), 0 warnings
stdout 
Standard output is empty
https://ideone.com/NR6Es
language:
C# (gmcs 5.20.1)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!