<%
End Sub
Sub CheckLogin
If LCase(Request.Form("username")) = "guest" And LCase(Request.Form("userpwd")) = "guest" Then
Session("UserLoggedIn") = "true"
Response.Redirect "http://www.lasvegasseminars.com/onlinecourses/members-main.htm"
Else
Response.Write("Login Failed.