<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
User Login
| Calendar Editor Login
|
| <%
if Request.QueryString("Ath")<>"" then
Ath=cint(Request.QueryString("Ath"))
if Ath=1 then
Response.Write "Permission denied."
end if
end if
%> |
<%
fp_sQry="SELECT * FROM users WHERE (Username = '::Username::' AND Userpass = '::Userpass::')"
fp_sDefault="Username=0&Userpass=0"
fp_sNoRecords="Please enter a valid Username and Password."
fp_sDataConn="calendar"
fp_iMaxRecords=1
fp_iCommandType=1
fp_iPageSize=0
fp_fTableFormat=False
fp_fMenuFormat=False
fp_sMenuChoice=""
fp_sMenuValue=""
fp_sColTypes="&UserID=3&Username=202&Userpass=202&SecureLevel=2&"
fp_iDisplayCols=4
fp_fCustomQuery=False
BOTID=0
fp_iRegion=BOTID
%>
<%
Session("uid")=cStr(fp_rs("SecureLevel"))
Response.Redirect "db_editor.asp"
%>