Imports System.Data
Imports System.Data.SqlClient
Imports System.IO
Partial Class LivingEvacueesUp
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

    End Sub

    Public Function InsertData(ByVal cmd As SqlCommand) As Boolean
        Dim strConnString As String = System.Configuration.ConfigurationManager.ConnectionStrings("ConnectionString").ConnectionString
        Dim con As New SqlConnection(strConnString)
        cmd.CommandType = CommandType.Text
        cmd.Connection = con
        Try
            con.Open()
            cmd.ExecuteNonQuery()
            Return True
        Catch ex As Exception
            Response.Write(ex.Message)
            Return False
        Finally
            con.Close()
            con.Dispose()
        End Try
    End Function

    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnUpload.Click

        ' Read the text fields values 
        
        Dim surname As String = txtSurname.Text
        Dim forename As String = txtForename.Text
        Dim dob As Date = txtDob.Text
        Dim address As String = txtAddress.Text
        Dim evacto As String = txtEvacuatedTo.Text
        Dim extrainfo As String = txtRemarks.Text



        'insert into database 
        Dim strQuery As String = "INSERT INTO tblLivingEvacuees(Surname, Forename, DateOfBirth, Address, EvacuatedTo, ExtraInfo)" _
                                 & "VALUES(@surname, @forename, @dob, @address, @evacto, @extrainfo)"



        Dim cmd As New SqlCommand(strQuery)
        cmd.Parameters.AddWithValue("@surname", SqlDbType.VarChar).Value = surname
        cmd.Parameters.AddWithValue("@forename", SqlDbType.VarChar).Value = forename

        cmd.Parameters.AddWithValue("@dob", SqlDbType.Date).Value = dob
        cmd.Parameters.AddWithValue("@address", SqlDbType.VarChar).Value = address
        cmd.Parameters.AddWithValue("@evacto", SqlDbType.VarChar).Value = evacto
        cmd.Parameters.AddWithValue("@extrainfo", SqlDbType.VarChar).Value = extrainfo


        If InsertData(cmd) Then

            lblMessage.ForeColor = System.Drawing.Color.Green
            lblMessage.Text = "Information Submitted Successfully"
        Else
            lblMessage.ForeColor = System.Drawing.Color.Red
            lblMessage.Text = "Error!" _
            & " Please try again."
        End If

    End Sub
End Class