<% Dim Msg If Request.Form.Count Then If Login(Request.Form("username"), Request.Form("password")) Then Response.Redirect "tour.asp" Else Msg = "Please try again. Invalid username or password." End If End If ' -------------------------------------------------- Login ----------------------------------------------------- Function Login(userid, passwd) If userid = "demo" And passwd = "1234" Then Session("UserName") = userid Login = True Else Login = False End If End Function %>

	Simply enter the username and password below: User Name: demo Password: 1234 <% =Msg %>     Username:   Password:
Newsletter
Subscribe to our FREE Newsletter! Simply submit your e-mail address: