<%@ Language=VBScript %> <% Dim rsNameCheck, adoCmd, rsCountry, rsNewID Dim sFullName, sEmail, sAdd1, sAdd2, sCity, iCountry, sPostcode, sPhone, sResidence Dim sNationality, sPassportNo, sAge, sWebsite, sAKA1, sAKA2, iService, sWhy, sNotes Dim sFile, sFrom, sTo, iNewID, sGov, sIntel, sMilitary, sSecretSoc Dim sAdditional, sDateFrom, sDateTo Dim sErrorMsg, sUpdateString, sGetIDString Dim sFileExt, blnPicture Dim byteCount Dim RequestBin Dim UploadRequest Dim contentType,filepathname,filename,value Dim strDestFileName Dim sDebugger sErrorMsg = "" Set adoCmd = Server.CreateObject("ADODB.Command") With adoCmd .ActiveConnection = sRegConnectionString .CommandType = 1 .CommandText = "SELECT * FROM tblCountry ORDER BY Country" .NamedParameters = False Set rsCountry = .Execute End With If Request.QueryString("Action") = "Update" Then 'Check validity of user byteCount = Request.TotalBytes RequestBin = Request.BinaryRead(byteCount) Set UploadRequest = CreateObject("Scripting.Dictionary") BuildUploadRequest RequestBin filepathname = UploadRequest.Item("uplPic").Item("FileName") If Trim(filepathname) = "" Then blnPicture = False sFileExt = "none" contentType = "none" Else blnPicture = True contentType = UploadRequest.Item("uplPic").Item("ContentType") filename = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\")) 'value = UploadRequest.Item("uplPic").Item("Value") If contentType = "image/pjpeg" Then sFileExt = "jpg" Else sFileExt = "gif" End IF End If '--------------GET VARIABLE VALUES------------------------ sFullName = UploadRequest.Item("txtFullName").Item("Value") sEmail = UploadRequest.Item("txtEmail").Item("Value") sAdd1 = UploadRequest.Item("txtAdd1").Item("Value") sAdd2 = UploadRequest.Item("txtAdd2").Item("Value") sCity = UploadRequest.Item("txtCity").Item("Value") iCountry = UploadRequest.Item("slCountry").Item("Value") sPostcode = UploadRequest.Item("txtZip").Item("Value") sPhone = UploadRequest.Item("txtPhone").Item("Value") sResidence = UploadRequest.Item("txtResidence").Item("Value") sNationality = UploadRequest.Item("txtNat").Item("Value") sPassportNo = UploadRequest.Item("txtPas").Item("Value") sAge = UploadRequest.Item("txtFullName").Item("Value") sWebsite = UploadRequest.Item("txtFullName").Item("Value") sAKA1 = UploadRequest.Item("txtAka1").Item("Value") sAKA2 = UploadRequest.Item("txtAka2").Item("Value") sAge = Cint(UploadRequest.Item("txtAge").Item("Value")) iService = Cint(UploadRequest.Item("slServices").Item("Value")) sWhy = Replace(UploadRequest.Item("txtWhy").Item("Value"),vbCrLf,"
") sNotes = Trim(UploadRequest.Item("txtNotes").Item("Value")) sWebsite = UploadRequest.Item("txtWebsite").Item("Value") sGov = Trim(UploadRequest.Item("txtGov").Item("Value")) sIntel = Trim(UploadRequest.Item("txtIntel").Item("Value")) sMilitary = Trim(UploadRequest.Item("txtMilitary").Item("Value")) sSecretSoc = Trim(UploadRequest.Item("txtSecretSoc").Item("Value")) sAdditional = Trim(UploadRequest.Item("txtAdditional").Item("Value")) sDateFrom = UploadRequest.Item("FromDay").Item("Value") & " " & UploadRequest.Item("FromMonth").Item("Value") & " " & UploadRequest.Item("FromYear").Item("Value") sDateTo = UploadRequest.Item("ToDay").Item("Value") & " " & UploadRequest.Item("ToMonth").Item("Value") & " " & UploadRequest.Item("ToYear").Item("Value") With adoCmd .ActiveConnection = sRegConnectionString .CommandType = 1 .CommandText = "SELECT Count(*) As SameCount FROM tblRegistration WHERE Email = '" & sEmail &"'" .NamedParameters = False Set rsNameCheck = .Execute End With If Not rsNameCheck.EOF Then If Cint(rsNameCheck.Fields("SameCount")) > 0 Then 'Invalid Name or Email sErrorMsg = "Sorry but that E-mail address has already been taken" ElseIf blnPicture = True And (contentType <> "image/pjpeg" AND contentType <> "image/gif") Then sErrorMsg = "The specified file is not a JPG or GIF file (" & contentType & ")" Else sErrorMsg = "" 'Update + redirect sUpdateString = "INSERT INTO tblRegistration(FullName, Address1, Address2, City, Country, Postcode, Phone, Email, Nationality, PassportNo, Aka1, Aka2, Age, Why, Website, Residence, Service, AvailFrom, AvailTo, ImageType, Notes, Regdate, GovernmentWork, IntelligentsWork, MillitaryWork, SecretSoc, Additional) VALUES (" sUpdateString = sUpdateString & "'" & Replace(sFullName,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sAdd1,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sAdd2,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sCity,"'","''") & "'," sUpdateString = sUpdateString & iCountry & "," sUpdateString = sUpdateString & "'" & Replace(sPostcode,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sPhone,"'","''") & "'," sUpdateString = sUpdateString & "'" & sEmail & "'," sUpdateString = sUpdateString & "'" & Replace(sNationality,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sPassportNo,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sAKA1,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sAKA2,"'","''") & "'," sUpdateString = sUpdateString & sAge & "," sUpdateString = sUpdateString & "'" & Replace(sWhy,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sWebsite,"'","''") & "'," sUpdateString = sUpdateString & "'" & Replace(sResidence,"'","''") & "'," sUpdateString = sUpdateString & iService & "," sUpdateString = sUpdateString & "'" & sDateFrom & "'," sUpdateString = sUpdateString & "'" & sDateTo & "'," sUpdateString = sUpdateString & "'" & sFileExt & "'," If sNotes <> "" Then sUpdateString = sUpdateString & "'" & Replace(sNotes,"'","''") & "'," Else sUpdateString = sUpdateString & "NULL," End If sUpdateString = sUpdateString & "'" & Date() & "'," If sGov <> "" Then sUpdateString = sUpdateString & "'" & Replace(sGov,"'","''") & "'," Else sUpdateString = sUpdateString & "NULL," End If If sIntel <> "" Then sUpdateString = sUpdateString & "'" & Replace(sIntel,"'","''") & "'," Else sUpdateString = sUpdateString & "NULL," End If If sMilitary <> "" Then sUpdateString = sUpdateString & "'" & Replace(sMilitary,"'","''") & "'," Else sUpdateString = sUpdateString & "NULL," End If If sSecretSoc <> "" Then sUpdateString = sUpdateString & "'" & Replace(sSecretSoc,"'","''") & "'," Else sUpdateString = sUpdateString & "NULL," End If If sAdditional <> "" Then sUpdateString = sUpdateString & "'" & Replace(sAdditional,"'","''") & "')" Else sUpdateString = sUpdateString & "NULL)" End If With adoCmd .ActiveConnection = sRegConnectionString .CommandType = 1 .CommandText = sUpdateString .NamedParameters = False .Execute End With '------------ GET THE NEW ID------------------------ sGetIDString = "SELECT [ID] FROM tblRegistration WHERE Email = '" & sEmail & "'" With adoCmd .ActiveConnection = sRegConnectionString .CommandType = 1 .CommandText = sGetIDString .NamedParameters = False Set rsNewID = .Execute End With If Not rsNewID.EOF Then iNewID = rsNewID("ID") End If If blnPicture = True Then '------------ WHAT IS THE FILE NAME WE WANT TO USE Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject") '---- WRITE THE FULLSIZE IMAGE strDestFileName = CurrentFolder() & "\upload\" & iNewID & "." & sFileExt Set myFile = ScriptObject.CreateTextFile( strDestFileName ) value = UploadRequest.Item("uplPic").Item("Value") For i = 1 to LenB(value) myFile.Write chr(AscB(MidB(value,i,1))) Next myFile.Close End If 'pic True Response.Redirect("./ThankYou.asp?sFullName=" & sFullName & "&txtEmail=" & sEmail & "&p10kID=" & iNewID & "&sResidence=" & sResidence & "&sDateFrom=" & sDateFrom & "&sDateTo=" & sDateTo ) End If End If Set rsNameCheck = Nothing End If Set adoCmd = Nothing %>

P10K Registration Form

"How wonderful it is that nobody need wait a single moment before starting to improve the world." – Anne Frank

The P10K Mission
Our mission is to mobilise 10,000 International Observers in Palestine in order to prevent injuries to human rights and/or document injuries to human rights and to support a bi-lateral ceasefire.

P10K's Mandate
P10K is an application of International Law, specifically it is an application of the Universal Declaration of Human Rights (UDHR);
'Whereas recognition of the inherent dignity and of the equal and inalienable rights of all members of the human family is the foundation of freedom, justice and peace in the world,...’ - UDHR PREAMBLE

Click here if you agree to the above P10K Mission, the P10K Non-Violent Democratic Demonstration Clause and the P10K Media Clause.

2. Full Disclosure
Name, Contact Information, Nationality & Aliases
Truth is the critical first step in the three step process of Truth Justice & Peace; therefore it is essential to the success of the P10K action that every participant be 100% truthful. By registering you are legally agreeing to the terms of the P10K Registration Form that legally requires you to fully and honestly disclose your identity which includes any and all aliases that you have used.

*Full legal name:

Address 1:

Address 2:

*City:

*Country:

Postcode/Zip:

*Phone Contact(s):

*Email:

*Residence (Country + State):

*Nationality:

Passport No.:

*Age :

Personal Website:

" name="txtWebsite">

1. Also known as (aka):

2. Also known as (aka):

If you have more than two aliases then you are required to reveal these names as well by emailing them to register@P10K.net. Any breach in revealing aliases may result in P10K Coordinators publishing your photograph and known names with a description of the areas of our action that you had access to; this will be done in order to prevent dishonest individuals from infiltrating other humane endeavors and otherwise compromising the movement for Truth Justice & Peace.

Professional Services You can Offer:

*Why you are joining P10K:
(1-2 short paragraphs maximum)

Other Notes:

Attach a headshot photo
(W 125pixels - H 150 pixels) :

The P10K Force intends to occupy Palestine until Israel?s illegal occupation is over, therefore we must maintain our presence over the long term. Please tell us your ideal arrival and departure date with the understanding that deployment to Palestine will not begin until registrations are complete.

Arrival Date

<%=GenerateDateCombosRanged("From", 1)%>

Departure Date

<%=GenerateDateCombosRanged("To", 1)%>

3. Government Employment or Association
In addition to revealing any aliases we require all registrants to fully disclose any and all relationships you have with nation/state governments. Specifically, have you been or are you now employed by a nation/state? Have you ever been an independent contractor for a nation/state? Have you voluntarily taken an oath of allegiance to a nation/state or monarch? If you answer yes to any of these questions you are required to give the details below (if more space is required please Email the details to register@P10K.net).

<%=EncodeQuote(sGov)%>

4. Intelligence Employment or Association
Have you ever, or are you now, in the service of any nation/state intelligence service/agency in any way whatsoever? Specifically but not limited to, the American CIA/FBI/SS/NSA, British MI-5/MI-6/SIS, Australian ASIO/ASIS/DSD, Israeli Mossad/Shin Bet, Belgian SV, Dutch SE/SGRS/AIVD, French ADIV/DST/DGSE, Canadian CSIS/CSE, Danish PET/FE, German BND, Finnish Supo, Greek NIS, Italian SISDE/SISMI, New Zealand GCSB/SIS, Norwegian PST, Russian FSB, South African NIA, Spanish DESID/CNI, Swedish S?PO, Swiss SND, Turkish MIT/JITEM? If yes list the agency or agencies with whom you have worked or associated yourself (if more space is required please Email the details to register@P10K.net).

If you fail to reveal the truth with regard to this last question you have committed fraud and your name and photograph will be aggressively published with every detail of the access you had within the P10K action along with all other information that would be useful to exposing you as a fraudster.

5. Military Service
Have you ever, or are you now, in the service of any nation/state military in any way whatsoever? If yes list any and all service you have rendered with date(s) that all such service was terminated if applicable (if more space is required please Email the details to register@P10K.net).

6. Secret Societies
Are you a member of any secret society (such as George W. Bush?s & John Kerry?s membership with the Skull & Bones Society)? If yes list any and all secret societies that you have been a member of at anytime in your life? In addition, list any and all secret societies that you have had any association with whatsoever and in what capacity (if more space is required please Email the details to register@P10K.net).

7. Additional Relevant Information
Is there any other information about you that you have not disclosed elsewhere on this form that could reasonably be said to compromise the aims, principles and/or mission of P10K in any way? If so, please disclose it below (if more space is required please Email the details to register@P10K.net).

8. Affirmation
Through this registration form I (named above), affirm that I have fully understood all questions on this registration form and that I have been truthful in all information that I have submitted. I further acknowledge that my participation within the P10K Action relies on the truthfulness of my registration form and that I will be removed and potentially publicly exposed if I have lied in anyway whatsoever on this form.
I reject any and all forms of violence as a P10K Force participant and hereby declare that I will under no circumstances short of absolute self defence resort to any form of violence. Yes :

9. P10K Media Clause
I agree to the P10K Media Interview Clause that obligates me to obtain a completed ?P10K Force Media Contract? before conducting any interviews while participating in the P10K Force.
Yes :

10. P10K Non-Violent Democratic Demonstration Clause
I legally commit to the P10K Non-Violent Democratic Demonstration Clause.
Yes :

Today's Date : <%= Date() %>