Imports System.Data
Imports System.Data.SqlClient

Partial Class authenticate
    Inherits System.Web.UI.Page

    Private Sub form1_Load(sender As Object, e As EventArgs) Handles form1.Load
        If Not IsNothing(Request.QueryString("GUID")) Then
            Try
                Using con As SqlConnection = New SqlConnection(functions.GetConnectionString)
                    Using cmd As SqlCommand = New SqlCommand("USERS_spGUID", con)
                        cmd.CommandType = CommandType.StoredProcedure
                        cmd.Parameters.AddWithValue("@GUID", Request.QueryString("GUID"))
                        If con.State = ConnectionState.Closed Then con.Open()
                        Dim dt As New DataTable
                        Using da As SqlDataAdapter = New SqlDataAdapter(cmd)
                            da.Fill(dt)
                            Session("userid") = dt.Rows(0)("userid").ToString
                            Session("DisplayName") = dt.Rows(0)("DisplayName").ToString
                            Session("DSVAccount") = dt.Rows(0)("DSVAccount").ToString
                            Session("DSVAccountStatus") = dt.Rows(0)("DSVAccountStatus")
                            Session("ReceiveStatements") = dt.Rows(0)("ReceiveStatements")
			    Session("ReceiveStatements") = 1

                            Response.Redirect("dashboard.aspx")
                        End Using
                    End Using
                End Using
            Catch ex As Exception
                Response.Redirect("login.aspx")
            End Try
        End If
    End Sub

End Class