Imports System.Data.SqlClient

Partial Class Feedbacks
    Inherits System.Web.UI.Page


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

    End Sub

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        txtName.Text = txtName.Text.Replace("'", "''")
        txtEmail.Text = txtEmail.Text.Replace("'", "''")
        TxtFeedbackDesc.Text = TxtFeedbackDesc.Text.Replace("'", "''")
        Dim FeedbackId As String = Session("FeedbackId")
        If (FeedbackId = "") Then
            FeedbackId = createFeedbackId()
            Session("FeedbackId") = FeedbackId
        End If
    End Sub
    Function createFeedbackId() As String
        Dim connectionString As String = _
        ConfigurationManager.ConnectionStrings("FeedbackConnectionString").ConnectionString
        Dim connection As SqlConnection = New SqlConnection(connectionString)
        connection.Open()
        Dim sql As String = "INSERT INTO Feedback(FeedbackID,Name,Email,FeedbackDesc) VALUES('" & txtName.Text.Trim & "','" & TxtEmail.Text.Trim & "','" & TxtFeedbackDesc.Text.Trim & "');"


        Dim command As SqlCommand = New SqlCommand(sql, connection)

        connection.Close()
    End Function
    

End Class

Function createFeedbackId() As String
        Dim connectionString As String = _
        ConfigurationManager.ConnectionStrings("FeedbackConnectionString").ConnectionString
        Dim connection As SqlConnection = New SqlConnection(connectionString)
        connection.Open()
        Dim sql As String = "INSERT INTO Feedback(Name,Email,FeedbackDesc) VALUES('" & txtName.Text.Trim & "','" & TxtEmail.Text.Trim & "','" & TxtFeedbackDesc.Text.Trim & "');"
        Dim command As SqlCommand = New SqlCommand(sql, connection)
        Dim reader As SqlDataReader = command.ExecuteReader()
        Dim FeedbackId As Integer = -1
        If (reader.Read()) Then
            FeedbackId = reader.GetValue(0)
        End If
        connection.Close()
        Return FeedbackId
    End Function
End Class