<% If Request("action") = "email" Then strMail = Request("mail_body") adoRS.Open("SELECT email FROM ba97_users WHERE handle='" & strUser & "'") If Not adoRS.EOF Then strUserEmail = adoRS.fields(0).value End If adoRS.Close If Not strUserEmail = "" Then Set objSendMail = Server.CreateObject("CDO.Message") objSendMail.From = "calendar@ba97.com" objSendMail.To = strUserEmail objSendMail.Subject = Request("subject") & " by " & strUser objSendMail.TextBody = strMail objSendMail.Send objSendMail = Nothing End If Set objSendMailTwo = Server.CreateObject("CDO.Message") objSendMailTwo.From = "loungeadmins@ba97.com" objSendMailTwo.To = "loungeadmins@ba97.com" objSendMailTwo.Subject = Request("subject") & " by " & strUser objSendMailTwo.HTMLBody = strMail & "

" & "--------------------" _ & "

To modify this lounge, visit http://www.ba97.com/ba97/calendar/maintain_access.asp?lounge_identifier=" _ & Request("email_lounge_identifier") objSendMailTwo.Send objSendMailTwo = Nothing strMessage = "Your comments regarding the lounge at " _ & Request("email_airport") & " have been sent to the lounge administrators." If Not strUserEmail = "" Then strMessage = strMessage & " A copy was CCed to " & strUserEmail & "." End If strMessage = strMessage & "" End If %>
Which airport are you interested in querying lounge access for or adding a lounge to?
<% If Request("message") = "deleted" Then %> <%= Request("name") %> deleted successfully <% ElseIf Request("message") = "closed" Then %> <%= Request("name") %> successfully closed <% ElseIf Request("message") = "approved" Then %> <%= Request("name") %> approved successfully <% End If %>
<% If Not Request("lounge_identifier") = "" Then strSQL = "SELECT airport_identifier " _ & "FROM ba97_lounges " _ & "WHERE lounge_identifier=" & CInt(Request("lounge_identifier")) adoRS.Open(strSQL) strAirport = adoRS.fields(0).value adoRS.Close %> <% End If %> <% adoConn.Close Set adoConn = Nothing %>