<%@ LANGUAGE=VBScript LCID=1033 %>

<%
'*********************************************************
' @ Directives
'
' LCID
'    English - United States
'*********************************************************

'*********************************************************
' Purpose:
' Security Requirements
'*********************************************************

Option Explicit

Response.ContentType = "application/x"

' For IIS 5.0 and later, the default value is True.
Response.Buffer = True

'*********************************************************
' If this page generates custom HTML for every request,
' you won't improve performace by setting CacheControl to
' public. The default is Private, which means that only
' private caches may cache this page - proxy servers won't
' cache it.
'*********************************************************

'Response.CacheControl = "Public"

' Assure that both expression are numeric, because how
' expressions are compared, depends on their underlying
' subtype.
Function CheckRange(Value, Min, Max)
   CheckRange = True : If (Value < Min) Or (Value > Max) Then CheckRange = False
End Function

Dim lngContentID
Dim dictCountry
Dim dictTypeOfBsns

On Error Resume Next

lngContentID = CLng(Request.QueryString("content_id"))

If Err.Number <> 0 Then lngContentID = -1

On Error GoTo 0

'*********************************************************
' The CLng function rounds the fractional part or a
' number. It returns 0 if expression is Empty.
'*********************************************************

If IsNumeric(lngContentID) = False Then lngContentID = -1
%>

<%
'*********************************************************
' Don't use the VBScript functions CreateObject and
' GetObject in server-side scripts. Use
' Server.CreateObject instead so that ASP can track the
' object instance.
'*********************************************************

Set dictCountry = Server.CreateObject("Scripting.Dictionary")
' Sets the comparison mode for comparing string keys in a
' Dictionary object.
'dictCountry = vbBinaryCompare

With dictCountry
   .Add "4", "AFGHANISTAN"
   .Add "8", "ALBANIA"
   .Add "12", "ALGERIA"
   .Add "16", "AMERICAN SAMOA"
   .Add "20", "ANDORRA"
   .Add "24", "ANGOLA"
   .Add "660", "ANGUILLA"
   .Add "10", "ANTARCTICA"
   .Add "28", "ANTIGUA AND BARBUDA"
   .Add "32", "ARGENTINA"
   .Add "51", "ARMENIA"
   .Add "533", "ARUBA"
   .Add "36", "AUSTRALIA"
   .Add "40", "AUSTRIA"
   .Add "31", "AZERBAIJAN"
   .Add "44", "BAHAMAS"
   .Add "48", "BAHRAIN"
   .Add "50", "BANGLADESH"
   .Add "52", "BARBADOS"
   .Add "112", "BELARUS"
   .Add "56", "BELGIUM"
   .Add "84", "BELIZE"
   .Add "204", "BENIN"
   .Add "60", "BERMUDA"
   .Add "64", "BHUTAN"
   .Add "68", "BOLIVIA"
   .Add "70", "BOSNIA AND HERZEGOVINA"
   .Add "72", "BOTSWANA"
   .Add "74", "BOUVET ISLAND"
   .Add "76", "BRAZIL"
   .Add "86", "BRITISH INDIAN OCEAN TERRITORY"
   .Add "96", "BRUNEI DARUSSALAM"
   .Add "100", "BULGARIA"
   .Add "854", "BURKINA FASO"
   .Add "108", "BURUNDI"
   .Add "116", "CAMBODIA"
   .Add "120", "CAMEROON"
   .Add "124", "CANADA"
   .Add "132", "CAPE VERDE"
   .Add "136", "CAYMAN ISLANDS"
   .Add "140", "CENTRAL AFRICAN REPUBLIC"
   .Add "148", "CHAD"
   .Add "152", "CHILE"
   .Add "156", "CHINA"
   .Add "162", "CHRISTMAS ISLAND"
   .Add "166", "COCOS (KEELING) ISLANDS"
   .Add "170", "COLOMBIA"
   .Add "174", "COMOROS"
   .Add "178", "CONGO"
   .Add "180", "CONGO, THE DEMOCRATIC REPUBLIC OF THE"
   .Add "184", "COOK ISLANDS"
   .Add "188", "COSTA RICA"
   .Add "384", "COTE D'IVOIRE"
   .Add "191", "CROATIA"
   .Add "192", "CUBA"
   .Add "196", "CYPRUS"
   .Add "203", "CZECH REPUBLIC"
   .Add "208", "DENMARK"
   .Add "262", "DJIBOUTI"
   .Add "212", "DOMINICA"
   .Add "214", "DOMINICAN REPUBLIC"
   .Add "626", "EAST TIMOR"
   .Add "218", "ECUADOR"
   .Add "818", "EGYPT"
   .Add "222", "EL SALVADOR"
   .Add "226", "EQUATORIAL GUINEA"
   .Add "232", "ERITREA"
   .Add "233", "ESTONIA"
   .Add "231", "ETHIOPIA"
   .Add "238", "FALKLAND ISLANDS (MALVINAS)"
   .Add "234", "FAROE ISLANDS"
   .Add "242", "FIJI"
   .Add "246", "FINLAND"
   .Add "250", "FRANCE"
   .Add "249", "FRANCE, METROPOLITAN"
   .Add "254", "FRENCH GUIANA"
   .Add "258", "FRENCH POLYNESIA"
   .Add "260", "FRENCH SOUTHERN TERRITORIES"
   .Add "266", "GABON"
   .Add "270", "GAMBIA"
   .Add "268", "GEORGIA"
   .Add "276", "GERMANY"
   .Add "288", "GHANA"
   .Add "292", "GIBRALTAR"
   .Add "300", "GREECE"
   .Add "304", "GREENLAND"
   .Add "308", "GRENADA"
   .Add "312", "GUADELOUPE"
   .Add "316", "GUAM"
   .Add "320", "GUATEMALA"
   .Add "324", "GUINEA"
   .Add "624", "GUINEA-BISSAU"
   .Add "328", "GUYANA"
   .Add "332", "HAITI"
   .Add "334", "HEARD AND MC DONALD ISLANDS"
   .Add "336", "HOLY SEE (VATICAN CITY STATE)"
   .Add "340", "HONDURAS"
   .Add "344", "HONG KONG"
   .Add "348", "HUNGARY"
   .Add "352", "ICELAND"
   .Add "356", "INDIA"
   .Add "360", "INDONESIA"
   .Add "364", "IRAN (ISLAMIC REPUBLIC OF)"
   .Add "368", "IRAQ "
   .Add "372", "IRELAND"
   .Add "376", "ISRAEL"
   .Add "380", "ITALY"
   .Add "388", "JAMAICA"
   .Add "392", "JAPAN"
   .Add "400", "JORDAN"
   .Add "398", "KAZAKHSTAN"
   .Add "404", "KENYA"
   .Add "296", "KIRIBATI"
   .Add "408", "KOREA, DEMOCRATIC PEOPLE'S REPUBLIC OF"
   .Add "410", "KOREA, REPUBLIC OF"
   .Add "414", "KUWAIT"
   .Add "417", "KYRGYZSTAN"
   .Add "418", "LAO PEOPLE'S DEMOCRATIC REPUBLIC"
   .Add "428", "LATVIA"
   .Add "422", "LEBANON"
   .Add "426", "LESOTHO"
   .Add "430", "LIBERIA"
   .Add "434", "LIBYAN ARAB JAMAHIRIYA"
   .Add "438", "LIECHTENSTEIN"
   .Add "440", "LITHUANIA"
   .Add "442", "LUXEMBOURG"
   .Add "446", "MACAU"
   .Add "807", "MACEDONIA, THE FORMER YUGOSLAV REPUBLIC OF"
   .Add "450", "MADAGASCAR"
   .Add "454", "MALAWI"
   .Add "458", "MALAYSIA"
   .Add "462", "MALDIVES"
   .Add "466", "MALI"
   .Add "470", "MALTA"
   .Add "584", "MARSHALL ISLANDS"
   .Add "474", "MARTINIQUE"
   .Add "478", "MAURITANIA"
   .Add "480", "MAURITIUS"
   .Add "175", "MAYOTTE"
   .Add "484", "MEXICO"
   .Add "583", "MICRONESIA, FEDERATED STATES OF"
   .Add "498", "MOLDOVA, REPUBLIC OF"
   .Add "492", "MONACO"
   .Add "496", "MONGOLIA"
   .Add "500", "MONTSERRAT"
   .Add "504", "MOROCCO"
   .Add "508", "MOZAMBIQUE"
   .Add "104", "MYANMAR"
   .Add "516", "NAMIBIA"
   .Add "520", "NAURU"
   .Add "524", "NEPAL"
   .Add "528", "NETHERLANDS"
   .Add "530", "NETHERLANDS ANTILLES"
   .Add "540", "NEW CALEDONIA"
   .Add "554", "NEW ZEALAND"
   .Add "558", "NICARAGUA"
   .Add "562", "NIGER"
   .Add "566", "NIGERIA"
   .Add "570", "NIUE"
   .Add "574", "NORFOLK ISLAND"
   .Add "580", "NORTHERN MARIANA ISLANDS"
   .Add "578", "NORWAY"
   .Add "512", "OMAN"
   .Add "586", "PAKISTAN"
   .Add "585", "PALAU"
   .Add "591", "PANAMA"
   .Add "598", "PAPUA NEW GUINEA"
   .Add "600", "PARAGUAY"
   .Add "604", "PERU"
   .Add "608", "PHILIPPINES"
   .Add "612", "PITCAIRN"
   .Add "616", "POLAND"
   .Add "620", "PORTUGAL"
   .Add "630", "PUERTO RICO"
   .Add "634", "QATAR"
   .Add "638", "REUNION"
   .Add "642", "ROMANIA"
   .Add "643", "RUSSIAN FEDERATION"
   .Add "646", "RWANDA"
   .Add "659", "SAINT KITTS AND NEVIS"
   .Add "662", "SAINT LUCIA"
   .Add "670", "SAINT VINCENT AND THE GRENADINES"
   .Add "882", "SAMOA"
   .Add "674", "SAN MARINO"
   .Add "678", "SAO TOME AND PRINCIPE"
   .Add "682", "SAUDI ARABIA"
   .Add "686", "SENEGAL"
   .Add "690", "SEYCHELLES"
   .Add "694", "SIERRA LEONE"
   .Add "702", "SINGAPORE"
   .Add "703", "SLOVAKIA (Slovak Republic)"
   .Add "705", "SLOVENIA"
   .Add "90", "SOLOMON ISLANDS"
   .Add "706", "SOMALIA"
   .Add "710", "SOUTH AFRICA"
   .Add "239", "SOUTH GEORGIA AND THE SOUTH SANDWICH ISLANDS"
   .Add "724", "SPAIN"
   .Add "144", "SRI LANKA"
   .Add "654", "ST. HELENA"
   .Add "666", "ST. PIERRE AND MIQUELON"
   .Add "736", "SUDAN"
   .Add "740", "SURINAME"
   .Add "744", "SVALBARD AND JAN MAYEN ISLANDS"
   .Add "748", "SWAZILAND"
   .Add "752", "SWEDEN"
   .Add "756", "SWITZERLAND"
   .Add "760", "SYRIAN ARAB REPUBLIC"
   .Add "158", "TAIWAN, PROVINCE OF CHINA"
   .Add "762", "TAJIKISTAN"
   .Add "834", "TANZANIA, UNITED REPUBLIC OF"
   .Add "764", "THAILAND"
   .Add "768", "TOGO"
   .Add "772", "TOKELAU"
   .Add "776", "TONGA"
   .Add "780", "TRINIDAD AND TOBAGO"
   .Add "788", "TUNISIA"
   .Add "792", "TURKEY"
   .Add "795", "TURKMENISTAN"
   .Add "796", "TURKS AND CAICOS ISLANDS"
   .Add "798", "TUVALU"
   .Add "800", "UGANDA"
   .Add "804", "UKRAINE"
   .Add "784", "UNITED ARAB EMIRATES"
   .Add "826", "UNITED KINGDOM"
   .Add "840", "UNITED STATES"
   .Add "581", "UNITED STATES MINOR OUTLYING ISLANDS"
   .Add "858", "URUGUAY"
   .Add "860", "UZBEKISTAN"
   .Add "548", "VANUATU"
   .Add "862", "VENEZUELA"
   .Add "704", "VIET NAM"
   .Add "92", "VIRGIN ISLANDS (BRITISH)"
   .Add "850", "VIRGIN ISLANDS (U.S.)"
   .Add "876", "WALLIS AND FUTUNA ISLANDS"
   .Add "732", "WESTERN SAHARA"
   .Add "887", "YEMEN"
   .Add "891", "YUGOSLAVIA"
   .Add "894", "ZAMBIA"
   .Add "716", "ZIMBABWE"
End With

Set dictTypeOfBsns = Server.CreateObject("Scripting.Dictionary")

With dictTypeOfBsns
   .Add "1", "Government"
   .Add "2", "Individual"
   .Add "3", "Media"
   .Add "4", "Military"
   .Add "5", "Non-profit / NGO"
   .Add "6", "OHR"
   .Add "7", "Other"
   .Add "8", "Other international organizations"
   .Add "9", "Private sector"
   .Add "10", "Research and academic"
   .Add "11", "Student"
End With
%>

<!-- #INCLUDE VIRTUAL="/includes/modReportError.inc" -->

<%
' ADO Objects
Dim conn
Dim cmd
Dim rs

Set conn = Server.CreateObject("ADODB.Connection")

'*********************************************************
' By default, CursorLocation property is set to the
' server-side cursor library.
'*********************************************************

' This setting doesn't take effect until the next time you
' call BeginTrans method.
'conn.IsolationLevel
' Because we are only going to read data, set the Mode
' property to adModeRead.
conn.Mode = adModeReadWrite
' Dynamic properties defined by the underlying data
' provider (SQLOLEDB).
'conn.Properties

' Opens the connection synchronously.
conn.Open Application("CONN_STRING")

' Cancels execution of an asynchronous method call (Open
' Method).
'conn.Cancel
'conn.Error

'*********************************************************
' Use the Command object to execute the stored procedure.
'*********************************************************

Set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = conn

'*********************************************************
' p_GetDocument
'
' None of the stored procedure arguments have a default
' value.
'
' doc_header_id
'
' Result Set
'
' doc_header_id
' content_category_id
' author_id
' title
' published
' exp_date
' public
' keywords
' description
' publisher
' language_id
' os_filename
' content
' dir
' dir_desc
' par_desc
'
' For more information, see the description of the columns
' in the modFile2DB.inc script.
'*********************************************************

cmd.CommandText = "p_ShowVacancy"
cmd.CommandType = adCmdStoredProc
' Pass parameter names to the provider.
'cmd.NamedParameters = True

'*********************************************************
' Whenever possible, avoid calling the Refresh method of
' the Parameters collection because this causes the client
' to make unnecessary trips to the server to retrieve
' information.
'*********************************************************

'*********************************************************
' Included in the parameters is the stored procedure's
' return value.
'*********************************************************

With cmd
   .Parameters.Append .CreateParameter("@inc_vac_appl_id", adInteger, , , lngContentID)
End With

' Handle any run-time errors that the CreateParameter
' method might generate.
If Err.Number <> 0 Then ReportError(conn)

Set rs = Server.CreateObject("ADODB.Recordset")
' The default value is 1.
'rs.CacheSize = 1

'*********************************************************
' Open Method (ADO Recordset)
'
' CursorType
'    The cursor type is set to adOpenKeyset because we
'    have a large result set and need to select just one
'    row.
' LockType
'    The default value is adLockReadOnly. The table data
'    can't be altered.
' Options
'    Set the Options parameter only if the Source argument
'    represents something other than a Command object.
'*********************************************************

'*********************************************************
' I can't change the CursorType.
'
' For more information, see the following KB article:
'
' Q188857 PRB: Use Open Method to Change CursorType and
' LockType
'*********************************************************

rs.Open cmd ', , adOpenStatic
%>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"
   "http://www.w3.org/TR/REC-html40/loose.dtd">
<!-- Document area is enclosed in braces ({}). -->
<!-- {\lang} -->
<HTML lang="en">
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<META name="Author" content="Adnan Selimovic">
<META name="Copyright" content="Copyright &copy; 2001 QSS Ltd., All rights reserved.">
<TITLE>Employment Application Form</TITLE>
<META http-equiv="Content-Script-Type" content="text/javascript">
<META http-equiv="Content-Style-Type" content="text/css">
<!-- Update document styles based on template. -->
<!-- {\linkstyles} -->
<LINK href="/style/print-tmpl.css" title="Template File" rel="stylesheet" type="text/css">
<STYLE type="text/css">
.label { font-weight: bold }

.frm-ctrls-cont, .YAC {
	border-collapse: collapse;
	/* border: 2px solid black */
}

.frm-ctrls-cont TD, .YAC TD { border: 1px solid black }

@page foo { display: none }
#toolbar { page: foo }
</STYLE>
<SCRIPT type="text/javascript">
<!-- to hide scripts contents from old browsers
// define global variables
var images = document.images;
// end hiding contents from old browser -->
</SCRIPT>
<SCRIPT type="text/javascript" src="/js/form-functions.js">
</SCRIPT>
<SCRIPT type="text/javascript">
<!-- to hide scripts contents from old browsers
var imgBack2Top = new Image();
var imgBack2TopHover = new Image();

imgBack2Top.src = "/images/back2top-txt.gif";
imgBack2TopHover.src = "/images/back2top-txt-hover.gif";
// end hiding contents from old browser -->
</SCRIPT>
</HEAD>
<!-- This is for NS 4.04 (and higher) -->
<BODY marginwidth="0" marginheight="0">
<NOSCRIPT>
<UL>
<LI>The user agent is configured not to evaluate scripts.
<LI>The user agent doesn't support a script language invoked by a SCRIPT element earlier in the document.
</UL>
</NOSCRIPT>
<DIV align="center">
<!-- This is six-row, two-column table. -->
<TABLE style="margin-top: 10px" title="" width="620" border="0" cellspacing="0" cellpadding="0">
<!-- row1 -->
<TR>
<!-- column1 -->
<TD width="415"><SPAN class="f1" style="font-size: 17pt">Office of the High Representative</SPAN></TD>
<!-- column2 -->
<TD class="f1" width="205" align="right"><SPAN style="font-size: 11pt; font-weight: bold">Employment Application Form</SPAN></TD>
</TR>
<!-- row2 -->
<TR><TD colspan="2"><HR noshade size="1"></TR>
<!-- row3 -->
<!-- {\author} --> <!-- {\creatim} -->
<TR><TD class="f1" colspan="2" align="right"><% If rs.EOF = False Then Response.Write("<SPAN style=""color: #000; text-transform: uppercase"">" & rs.Fields.Item("PD_NTC_NUMB_SELECT").Value & " | </SPAN>") End If %><SPAN id="creatim"><% If rs.EOF = False Then Response.Write(FormatDateTime(rs.Fields.Item("ADD_DATE").Value, vbLongDate)) %></SPAN></TR>
<!-- row4 -->
<TR>
<TD class="f1" colspan="2">
<P>&nbsp;</P>
<!-- {\dirdesc} -->
<SPAN style="font-size: smaller; font-weight: bold"></SPAN>
<!-- Title of the document -->
<!-- {\title} -->
<DIV id="title"></DIV>
</TD>
</TR>
<!-- row5 -->
<TR>
<TD colspan="2" valign="top">
<!-- Actual document text -->
<FORM title="Application Form"
      action=""
      method="POST"
      name="app-form"
      onsubmit=""
      onreset="">
<!-- Personal data -->
<DIV id="pers-dat" class="" title="Personal Data">
<TABLE class="frm-ctrls-cont" border="0" width="610" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD colspan="6">1. PERSONAL DATA</TR>
<TR valign="top">
<TD colspan="2" height="40">
<DIV class="label">* Family name(surname):</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_last_txt").Value) %>
</TD>
<TD colspan="2">
<DIV class="label">* First / other names:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_first_txt").Value) : If rs.Fields.Item("pd_middle_txt").Value <> "" Then Response.Write(Space(1) & "/" & Space(1) & rs.Fields.Item("pd_middle_txt").Value) %>
</TD>
<TD colspan="2">
<DIV class="label">Maiden name if any:</DIV>
</TD>
</TR>
<TR valign="top">
<TD height="40">
<DIV class="label">* Dob:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_brth_dy_txt").Value) %>
</TD>
<TD>
<DIV class="label">* Pob:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_plc_of_brth_txt").Value) %>
</TD>
<TD colspan="2">
<DIV class="label">Present nationality:</DIV>
<% If rs.EOF = False Then If dictCountry.Exists(rs.Fields.Item("pd_pres_nat_select").Value) Then Response.Write(dictCountry.Item(rs.Fields.Item("pd_pres_nat_select").Value)) End If %>
</TD>
<TD colspan="2">
<DIV class="label">* Nationality at birth:</DIV>
<% If rs.EOF = False Then If dictCountry.Exists(rs.Fields.Item("pd_nat_at_brth_select").Value) Then Response.Write(dictCountry.Item(rs.Fields.Item("pd_nat_at_brth_select").Value)) End If %>
</TD>
</TR>
<TR valign="top">
<TD style="border-bottom: none" colspan="3">
<DIV class="label">Address at work:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("adr_work_txtarea").Value) %>
</TD>
<TD colspan="3" height="75">
<DIV class="label">* Permanent address:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("adr_home_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD style="border-right: none"><SPAN class="label">Tel:</SPAN></TD>
<TD style="border-left: none" colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_work_txt").Value) %></TD>
<TD style="border-right: none"><SPAN class="label">* Tel:</SPAN></TD>
<TD style="border-left: none" colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_home_txt").Value) %></TD>
</TR>
<TR>
<TD style="border-right: none"><SPAN class="label">Fax:</SPAN></TD>
<TD style="border-left: none" colspan="2"></TD>
<TD style="border-right: none"><SPAN class="label">Fax:</SPAN></TD>
<TD style="border-left: none" colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_fax_txt").Value) %></TD>
</TR>
<TR>
<TD style="border-right: none"><SPAN class="label">E-mail:</SPAN></TD>
<TD style="border-left: none" colspan="2"></TD>
<TD style="border-right: none"><SPAN class="label">E-mail:</SPAN></TD>
<TD style="border-left: none" colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("adr_email_txt").Value) %></TD>
</TR>
<TR valign="top">
<TD style="border-bottom: none" colspan="3"><SPAN class="label">* Have you taken up legal permanent residence status in your country other than that of your nationality?</SPAN></TD>
<TD style="border-bottom: none" colspan="3">
<INPUT type="radio" name="pd-perm-res-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("pd_perm_res_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="14"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="pd-perm-res-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("pd_perm_res_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="15"> <SPAN class="label">No (which?):</SPAN><BR>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_perm_res_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
</TR>
<TR valign="top">
<TD style="border-bottom: none" colspan="3"><SPAN class="label">* Have you taken any legal steps towards changing your present nationality?</SPAN></TD>
<TD style="border-bottom: none" colspan="3">
<INPUT type="radio" name="pd-chng-pres-nat-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("pd_chng_pres_nat_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="17"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="pd-chng-pres-nat-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("pd_chng_pres_nat_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="18"> <SPAN class="label">No (if yes, please explain):</SPAN><BR>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_chng_pres_nat_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
</TR>
<TR valign="top">
<TD style="border-bottom: none" colspan="3"><SPAN class="label">* Are any of your relatives employed by a public international organization?</SPAN></TD>
<TD style="border-bottom: none" colspan="3">
<INPUT type="radio" name="pd-rltvs-emplyd-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("pd_rltvs_emplyd_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="20"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="pd-rltvs-emplyd-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("pd_rltvs_emplyd_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="21"> <SPAN class="label">No (please specify below):</SPAN>
</TD>
</TR>
<TR>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
<TD style="border-top: none" colspan="3" height="4">&nbsp;</TD>
</TR>
<TR>
<TD colspan="2"><SPAN class="label">Name:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Relationship:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Name of intl. org.:</SPAN></TD>
</TR>
<TR valign="top">
<TD colspan="2" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_name1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_rltnshp1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_intl_org1_txt").Value) %></TD>
</TR>
<TR valign="top">
<TD colspan="2" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_name2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_rltnshp2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd_rel_emplyd_intl_org2_txt").Value) %></TD>
</TR>
<TR><TD colspan="6"><SPAN class="label">* Would you accept employment for less than six months?</SPAN> <INPUT type="radio" name="pd-employ-lt-6mnths-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("pd_employ_lt_6mnths_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="29"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="pd-employ-lt-6mnths-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("pd_employ_lt_6mnths_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="30"> <SPAN class="label">No</SPAN></TR>
<TR>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of personal data -->
<!-- Education -->
<DIV id="edu" class="" style="page-break-before: always" title="Education">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD colspan="6">2. EDUCATION</TR>
<TR><TD style="border-bottom: none" colspan="6">Give full details in chronological order. Give the exact name of the institution and title of degrees/certificates in the orignal language.</TR>
<!-- University or equivalent -->
<TR><TD colspan="6" height="30" valign="top"><SPAN class="label">A. University or equivalent</SPAN></TR>
<TR valign="bottom">
<TD><SPAN class="label">From:</SPAN></TD>
<TD><SPAN class="label">To:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Institution name:</SPAN></TD>
<TD><SPAN class="label">Certificates, degrees obtained:</SPAN></TD>
<TD><SPAN class="label">Main field(s) or subject(s) of study:</SPAN></TD>
</TR>
<TR valign="top">
<TD style="border-bottom: none" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_from1_txt").Value) %></TD>
<TD style="border-bottom: none"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_to1_txt").Value) %></TD>
<TD style="border-bottom: none" colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_name1_txt").Value) %></TD>
<TD style="border-bottom: none"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_certdegr1_txtarea").Value) %></TD>
<TD style="border-bottom: none"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_flds1_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_from2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_to2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_name2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_certdegr2_txtarea").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_uni_flds2_txtarea").Value) %></TD>
</TR>
<!-- End of university or equivalent -->
<!-- Courses and postgraduate studies -->
<TR valign="top"><TD colspan="6" height="30"><SPAN class="label">B. Courses and postgraduate studies in your profesional or related field</SPAN></TR>
<TR valign="bottom">
<TD><SPAN class="label">From:</SPAN></TD>
<TD><SPAN class="label">To:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Institution name:</SPAN></TD>
<TD><SPAN class="label">Certificates, degrees obtained:</SPAN></TD>
<TD><SPAN class="label">Main field(s) or subject(s) of study:</SPAN></TD>
</TR>
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_from1_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_to1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_name1_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_certdegr1_txtarea").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_flds1_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_from2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_to2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_name2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_certdegr2_txtarea").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_postgrad_flds2_txtarea").Value) %></TD>
</TR>
<!-- End of courses and postgraduate studies -->
<!-- Schools -->
<TR valign="top"><TD colspan="6" height="30"><SPAN class="label">C. Secondary school</SPAN></TR>
<TR valign="bottom">
<TD><SPAN class="label">From:</SPAN></TD>
<TD><SPAN class="label">To:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Institution name:</SPAN></TD>
<TD><SPAN class="label">Certificates, degrees obtained:</SPAN></TD>
<TD><SPAN class="label">Main field(s) or subject(s) of study:</SPAN></TD>
</TR>
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_from1_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_to1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_name1_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_certdegr1_txtarea").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_flds1_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_from2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_to2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_name2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_certdegr2_txtarea").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_schl_flds2_txtarea").Value) %></TD>
</TR>
<!-- End of schools -->
<TR>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of education -->
<!-- Language knowledge -->
<DIV id="lang" class="" title="Language Knowledge">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="0">
<TR style="font-weight: bold"><TD colspan="6" height="24"><DIV style="margin: 2px">3. LANGUAGE KNOWLEDGE</DIV></TR>
<TR><TD style="border-bottom: none" colspan="6"><DIV style="margin: 2px">For languages other than mother tongue, enter appropriate letter from coding below to indicate the level of your knowledge.</DIV></TR>
<TR><TD style="border-top: none" colspan="6" height="4">&nbsp;</TR>
<TR>
<TD colspan="4" valign="top">
<!-- YAC -->
<TABLE class="YAC" width="100%" border="0" cellspacing="0" cellpadding="2">
<TR>
<TD style="border-top: none; border-left: none"><SPAN class="label">Language:</SPAN></TD>
<TD style="border-top: none"><SPAN class="label">Understand:</SPAN></TD>
<TD style="border-top: none"><SPAN class="label">Speak:</SPAN></TD>
<TD style="border-top: none"><SPAN class="label">Read:</SPAN></TD>
<TD style="border-top: none; border-right: none"><SPAN class="label">Write:</SPAN></TD>
</TR>
<TR>
<TD style="border-left: none" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("lang1_txt").Value) %></TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langund1_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langspk1_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langr1_select").Value) %>
</TD>
<TD style="border-right: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langw1_select").Value) %>
</TD>
</TR>
<TR>
<TD style="border-left: none" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("lang2_txt").Value) %></TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langund2_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langspk2_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langr2_select").Value) %>
</TD>
<TD style="border-right: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langw2_select").Value) %>
</TD>
</TR>
<TR>
<TD style="border-left: none" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("lang3_txt").Value) %></TD>
<TD style="border-left: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langund3_select").Value) %>
</TD>
<TD style="border-left: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langspk3_select").Value) %>
</TD>
<TD style="border-left: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langr3_select").Value) %>
</TD>
<TD style="border-right: none; border-left: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langw3_select").Value) %>
</TD>
</TR>
<TR>
<TD style="border-top: none; border-left: none" height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("lang4_txt").Value) %></TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langund4_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langspk4_select").Value) %>
</TD>
<TD>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langr4_select").Value) %>
</TD>
<TD style="border-right: none">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("langw4_select").Value) %>
</TD>
</TR>
</TABLE>
<!-- End of YAC -->
</TD>
<TD class="f1" colspan="2">
<DIV style="margin: 2px; font-size: x-small">
<B>CODE:</B><BR>
<B>A - Professional Fluency:</B> Able to work independently in the language, including the preparation or written reports and papers. Able to participate actively in and/or lead meetings conducted in the language.<BR>
<BR>
<B>B - Working Knowledge:</B> Able to follow work-related discussions and participate in them, although command of grammar and syntax may be uncertain. Able to use the telephone, to read and understand work-related documents, and to draft basic correspondence.<BR>
<BR>
<B>C - Limited Knowledge:</B> Able to understand simple conversations written texts.
</DIV>
</TD>
</TR>
<TR>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of language knowledge -->
<!-- Computer skills -->
<DIV id="comp-sklls" class="" style="page-break-before: always" title="Computer Skills">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD colspan="6">4. COMPUTER SKILLS</TR>
<TR><TD colspan="6">Please indicate name of software you have been using.</TR>
<TR valign="top">
<TD style="border-style: none none none solid" width="100" align="right">&nbsp;</TD>
<TD style="border-left: none" colspan="5"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("cs_txt_proc_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD style="border-style: none none none solid" width="100" align="right">&nbsp;</TD>
<TD style="border-left: none" colspan="5"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("cs_sprd_sheets_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD style="border-style: none none none solid" width="100" align="right">&nbsp;</TD>
<TD style="border-left: none" colspan="5"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("cs_db_txtarea").Value) %></TD>
</TR>
<TR valign="top">
<TD style="border-style: none none none solid" width="100" align="right">&nbsp;</TD>
<TD style="border-left: none" colspan="5"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("cs_other_txtarea").Value) %></TD>
</TR>
<TR>
<TD style="border-style: solid none none none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of computer skills -->

<DIV id="" class="" title="">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR><TD colspan="6"><SPAN class="label">5. List professional societies and activities in civic, public or international affairs of which you are a member:</SPAN></TR>
<TR><TD colspan="6" height="55" valign="top"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_prof_soc_txtarea").Value) %></TR>
<TR><TD colspan="6"><SPAN class="label">6. List any significant publications you have written, if applicable:</SPAN></TR>
<TR><TD colspan="6" height="55" valign="top"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("edu_publ_txtarea").Value) %></TR>
<TR>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>

<!-- Employment record -->
<DIV id="empl-rec" class="" title="Employment Record">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD colspan="6">7. EMPLOYMENT RECORD <INPUT type="checkbox" name="er-pres-post-chk" value="" <% If rs.EOF = False Then If Not IsNull(rs.Fields.Item("er_pres_post_chk")) Then Response.Write("checked") End If %> disabled tabindex="0"> Present post</TR>
<TR><TD colspan="6">Starting with your present or most recent post, list positions held in reverse chronological order. For each position held, you must complete all the fields marked with * in order to submit your application.</TR>
<!-- Job 1 -->
<TR>
<TD>
<DIV class="label">* From:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_start_date1_txt").Value) %>
</TD>
<TD>&nbsp;</TD>
<TD>
<DIV class="label">* To:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_end_date1_txt").Value) %>
</TD>
<TD colspan="3" valign="top"><SPAN class="label">Desciption of your duties and responsibilities:</SPAN></TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Exact title of your post:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_post_title1_txt").Value) %>
</TD>
<TD colspan="3" rowspan="7" valign="top">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_desc1_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Type of business:</DIV>
<% If rs.EOF = False Then If dictTypeOfBsns.Exists(rs.Fields.Item("er_type_of_bsns1_select").Value) Then Response.Write(dictTypeOfBsns.Item(rs.Fields.Item("er_type_of_bsns1_select").Value)) End If %>
</TD>
</TR>
<TR>
<TD colspan="3" height="75" valign="top">
<DIV class="label">* Name and address of employer:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_adr1_txtarea").Value) %>
</TD>
</TR>
<TR valign="top">
<TD height="40">
<DIV class="label">* Tel:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_tel1_txt").Value) %>
</TD>
<TD>
<DIV class="label">Fax:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_fax1_txt").Value) %>
</TD>
<TD>
<DIV class="label">E-mail:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_email1_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Name and title of supervisor:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_supervsr1_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="60" valign="top">
<DIV class="label">Number and kind of employees supervised by you, if any:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_supervsd1_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Reason for leaving:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_rsn1_txt").Value) %>
</TD>
</TR>
<TR><TD colspan="6"><SPAN class="label">* Do you have any objections to our making enquiries with your present employer (if presently employed)?</SPAN> <INPUT type="radio" name="er-enq-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("er_enq_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="er-enq-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("er_enq_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">No</SPAN></TR>
<TR><TD style="border: none" colspan="6">&nbsp;</TR>
<!-- End of job 1 -->
<!-- Job 2 -->
<TR style="page-break-before: always">
<TD><SPAN class="label">* From: <% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_start_date2_txt").Value) %></SPAN></TD>
<TD>&nbsp;</TD>
<TD><SPAN class="label">* To: <% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_end_date2_txt").Value) %></SPAN></TD>
<TD colspan="3" valign="top"><SPAN class="label">Description of your duties and responsibilities:</SPAN></TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Exact title of your post:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_post_title2_txt").Value) %>
</TD>
<TD colspan="3" rowspan="7" valign="top">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_desc2_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Type of business:</DIV>
<% If rs.EOF = False Then If dictTypeOfBsns.Exists(rs.Fields.Item("er_type_of_bsns2_select").Value) Then Response.Write(dictTypeOfBsns.Item(rs.Fields.Item("er_type_of_bsns2_select").Value)) End If %>
</TD>
</TR>
<TR>
<TD colspan="3" height="75" valign="top">
<DIV class="label">* Name and address of employer:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_adr2_txtarea").Value) %>
</TD>
</TR>
<TR valign="top">
<TD height="40">
<DIV class="label">* Tel:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_tel2_txt").Value) %>
</TD>
<TD>
<DIV class="label">Fax:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_fax2_txt").Value) %>
</TD>
<TD>
<DIV class="label">E-mail:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_email2_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Name and title of supervisor:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_supervsr2_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="60" valign="top">
<DIV class="label">Number and kind of employees supervised by you, if any:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_supervsd2_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Reason for leaving:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_rsn2_txt").Value) %>
</TD>
</TR>
<TR><TD style="border: none" colspan="6">&nbsp;</TR>
<!-- End of job 2 -->
<!-- Job 3 -->
<TR>
<TD><SPAN class="label">* From: <% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_start_date3_txt").Value) %></SPAN></TD>
<TD>&nbsp;</TD>
<TD><SPAN class="label">* To: <% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_end_date3_txt").Value) %></SPAN></TD>
<TD colspan="3" valign="top"><SPAN class="label">Description of your duties and responsibilities:</SPAN></TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Exact title of your post:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_post_title3_txt").Value) %>
</TD>
<TD colspan="3" rowspan="7" valign="top">
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_desc3_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">* Type of business:</DIV>
<% If rs.EOF = False Then If dictTypeOfBsns.Exists(rs.Fields.Item("er_type_of_bsns3_select").Value) Then Response.Write(dictTypeOfBsns.Item(rs.Fields.Item("er_type_of_bsns3_select").Value)) End If %>
</TD>
</TR>
<TR>
<TD colspan="3" height="75" valign="top">
<DIV class="label">* Name and address of employer:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_adr3_txtarea").Value) %>
</TD>
</TR>
<TR valign="top">
<TD height="40">
<DIV class="label">* Tel:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_tel3_txt").Value) %>
</TD>
<TD>
<DIV class="label">Fax:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_fax3_txt").Value) %>
</TD>
<TD>
<DIV class="label">E-mail:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_email3_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Name and title of supervisor:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_supervsr3_txtarea").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="60" valign="top">
<DIV class="label">Number and kind of employees supervised by you, if any:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_empl_supervsd3_txt").Value) %>
</TD>
</TR>
<TR>
<TD colspan="3" height="40" valign="top">
<DIV class="label">Reason for leaving:</DIV>
<% If rs.EOF = False Then Response.Write(rs.Fields.Item("er_rsn3_txt").Value) %>
</TD>
</TR>
<TR>
<TD style="border-style: solid none none none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
<!-- End of job 3 -->
</TABLE>
</DIV>
<!-- End of employment record -->
<!-- References -->
<DIV id="refs" class="" style="page-break-before: always" title="References">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD colspan="6">8. REFERENCES</TR>
<TR><TD colspan="6">List three persons not related to you who are familiar with your character and qualifications. Do not repeat names of supervisors listed under Employment Record.</TR>
<TR>
<TD><SPAN class="label">Full name:</SPAN></TD>
<TD><SPAN class="label">Company:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Job title:</SPAN></TD>
<TD colspan="2"><SPAN class="label">Tel:</SPAN></TD>
</TR>
<!-- Person 1 -->
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_full_name1_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_company1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_job_title1_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_tel1_txt").Value) %></TD>
</TR>
<!-- End of person 1 -->
<!-- Person 2 -->
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_full_name2_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_company2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_job_title2_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_tel2_txt").Value) %></TD>
</TR>
<!-- End of person 2 -->
<!-- Person 3 -->
<TR valign="top">
<TD height="20"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_full_name3_txt").Value) %></TD>
<TD><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_company3_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_job_title3_txt").Value) %></TD>
<TD colspan="2"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("refs_tel3_txt").Value) %></TD>
</TR>
<!-- End of person 3 -->
<TR><TD colspan="6"><SPAN class="label">9. State any additional skills and relevant facts, which might help to evaluate your application:</SPAN></TR>
<TR><TD style="border-bottom: none" colspan="6" height="55" valign="top"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("pd3_txtarea").Value) %></TR>
<TR>
<TD style="border-style: none none solid solid" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none solid solid none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of references -->
<!-- Criminal record -->
<DIV id="crim-rec" class="" title="Criminal Record">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD style="border-top: none" colspan="6">10. CRIMINAL RECORD</TR>
<TR>
<TD colspan="5"><SPAN class="label">* Have you ever been arrested, indicted, or summoned into court as a defendant in a criminal proceeding, or convicted, fined or imprisoned for the violation of any law (excluding minor traffic violations)? If yes, give full particulars of each:</SPAN></TD>
<TD><INPUT type="radio" name="cr-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("cr_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="cr-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("cr_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">No</SPAN></TD>
</TR>
<TR>
<TD style="border-bottom: none" colspan="6" height="55" valign="top"><% If rs.EOF = False Then Response.Write(rs.Fields.Item("cr_txtarea").Value) %></TD>
</TR>
<TR>
<TD style="border-style: none none solid solid" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none none solid none" width="100">&nbsp;</TD>
<TD style="border-style: none solid solid none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of criminal record -->
<!-- Disclaimer -->
<DIV id="discl" class="" title="Disclaimer">
<TABLE class="frm-ctrls-cont" width="610" border="0" cellspacing="0" cellpadding="2">
<TR style="font-weight: bold"><TD style="border-top: none" colspan="6">11. DISCLAIMER</TR>
<!-- By default, this information is not available. -->
<TR>
<TD colspan="5"><SPAN class="label">* I certify that the statements made by me in answer to the foregoing questions are true, complete and correct to the best of my knowledge and belief. I understand that any misrepresentation or material mission made on this form or other document requested by the OHR renders a staff member of the OHR liable to termination or dismissal.</SPAN></TD>
<TD><INPUT type="radio" name="discl-rbtn" value="y" <% If rs.EOF = False Then If rs.Fields.Item("discl_rbtn") = "y" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">Yes</SPAN> <INPUT type="radio" name="discl-rbtn" value="n" <% If rs.EOF = False Then If rs.Fields.Item("discl_rbtn") = "n" Then Response.Write("checked") End If %> disabled tabindex="0"> <SPAN class="label">No</SPAN></TD>
</TR>
<TR>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
<TD style="border: none" width="100">&nbsp;</TD>
</TR>
</TABLE>
</DIV>
<!-- End of disclaimer -->
</FORM>
<P>&nbsp;</P>
</TD>
</TR>
<!-- #INCLUDE VIRTUAL="/includes/prnt-btm-bar.inc" -->
</TABLE>
<!-- End of six-row, two-column table. -->
</DIV>
<P>&nbsp;</P>
</BODY>
</HTML>

<%
' It also closes any active Recordset objects associated with
' with the connection.
If conn.State = adStateOpen Then conn.Close

Set rs = Nothing
Set cmd = Nothing
Set conn = Nothing

Set dictTypeOfBsns = Nothing
Set dictCountry = Nothing
%>