<%
go = Request.QueryString("go")
if Request.Form("user") <> "" then
if Request.Form("user") = UserName and Request.Form("password") = Password then
Session("DiaryAdmin") = true
if Request.Form("go") <> "" then
Response.Redirect(Request.Form("go"))
Else
Response.Redirect("default.asp")
End If
Else
msg = "Invalid Username or Password"
End If
go = Request.Form("go")
End If
%>
Login
<%=msg%>