OnlineShoppingSite/welcomePage.aspx.vb at master · ApoorvaLingashettar/OnlineShoppingSite · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

Partial Class welcomePage
    Inherits System.Web.UI.Page


    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        Dim customer_list As List(Of Customer)

        customer_list = Session("session_customer")

        Dim i As Integer

        For i = 0 To customer_list.Count - 1

            If customer_list(i).name = TextBox3.Text.ToString() And customer_list(i).password = TextBox4.Text.ToString() Then

                Response.Redirect("SussesfulLogin.aspx")

            Else
                Response.Redirect("welcomePage.aspx")

            End If

        Next


    End Sub

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim customer_list As List(Of Customer)


        customer_list = Session("session_customer")

        Dim i As Integer
        For i = 0 To customer_list.Count - 1

            Label2.Text = customer_list(i).name

        Next


    End Sub
End Class