Imports System.Data
Imports System.Data.SqlClient

Partial Class RegiterSuccefull
    Inherits System.Web.UI.Page
    Dim strEmailId As String
    Dim strkid As String
    Dim strVarifyId As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Page.IsPostBack = False Then
            Dim cmd As New Data.SqlClient.SqlCommand()
            Dim con As New Data.SqlClient.SqlConnection
            Try

                If Request.QueryString("VerificationCode") <> "" Then
                    strVarifyId = Request.QueryString("VerificationCode")
                End If
                If Request.QueryString("Email") <> "" Then
                    strEmailId = Request.QueryString("Email")
                End If
                If Request.QueryString("Id") <> "" Then
                    strkid = DecodeURL(Request.QueryString("Id"))
                End If

                con.ConnectionString = System.Configuration.ConfigurationManager.AppSettings("ConnectionString")
                con.Open()
                'SupplierAppContactPerson_SupplierAppId
                cmd = New Data.SqlClient.SqlCommand("update BuyerRegister set BuyerRegister_Verification='Verified',BuyerRegister_Status='Y' where BuyerRegister_Kid='" & strkid & "' and BuyerRegister_Verification='" & strVarifyId & "' and BuyerRegister_IsDeleted = '0' and BuyerRegister_EmailId = '" & strEmailId & "'", con)
                cmd.ExecuteNonQuery()
                con.Close()
            Catch ex As Exception
                showmessage(ex.Message.ToString, lblerror)
            End Try

        End If
    End Sub
End Class