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