<% blnInsecurePage = true %> BA97 | Login/Register <% blnFailed = false If Not Instr(Request.Form("uname"),"'") = 0 Then blnFailed = true ElseIf Not Instr(Request.Form("uname"),"""") = 0 Then blnFailed = true ElseIf Not Instr(Request.Form("password"),"'") = 0 Then blnFailed = true ElseIf Not Instr(Request.Form("password"),"""") = 0 Then blnFailed = true End If '' If the user is attempting to alias If Not Instr(Request.Form("uname"),"/") = 0 Then arrBits = Split(Request.Form("uname"),"/") strAdmin = Trim(arrBits(0)) strAlias = Trim(arrBits(1)) strSQL = "SELECT * FROM ba97_users " _ & "WHERE handle = '" & strAdmin & "' " _ & "AND wordpass = '" & Request.Form("password") & "' " _ & "AND admin = 1" adoRS.Open(strSQL) If adoRS.EOF Then blnFailed = "true" Else adoRS.Close strSQL = "SELECT phrase FROM ba97_users " _ & "WHERE handle = '" & strAlias & "'" adoRS.Open(strSQL) If Not adoRS.EOF Then If Trim(adoRS.fields(0).value) = "" Then blnFailed = "true" Else If Request("keeploggedin") = "on" Then Response.Cookies("ba97appdata").Expires = Date + 30 Response.Cookies("ba97appdata")(base64_encode("keeploggedin")) = base64_encode("positive") Else Response.Cookies("ba97appdata")(base64_encode("keeploggedin")) = base64_encode("negative") End If Response.Cookies("ba97appdata")(base64_encode("uname")) = base64_encode(strAlias) Response.Cookies("ba97appdata")(base64_encode("aliaser")) = base64_encode(strAdmin) Response.Cookies("ba97appdata")(base64_encode("phrase")) = base64_encode(adoRS.fields(0).value) End If End If End If adoRS.Close ElseIf Not Request.Form("uname") = "" Then strSQL = "SELECT * FROM ba97_users " _ & "WHERE handle = '" & Request.Form("uname") & "' " _ & "AND wordpass = '" & Request.Form("password") & "'" adoRS.Open(strSQL) If Not adoRS.EOF Then Response.Cookies("ba97appdata")(strPhrase_encoded) = base64_encode(adoRS.fields.item("phrase")) If Request("keeploggedin") = "on" Then Response.Cookies("ba97appdata").Expires = Date + 30 Response.Cookies("ba97appdata")(base64_encode("keeploggedin")) = base64_encode("positive") Else Response.Cookies("ba97appdata")(base64_encode("keeploggedin")) = base64_encode("negative") End If Response.Cookies("ba97appdata")(strUname_encoded) = base64_encode(Request.Form("uname")) Response.Cookies("ba97appdata")(strUname_encoded) = base64_encode(Request.Form("uname")) Response.Cookies("ba97appdata").Path = "/" blnFailed = false Else blnFailed = true End If adoRS.Close If Not blnFailed Then strToday = DatePart("yyyy",Date) & "-" & DatePart("m",Date) & "-" & DatePart("d",Date) & " " & DatePart("h",Now) & ":" & DatePart("n",Now) adoConn.Execute("UPDATE ba97_users SET last_login='" & strToday & "' WHERE handle='" & Request.Form("uname") & "'") End If End If If Not Request.Cookies("ba97appdata")(base64_encode("uname")) = "" And blnFailed = false Then If Not Request("referred") = "" Then Response.Redirect(Request("referred")) Else Response.Redirect("home.asp?" & Request.Form("uname")) End If End If %> <% If Not Request.QueryString("fb") = "" Then %> <% ElseIf Not Trim(Request.QueryString("m")) = "" Then %> <% Else %> <% End If %>

The BA97 travel calendar, founded in 2006, is an online database allowing members to record, visualise (stats & maps) and summarise their past and future air travel.

The calendar shows members' air travel (either publically or to a member-controlled list of other members), provides information on which airport lounge facilities are available based on class of travel and frequent flyer memberships, and gives members the option to meet if travel overlaps.

Join us!

Our membership and sector statistics are...

<% If blnFailed = "true" Then %>
Your login attempt failed, please try again

 <% End If %>
" /> Username:



Password:



Keep me logged in 



Forgotten your password?

Register to use the calendar