Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
conextion.Open()
Dim dr As SqlDataReader
Dim cmd As New SqlCommand("Select * From Member Where Mem_User='" + TextBox1.Text + "' AND Mem_Pass='" + TextBox2.Text + "'", conextion)
dr = cmd.ExecuteReader
If dr.HasRows = True Then
Session("strUsername") = TextBox1.Text
Response.Redirect("Home.aspx")
Else
Response.Write("ชื่อผู้ใช้หรือรหัสผ่านไม่ถูกต้อง")
End If
conextion.Close()
End Sub