<%@LANGUAGE="VBSCRIPT"%>
<%
Dim CustomerRS__value
CustomerRS__value = "qq"
if (Request("Email") <> "") then CustomerRS__value = Request("Email")
%>
<%
set CustomerRS = Server.CreateObject("ADODB.Recordset")
CustomerRS.ActiveConnection = MM_events_STRING
CustomerRS.Source = "SELECT Email FROM icarus10 WHERE email='" + Replace(CustomerRS__value, "'", "''") + "'"
CustomerRS.CursorType = 0
CustomerRS.CursorLocation = 2
CustomerRS.LockType = 3
CustomerRS.Open()
CustomerRS_numRows = 0
%>
<%
If (CStr(Request("MM_insert")) <> "") Then
if not CustomerRS.eof then response.redirect "NewUserTaken.asp?email="&Request("Email")
end if
%>
<%
' *** Edit Operations: declare variables
MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
MM_editAction = MM_editAction & "?" & Request.QueryString
End If
' boolean to abort record edit
MM_abortEdit = false
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
If (CStr(Request("MM_insert")) <> "") Then
MM_editConnection = MM_events_STRING
MM_editTable = "icarus10"
MM_editRedirectUrl = "ok.asp"
MM_fieldsStr = "RegisterDate|value|Email|value|password|value|PilotName|value|PilotSurname|value|Nationality|value|PassportID|value|CrewContactEmail|value|AircraftRegistration|value|TypeAircraft|value|AircraftType|value|ArrivalDate|value|ArrivalHour|value|DepartureDate|value|DepartureHour|value|FuelType|value|ArrivalDateEX|value|ArrivalHourEx|value|DepartureDateEx|value|DepartureHourEx|value|FuelTypeEx|value|Comments|value|NamePassenger01|value|SurNamePassenger01|value|P01Nationality|value|P01PassportID|value|P01Email|value|NamePassenger02|value|SurNamePassenger02|value|P02Nationality|value|P02PassportID|value|P02Email|value|NamePassenger03|value|SurNamePassenger03|value|P03Nationality|value|P03PassportID|value|P03Email|value|NamePassenger04|value|SurNamePassenger04|value|P04Nationality|value|P04PassportID|value|P04Email|value|NamePassenger05|value|SurNamePassenger05|value|P05Nationality|value|P05PassportID|value|P05Email|value|NamePassenger06|value|SurNamePassenger06|value|P06Nationality|value|P06PassportID|value|P06Email|value|NamePassenger07|value|SurNamePassenger07|value|P07Nationality|value|P07PassportID|value|P07Email|value|NamePassenger08|value|SurNamePassenger08|value|P08Nationality|value|P08PassportID|value|P08Email|value|NamePassenger09|value|SurNamePassenger09|value|P09Nationality|value|P09PassportID|value|P09Email|value|NamePassenger10|value|SurNamePassenger10|value|P10Nationality|value|P10PassportID|value|P10Email|value"
MM_columnsStr = "RegisterDate|',none,''|Email|',none,''|password|',none,''|PilotName|',none,''|PilotSurName|',none,''|Nationality|',none,''|PassportID|',none,''|CrewContactEmail|',none,''|AircraftRegistration|',none,''|TypeAircraft|',none,''|AircraftType|',none,''|ArrivalDate|',none,''|ArrivalHour|',none,''|DepartureDate|',none,''|DepartureHour|',none,''|FuelType|none,none,NULL|ArrivalDateEx|',none,''|ArrivalHourEx|',none,''|DepartureDateEx|',none,''|DepartureHourEx|',none,''|FuelTypeEx|none,none,NULL|comments|',none,''|NamePassenger01|',none,''|SurNamePassenger01|',none,''|P01Nationality|',none,''|P01PassportID|',none,''|P01Email|',none,''|NamePassenger02|',none,''|SurNamePassenger02|',none,''|P02Nationality|',none,''|P02PassportID|',none,''|P02Email|',none,''|NamePassenger03|',none,''|SurNamePassenger03|',none,''|P03Nationality|',none,''|P03PassportID|',none,''|P03Email|',none,''|NamePassenger04|',none,''|SurNamePassenger04|',none,''|P04Nationality|',none,''|P04PassportID|',none,''|P04Email|',none,''|NamePassenger05|',none,''|SurNamePassenger05|',none,''|P05Nationality|',none,''|P05PassportID|',none,''|P05Email|',none,''|NamePassenger06|',none,''|SurNamePassenger06|',none,''|P06Nationality|',none,''|P06PassportID|',none,''|P06Email|',none,''|NamePassenger07|',none,''|SurNamePassenger07|',none,''|P07Nationality|',none,''|P07PassportID|',none,''|P07Email|',none,''|NamePassenger08|',none,''|SurNamePassenger08|',none,''|P08Nationality|',none,''|P08PassportID|',none,''|P08Email|',none,''|NamePassenger09|',none,''|SurNamePassenger09|',none,''|P09Nationality|',none,''|P09PassportID|',none,''|P09Email|',none,''|NamePassenger10|',none,''|SurNamePassenger10|',none,''|P10Nationality|',none,''|P10PassportID|',none,''|P10Email|',none,''"
' create the MM_fields and MM_columns arrays
MM_fields = Split(MM_fieldsStr, "|")
MM_columns = Split(MM_columnsStr, "|")
' set the form values
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
Next
' append the query string to the redirect URL
If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
If (CStr(Request("MM_insert")) <> "") Then
' create the sql insert statement
MM_tableValues = ""
MM_dbValues = ""
For i = LBound(MM_fields) To UBound(MM_fields) Step 2
FormVal = MM_fields(i+1)
MM_typeArray = Split(MM_columns(i+1),",")
Delim = MM_typeArray(0)
If (Delim = "none") Then Delim = ""
AltVal = MM_typeArray(1)
If (AltVal = "none") Then AltVal = ""
EmptyVal = MM_typeArray(2)
If (EmptyVal = "none") Then EmptyVal = ""
If (FormVal = "") Then
FormVal = EmptyVal
Else
If (AltVal <> "") Then
FormVal = AltVal
ElseIf (Delim = "'") Then ' escape quotes
FormVal = "'" & Replace(FormVal,"'","''") & "'"
Else
FormVal = Delim + FormVal + Delim
End If
End If
If (i <> LBound(MM_fields)) Then
MM_tableValues = MM_tableValues & ","
MM_dbValues = MM_dbValues & ","
End if
MM_tableValues = MM_tableValues & MM_columns(i)
MM_dbValues = MM_dbValues & FormVal
Next
MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
If (Not MM_abortEdit) Then
' execute the insert
Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_editConnection
MM_editCmd.CommandText = MM_editQuery
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close
If (MM_editRedirectUrl <> "") Then
If Request.Form("Email") > "" then
Dim tmpBody, tmpField
for x = 1 to request.form.count()
tmpField = request.form.key(x) & " = " & request.form.item(x) & Chr(13) & Chr(10)
If Left(tmpField,3) <> "nic" Then
If request.form.key(x) <> "Submit" Then tmpBody = tmpBody & tmpField
End If
next
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.From = Request.Form("Email")
objCDO.Subject = "Flying to ICARUS Aero Expo Athens 2010"
objCDO.To = "icarusexpo@aopa.gr"
ObjCDO.CC = "pilotregistration@icarusaeroexpo.gr"
if request("AircraftType") ="EXHIBITOR" then ObjCDO.Bcc ="Expo2010@icarusaeroexpo.gr"
objCDO.Body = tmpBody
objCDO.BodyFormat=1
objCDO.MailFormat=0
objCDO.Send
Set objCDO = Nothing
Dim objCDOReplay
Set objCDOReplay = Server.CreateObject("CDONTS.NewMail")
objCDOReplay.From = "pilotregistration@icarusaeroexpo.gr"
objCDOReplay.Subject = "Flying to ICARUS Aero Expo Athens 2010"
objCDOReplay.To = Request.Form("Email")
objCDOReplay.Body = "Thank you for registering to Icarus Aero Expo Athens 2010. For more information on Flying In, please visit our website www.icarusaeroexpo.gr. "& vbCrLf &"Check for updates as the event date gets closer, especially in our page for Getting there/Fly in"& vbCrLf &"http://www.icarusaeroexpo.gr"& vbCrLf & vbCrLf &"ICARUS Organizing Committee Athens 2010"
objCDOReplay.BodyFormat=1
objCDOReplay.MailFormat=0
objCDOReplay.Send
Set objCDOReplay = Nothing
Dim FullName 'insert to icarus pilots, pilot name and email
FullName=Request.Form("PilotName") &" "&Request.Form("PilotSurname")
if(Request.Form("Email") <> "") then Command1__MMEmail =Request.Form("Email")
if(FullName <> "") then Command1__MMName = FullName
set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_aopa_STRING
Command1.CommandText = "INSERT INTO NEWSLETTER (FULLNAME, EMAIL, CATEGORIES) VALUES ('" + Replace(Command1__MMName, "'", "''") + "','" + Replace(Command1__MMEmail, "'", "''") + "',20) "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
end if
Response.Redirect(MM_editRedirectUrl)
End If
End If
End If
%>
Flying to ICARUS Aero Expo Athens 2010 - Registration Form
<%
' *** Logout the current user.
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
Session.Abandon
MM_logoutRedirectPage = "../en/logout.asp"
' redirect with URL parameters (remove the "MM_Logoutnow" query param).
if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
MM_newQS = "?"
For Each Item In Request.QueryString
If (Item <> "MM_Logoutnow") Then
If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
End If
Next
if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
End If
Response.Redirect(MM_logoutRedirectPage)
End If
%>
<% if Session("MM_Username") <> "" then %>
MEMBERS AREA
<% else %>
MEMBERS AREA
<% end if %>
<% if Session("MM_Username") = "" then %>
Username
<% else %>
Sign
Out
