I am trying to add some code to shopcustomerform.asp to validate the shipping method against the shipping country if specified and otherwise the billing country.
I am hitting two issues
1) When I am trying to use the OR variable in the match it does not work (always retruns a false match) but a match without the OR does work.
2) After an initial error message I can continue and submit the order.
At the moment I have the code tagged on the end of the Sub ValidateCustomerFields function but I can't see where the check to see whether a shipping method has been selected is made which is where this should really go.
If strshipCountry<>"" then
If strCountry<>strshipCountry then
sError = sError & "The shipping and billing countries must be the same" & "<br>"
End If
If InStr(GetSess("Shipmethodtype"),"UK") Then
if strshipCountry<>"GB" Then
Serror=Serror & (strshipCountry) & " is not in the UK. Please choose a different shipping method." & "<br>"
Elseif strPostCode="000000" or strPostCode="00000" then
Serror=Serror & (strPostCode) & " is not a valid UK Postcode. For Ireland please specify Ireland as the country." & "<br>"
end if
ElseIf GetSess("Shipmethodtype")="Europe - EU Countries Next Day" Then
if strshipCountry="GB" then
Serror=Serror & "Please Choose a UK Shipping method." & "<br>"
End If
if strshipCountry<>"AT" or strshipCountry<>"BE" or strshipCountry<>"DK" or strshipCountry<>"FI" or strshipCountry<>"FR" or strshipCountry<>"DE" or strshipCountry<>"GR" or strshipCountry<>"IE" or strshipCountry<>"IT" or strshipCountry<>"LU" or strshipCountry<>"NL" or strshipCountry<>"PT" or strshipCountry<>"ES" or strshipCountry<>"SE" or strshipCountry<>"CY" or strshipCountry<>"CZ" or strshipCountry<>"EE" or strshipCountry<>"HU" or strshipCountry<>"LV" or strshipCountry<>"LT" or strshipCountry<>"MT" or strshipCountry<>"PL" or strshipCountry<>"SK" or strshipCountry<>"SI" then
Serror=Serror & (strshipCountry) & " is not in the EU. Please choose a different shipping method." & "<br>"
end if
ElseIf GetSess("Shipmethodtype")="Europe - NON EU Countries Next Day" Then
if strshipCountry<>"AL" or strshipCountry<>"AD" or strshipCountry<>"BY" or strshipCountry<>"BA" or strshipCountry<>"BG" or strshipCountry<>"HR" or strshipCountry<>"FO" or strshipCountry<>"GI" or strshipCountry<>"JE" or strshipCountry<>"IM" or strshipCountry<>"GG" or strshipCountry<>"VA" or strshipCountry<>"IS" or strshipCountry<>"LI" or strshipCountry<>"MK" or strshipCountry<>"MD" or strshipCountry<>"MC" or strshipCountry<>"NO" or strshipCountry<>"RO" or strshipCountry<>"RU" or strshipCountry<>"SJ" or strshipCountry<>"SM" or strshipCountry<>"ME" or strshipCountry<>"CH" then
Serror=Serror & (strshipCountry) & " is either in the EU or not in Europe. Please choose a different shipping method." & "<br>"
end if
ElseIf GetSess("Shipmethodtype")="N Ireland, Isle of Man, Scilly & Scottish Isles" Then
if strshipCountry="IE" then
Serror=Serror & "For Ireland please choose Europe - EU Countries." & "<br>"
Elseif strshipCountry<>"GB" or strshipCountry<>"IOM" then
Serror=Serror & (strshipCountry) & " is not in N Ireland, Isle of Man, Scilly or Scottish Isles. Please choose a different shipping method." & "<br>"
end if
End if
Else
If InStr(GetSess("Shipmethodtype"),"UK") Then
if strCountry<>"GB" Then
Serror=Serror & (strCountry) & " is not in the UK. Please choose a different shipping method." & "<br>"
Elseif strPostCode="000000" or strPostCode="00000" then
Serror=Serror & (strPostCode) & " is not a valid UK Postcode. For Ireland please specify Ireland as the country." & "<br>"
end if
ElseIf GetSess("Shipmethodtype")="Europe - EU Countries Next Day" Then
if strCountry="GB" then
Serror=Serror & "Please Choose a UK Shipping method." & "<br>"
ElseIf strCountry<>"AT" or strCountry<>"BE" or strCountry<>"DK" or strCountry<>"FI" or strCountry<>"FR" or strCountry<>"DE" or strCountry<>"GR" or strCountry<>"IE" or strCountry<>"IT" or strCountry<>"LU" or strCountry<>"NL" or strCountry<>"PT" or strCountry<>"ES" or strCountry<>"SE" or strCountry<>"CY" or strCountry<>"CZ" or strCountry<>"EE" or strCountry<>"HU" or strCountry<>"LV" or strCountry<>"LT" or strCountry<>"MT" or strCountry<>"PL" or strCountry<>"SK" or strCountry<>"SI" then
Serror=Serror & (strCountry) & " is not in the EU. Please choose a different shipping method." & "<br>"
End if
ElseIf GetSess("Shipmethodtype")="Europe - NON EU Countries Next Day" Then
if strCountry<>"AL" or strCountry<>"AD" or strCountry<>"BY" or strCountry<>"BA" or strCountry<>"BG" or strCountry<>"HR" or strCountry<>"FO" or strCountry<>"GI" or strCountry<>"JE" or strCountry<>"IM" or strCountry<>"GG" or strCountry<>"VA" or strCountry<>"IS" or strCountry<>"LI" or strCountry<>"MK" or strCountry<>"MD" or strCountry<>"MC" or strCountry<>"NO" or strCountry<>"RO" or strCountry<>"RU" or strCountry<>"SJ" or strCountry<>"SM" or strCountry<>"ME" or strCountry<>"CH" then
Serror=Serror & (strCountry) & " is either in the EU or not in Europe. Please choose a different shipping method." & "<br>"
end if
ElseIf GetSess("Shipmethodtype")="N Ireland, Isle of Man, Scilly & Scottish Isles" Then
if strCountry="IE" then
Serror=Serror & "For Ireland please choose Europe - EU Countries." & "<br>"
ElseIf strCountry<>"GB" or strCountry<>"IOM" then
Serror=Serror & (strCountry) & " is not in N Ireland, Isle of Man, Scilly or Scottish Isles. Please choose a different shipping method." & "<br>"
end if
End if
end if
I really need to get this working so any help would be greatly appreciated.
Note that if you want to use this code or variants on your own site then you need to update shopcountries.asp as some countries in Europe such as Jersey and the Isle of Man now have country codes which I am using here.
<%
' VP-ASP 5.0 May 22, 2003
' Updated 28th October 2006
' Derived from http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt
' This has additions, deletions and changes and the official short country name is now used
' byz_template_codes_functions_countries.asp need updating to match this if in use
Sub ShopCountries(formname, fieldname)
%>
<select NAME="<%=formname%>">
<option VALUE="" selected>Select</option>
<option VALUE="AF"<%If fieldname="AF" then Response.write "Selected"%>>Afghanistan</option>
<option VALUE="AX"<%If fieldname="AX" then Response.write "Selected"%>>Aland Islands</option>
<option VALUE="AL"<%If fieldname="AL" then Response.write "Selected"%>>Albania</option>
<option VALUE="DZ"<%If fieldname="DZ" then Response.write "Selected"%>>Algeria</option>
<option VALUE="AS"<%If fieldname="AS" then Response.write "Selected"%>>American Samoa</option>
<option VALUE="AD"<%If fieldname="AD" then Response.write "Selected"%>>Andorra</option>
<option VALUE="AO"<%If fieldname="AO" then Response.write "Selected"%>>Angola</option>
<option VALUE="AI"<%If fieldname="AI" then Response.write "Selected"%>>Anguilla</option>
<option VALUE="AQ"<%If fieldname="AQ" then Response.write "Selected"%>>Antarctica</option>
<option VALUE="AG"<%If fieldname="AG" then Response.write "Selected"%>>Antigua and Barbuda</option>
<option VALUE="AR"<%If fieldname="AR" then Response.write "Selected"%>>Argentina</option>
<option VALUE="AM"<%If fieldname="AM" then Response.write "Selected"%>>Armenia</option>
<option VALUE="AW"<%If fieldname="AW" then Response.write "Selected"%>>Aruba</option>
<option VALUE="AU"<%If fieldname="AU" then Response.write "Selected"%>>Australia</option>
<option VALUE="AT"<%If fieldname="AT" then Response.write "Selected"%>>Austria</option>
<option VALUE="AZ"<%If fieldname="AZ" then Response.write "Selected"%>>Azerbaijan</option>
<option VALUE="BS"<%If fieldname="BS" then Response.write "Selected"%>>Bahamas</option>
<option VALUE="BH"<%If fieldname="BH" then Response.write "Selected"%>>Bahrain</option>
<option VALUE="BD"<%If fieldname="BD" then Response.write "Selected"%>>Bangladesh</option>
<option VALUE="BB"<%If fieldname="BB" then Response.write "Selected"%>>Barbados</option>
<option VALUE="BY"<%If fieldname="BY" then Response.write "Selected"%>>Belarus</option>
<option VALUE="BE"<%If fieldname="BE" then Response.write "Selected"%>>Belgium</option>
<option VALUE="BZ"<%If fieldname="BZ" then Response.write "Selected"%>>Belize</option>
<option VALUE="BJ"<%If fieldname="BJ" then Response.write "Selected"%>>Benin</option>
<option VALUE="BM"<%If fieldname="BM" then Response.write "Selected"%>>Bermuda</option>
<option VALUE="BT"<%If fieldname="BT" then Response.write "Selected"%>>Bhutan</option>
<option VALUE="BO"<%If fieldname="BO" then Response.write "Selected"%>>Bolivia</option>
<option VALUE="BA"<%If fieldname="BA" then Response.write "Selected"%>>Bosnia and Herzegovina</option>
<option VALUE="BW"<%If fieldname="BW" then Response.write "Selected"%>>Botswana</option>
<option VALUE="BV"<%If fieldname="BV" then Response.write "Selected"%>>Bouvet Island</option>
<option VALUE="BR"<%If fieldname="BR" then Response.write "Selected"%>>Brazil</option>
<option VALUE="IO"<%If fieldname="IO" then Response.write "Selected"%>>British Indian Ocean Territory</option>
<option VALUE="BN"<%If fieldname="BN" then Response.write "Selected"%>>Brunei Darussalam</option>
<option VALUE="BG"<%If fieldname="BG" then Response.write "Selected"%>>Bulgaria</option>
<option VALUE="BF"<%If fieldname="BF" then Response.write "Selected"%>>Burkina Faso</option>
<option VALUE="BI"<%If fieldname="BI" then Response.write "Selected"%>>Burundi</option>
<option VALUE="KH"<%If fieldname="KH" then Response.write "Selected"%>>Cambodia</option>
<option VALUE="CM"<%If fieldname="CM" then Response.write "Selected"%>>Cameroon</option>
<option VALUE="CA"<%If fieldname="CA" then Response.write "Selected"%>>Canada</option>
<option VALUE="CV"<%If fieldname="CV" then Response.write "Selected"%>>Cape Verde</option>
<option VALUE="KY"<%If fieldname="KY" then Response.write "Selected"%>>Cayman Islands</option>
<option VALUE="CF"<%If fieldname="CF" then Response.write "Selected"%>>Central African Republic</option>
<option VALUE="TD"<%If fieldname="TD" then Response.write "Selected"%>>Chad</option>
<option VALUE="CL"<%If fieldname="CL" then Response.write "Selected"%>>Chile</option>
<option VALUE="CN"<%If fieldname="CN" then Response.write "Selected"%>>China</option>
<option VALUE="CX"<%If fieldname="CX" then Response.write "Selected"%>>Christmas Island</option>
<option VALUE="CC"<%If fieldname="CC" then Response.write "Selected"%>>Cocos (Keeling) Islands</option>
<option VALUE="CO"<%If fieldname="CO" then Response.write "Selected"%>>Colombia</option>
<option VALUE="KM"<%If fieldname="KM" then Response.write "Selected"%>>Comoros</option>
<option VALUE="CG"<%If fieldname="CG" then Response.write "Selected"%>>Congo</option>
<option VALUE="CD"<%If fieldname="CD" then Response.write "Selected"%>>Congo, The Democratic Republic of the</option>
<option VALUE="CK"<%If fieldname="CK" then Response.write "Selected"%>>Cook Islands</option>
<option VALUE="CR"<%If fieldname="CR" then Response.write "Selected"%>>Costa Rica</option>
<option VALUE="CI"<%If fieldname="CI" then Response.write "Selected"%>>Cote D'Ivoire</option>
<option VALUE="HR"<%If fieldname="HR" then Response.write "Selected"%>>Croatia</option>
<option VALUE="CU"<%If fieldname="CU" then Response.write "Selected"%>>Cuba</option>
<option VALUE="CY"<%If fieldname="CY" then Response.write "Selected"%>>Cyprus</option>
<option VALUE="CZ"<%If fieldname="CZ" then Response.write "Selected"%>>Czech Republic</option>
<option VALUE="DK"<%If fieldname="DK" then Response.write "Selected"%>>Denmark</option>
<option VALUE="DJ"<%If fieldname="DJ" then Response.write "Selected"%>>Djibouti</option>
<option VALUE="DM"<%If fieldname="DM" then Response.write "Selected"%>>Dominica</option>
<option VALUE="DO"<%If fieldname="DO" then Response.write "Selected"%>>Dominican Republic</option>
<option VALUE="EC"<%If fieldname="EC" then Response.write "Selected"%>>Ecuador</option>
<option VALUE="EG"<%If fieldname="EG" then Response.write "Selected"%>>Egypt</option>
<option VALUE="SV"<%If fieldname="SV" then Response.write "Selected"%>>El Salvador</option>
<option VALUE="GQ"<%If fieldname="GQ" then Response.write "Selected"%>>Equatorial Guinea</option>
<option VALUE="ER"<%If fieldname="ER" then Response.write "Selected"%>>Eritrea</option>
<option VALUE="EE"<%If fieldname="EE" then Response.write "Selected"%>>Estonia</option>
<option VALUE="ET"<%If fieldname="ET" then Response.write "Selected"%>>Ethiopia</option>
<option VALUE="FK"<%If fieldname="FK" then Response.write "Selected"%>>Falkland Islands (Malvinas)</option>
<option VALUE="FO"<%If fieldname="FO" then Response.write "Selected"%>>Faroe Islands</option>
<option VALUE="FJ"<%If fieldname="FJ" then Response.write "Selected"%>>Fiji</option>
<option VALUE="FI"<%If fieldname="FI" then Response.write "Selected"%>>Finland</option>
<option VALUE="FR"<%If fieldname="FR" then Response.write "Selected"%>>France</option>
<option VALUE="GF"<%If fieldname="GF" then Response.write "Selected"%>>French Guiana</option>
<option VALUE="PF"<%If fieldname="PF" then Response.write "Selected"%>>French Polynesia</option>
<option VALUE="TF"<%If fieldname="TF" then Response.write "Selected"%>>French Southern Territories</option>
<option VALUE="GA"<%If fieldname="GA" then Response.write "Selected"%>>Gabon</option>
<option VALUE="GM"<%If fieldname="GM" then Response.write "Selected"%>>Gambia</option>
<option VALUE="GE"<%If fieldname="GE" then Response.write "Selected"%>>Georgia</option>
<option VALUE="DE"<%If fieldname="DE" then Response.write "Selected"%>>Germany</option>
<option VALUE="GH"<%If fieldname="GH" then Response.write "Selected"%>>Ghana</option>
<option VALUE="GI"<%If fieldname="GI" then Response.write "Selected"%>>Gibraltar</option>
<option VALUE="GR"<%If fieldname="GR" then Response.write "Selected"%>>Greece</option>
<option VALUE="GL"<%If fieldname="GL" then Response.write "Selected"%>>Greenland</option>
<option VALUE="GD"<%If fieldname="GD" then Response.write "Selected"%>>Grenada</option>
<option VALUE="GP"<%If fieldname="GP" then Response.write "Selected"%>>Guadeloupe</option>
<option VALUE="GU"<%If fieldname="GU" then Response.write "Selected"%>>Guam</option>
<option VALUE="GT"<%If fieldname="GT" then Response.write "Selected"%>>Guatemala</option>
<option VALUE="GG"<%If fieldname="GG" then Response.write "Selected"%>>Guernsey</option>
<option VALUE="GN"<%If fieldname="GN" then Response.write "Selected"%>>Guinea</option>
<option VALUE="GW"<%If fieldname="GW" then Response.write "Selected"%>>Guinea-Bissau</option>
<option VALUE="GY"<%If fieldname="GY" then Response.write "Selected"%>>Guyana</option>
<option VALUE="HT"<%If fieldname="HT" then Response.write "Selected"%>>Haiti</option>
<option VALUE="HM"<%If fieldname="HM" then Response.write "Selected"%>>Heard Island And Mcdonald Islands</option>
<option VALUE="VA"<%If fieldname="VA" then Response.write "Selected"%>>Holy See (Vatican City State)</option>
<option VALUE="HN"<%If fieldname="HN" then Response.write "Selected"%>>Honduras</option>
<option VALUE="HK"<%If fieldname="HK" then Response.write "Selected"%>>Hong Kong</option>
<option VALUE="HU"<%If fieldname="HU" then Response.write "Selected"%>>Hungary</option>
<option VALUE="IS"<%If fieldname="IS" then Response.write "Selected"%>>Iceland</option>
<option VALUE="IN"<%If fieldname="IN" then Response.write "Selected"%>>India</option>
<option VALUE="ID"<%If fieldname="ID" then Response.write "Selected"%>>Indonesia</option>
<option VALUE="IR"<%If fieldname="IR" then Response.write "Selected"%>>Iran, Islamic Republic of</option>
<option VALUE="IQ"<%If fieldname="IQ" then Response.write "Selected"%>>Iraq</option>
<option VALUE="IE"<%If fieldname="IE" then Response.write "Selected"%>>Ireland</option>
<option VALUE="IM"<%If fieldname="IM" then Response.write "Selected"%>>Isle Of Man</option>
<option VALUE="IL"<%If fieldname="IL" then Response.write "Selected"%>>Israel</option>
<option VALUE="IT"<%If fieldname="IT" then Response.write "Selected"%>>Italy</option>
<option VALUE="JM"<%If fieldname="JM" then Response.write "Selected"%>>Jamaica</option>
<option VALUE="JP"<%If fieldname="JP" then Response.write "Selected"%>>Japan</option>
<option VALUE="JE"<%If fieldname="JE" then Response.write "Selected"%>>Jersey</option>
<option VALUE="JO"<%If fieldname="JO" then Response.write "Selected"%>>Jordan</option>
<option VALUE="KZ"<%If fieldname="KZ" then Response.write "Selected"%>>Kazakhstan</option>
<option VALUE="KE"<%If fieldname="KE" then Response.write "Selected"%>>Kenya</option>
<option VALUE="KI"<%If fieldname="KI" then Response.write "Selected"%>>Kiribati</option>
<option VALUE="KP"<%If fieldname="KP" then Response.write "Selected"%>>Korea, Democratic People's Republic of</option>
<option VALUE="KR"<%If fieldname="KR" then Response.write "Selected"%>>Korea, Republic of</option>
<option VALUE="KW"<%If fieldname="KW" then Response.write "Selected"%>>Kuwait</option>
<option VALUE="KG"<%If fieldname="KG" then Response.write "Selected"%>>Kyrgyzstan</option>
<option VALUE="LA"<%If fieldname="LA" then Response.write "Selected"%>>Lao People's Democratic Republic</option>
<option VALUE="LV"<%If fieldname="LV" then Response.write "Selected"%>>Latvia</option>
<option VALUE="LB"<%If fieldname="LB" then Response.write "Selected"%>>Lebanon</option>
<option VALUE="LS"<%If fieldname="LS" then Response.write "Selected"%>>Lesotho</option>
<option VALUE="LR"<%If fieldname="LR" then Response.write "Selected"%>>Liberia</option>
<option VALUE="LY"<%If fieldname="LY" then Response.write "Selected"%>>Libyan Arab Jamahiriya</option>
<option VALUE="LI"<%If fieldname="LI" then Response.write "Selected"%>>Liechtenstein</option>
<option VALUE="LT"<%If fieldname="LT" then Response.write "Selected"%>>Lithuania</option>
<option VALUE="LU"<%If fieldname="LU" then Response.write "Selected"%>>Luxembourg</option>
<option VALUE="MO"<%If fieldname="MO" then Response.write "Selected"%>>Macao</option>
<option VALUE="MK"<%If fieldname="MK" then Response.write "Selected"%>>Macedonia, The former Yugoslav Republic of</option>
<option VALUE="MG"<%If fieldname="MG" then Response.write "Selected"%>>Madagascar</option>
<option VALUE="MW"<%If fieldname="MW" then Response.write "Selected"%>>Malawi</option>
<option VALUE="MY"<%If fieldname="MY" then Response.write "Selected"%>>Malaysia</option>
<option VALUE="MV"<%If fieldname="MV" then Response.write "Selected"%>>Maldives</option>
<option VALUE="ML"<%If fieldname="ML" then Response.write "Selected"%>>Mali</option>
<option VALUE="MT"<%If fieldname="MT" then Response.write "Selected"%>>Malta</option>
<option VALUE="MH"<%If fieldname="MH" then Response.write "Selected"%>>Marshall Islands</option>
<option VALUE="MQ"<%If fieldname="MQ" then Response.write "Selected"%>>Martinique</option>
<option VALUE="MR"<%If fieldname="MR" then Response.write "Selected"%>>Mauritania</option>
<option VALUE="MU"<%If fieldname="MU" then Response.write "Selected"%>>Mauritius</option>
<option VALUE="YT"<%If fieldname="YT" then Response.write "Selected"%>>Mayotte</option>
<option VALUE="MX"<%If fieldname="MX" then Response.write "Selected"%>>Mexico</option>
<option VALUE="FM"<%If fieldname="FM" then Response.write "Selected"%>>Micronesia, Federated States of</option>
<option VALUE="MD"<%If fieldname="MD" then Response.write "Selected"%>>Moldova, Republic of</option>
<option VALUE="MC"<%If fieldname="MC" then Response.write "Selected"%>>Monaco</option>
<option VALUE="MN"<%If fieldname="MN" then Response.write "Selected"%>>Mongolia</option>
<option VALUE="ME"<%If fieldname="ME" then Response.write "Selected"%>>Montenegro</option>
<option VALUE="MS"<%If fieldname="MS" then Response.write "Selected"%>>Montserrat</option>
<option VALUE="MA"<%If fieldname="MA" then Response.write "Selected"%>>Morocco</option>
<option VALUE="MZ"<%If fieldname="MZ" then Response.write "Selected"%>>Mozambique</option>
<option VALUE="MM"<%If fieldname="MM" then Response.write "Selected"%>>Myanmar</option>
<option VALUE="NA"<%If fieldname="NA" then Response.write "Selected"%>>Namibia</option>
<option VALUE="NR"<%If fieldname="NR" then Response.write "Selected"%>>Nauru</option>
<option VALUE="NP"<%If fieldname="NP" then Response.write "Selected"%>>Nepal</option>
<option VALUE="NL"<%If fieldname="NL" then Response.write "Selected"%>>Netherlands</option>
<option VALUE="AN"<%If fieldname="AN" then Response.write "Selected"%>>Netherlands Antilles</option>
<option VALUE="NC"<%If fieldname="NC" then Response.write "Selected"%>>New Caledonia</option>
<option VALUE="NZ"<%If fieldname="NZ" then Response.write "Selected"%>>New Zealand</option>
<option VALUE="NI"<%If fieldname="NI" then Response.write "Selected"%>>Nicaragua</option>
<option VALUE="NE"<%If fieldname="NE" then Response.write "Selected"%>>Niger</option>
<option VALUE="NG"<%If fieldname="NG" then Response.write "Selected"%>>Nigeria</option>
<option VALUE="NU"<%If fieldname="NU" then Response.write "Selected"%>>Niue</option>
<option VALUE="NF"<%If fieldname="NF" then Response.write "Selected"%>>Norfolk Island</option>
<option VALUE="MP"<%If fieldname="MP" then Response.write "Selected"%>>Northern Mariana Islands</option>
<option VALUE="NO"<%If fieldname="NO" then Response.write "Selected"%>>Norway</option>
<option VALUE="OM"<%If fieldname="OM" then Response.write "Selected"%>>Oman</option>
<option VALUE="PK"<%If fieldname="PK" then Response.write "Selected"%>>Pakistan</option>
<option VALUE="PW"<%If fieldname="PW" then Response.write "Selected"%>>Palau</option>
<option VALUE="PS"<%If fieldname="PS" then Response.write "Selected"%>>Palestinian Territory, Occupied</option>
<option VALUE="PA"<%If fieldname="PA" then Response.write "Selected"%>>Panama</option>
<option VALUE="PG"<%If fieldname="PG" then Response.write "Selected"%>>Papua New Guinea</option>
<option VALUE="PY"<%If fieldname="PY" then Response.write "Selected"%>>Paraguay</option>
<option VALUE="PE"<%If fieldname="PE" then Response.write "Selected"%>>Peru</option>
<option VALUE="PH"<%If fieldname="PH" then Response.write "Selected"%>>Philippines</option>
<option VALUE="PN"<%If fieldname="PN" then Response.write "Selected"%>>Pitcairn</option>
<option VALUE="PL"<%If fieldname="PL" then Response.write "Selected"%>>Poland</option>
<option VALUE="PT"<%If fieldname="PT" then Response.write "Selected"%>>Portugal</option>
<option VALUE="PR"<%If fieldname="PR" then Response.write "Selected"%>>Puerto Rico</option>
<option VALUE="QA"<%If fieldname="QA" then Response.write "Selected"%>>Qatar</option>
<option VALUE="RE"<%If fieldname="RE" then Response.write "Selected"%>>Reunion</option>
<option VALUE="RO"<%If fieldname="RO" then Response.write "Selected"%>>Romania</option>
<option VALUE="RU"<%If fieldname="RU" then Response.write "Selected"%>>Russian Federation</option>
<option VALUE="RW"<%If fieldname="RW" then Response.write "Selected"%>>Rwanda</option>
<option VALUE="SH"<%If fieldname="SH" then Response.write "Selected"%>>Saint Helena</option>
<option VALUE="KN"<%If fieldname="KN" then Response.write "Selected"%>>Saint Kitts and Nevis</option>
<option VALUE="LC"<%If fieldname="LC" then Response.write "Selected"%>>Saint Lucia</option>
<option VALUE="PM"<%If fieldname="PM" then Response.write "Selected"%>>Saint Pierre and Miquelon</option>
<option VALUE="VC"<%If fieldname="VC" then Response.write "Selected"%>>Saint Vincent and The Grenadines</option>
<option VALUE="WS"<%If fieldname="WS" then Response.write "Selected"%>>Samoa</option>
<option VALUE="SM"<%If fieldname="SM" then Response.write "Selected"%>>San Marino</option>
<option VALUE="ST"<%If fieldname="ST" then Response.write "Selected"%>>Sao Tome and Principe</option>
<option VALUE="SA"<%If fieldname="SA" then Response.write "Selected"%>>Saudi Arabia</option>
<option VALUE="SN"<%If fieldname="SN" then Response.write "Selected"%>>Senegal</option>
<option VALUE="RS"<%If fieldname="RS" then Response.write "Selected"%>>Serbia</option>
<option VALUE="SC"<%If fieldname="SC" then Response.write "Selected"%>>Seychelles</option>
<option VALUE="SL"<%If fieldname="SL" then Response.write "Selected"%>>Sierra Leone</option>
<option VALUE="SG"<%If fieldname="SG" then Response.write "Selected"%>>Singapore</option>
<option VALUE="SK"<%If fieldname="SK" then Response.write "Selected"%>>Slovakia</option>
<option VALUE="SI"<%If fieldname="SI" then Response.write "Selected"%>>Slovenia</option>
<option VALUE="SB"<%If fieldname="SB" then Response.write "Selected"%>>Solomon Islands</option>
<option VALUE="SO"<%If fieldname="SO" then Response.write "Selected"%>>Somalia</option>
<option VALUE="ZA"<%If fieldname="ZA" then Response.write "Selected"%>>South Africa</option>
<option VALUE="GS"<%If fieldname="GS" then Response.write "Selected"%>>South Georgia and the South Sandwich Islands</option>
<option VALUE="ES"<%If fieldname="ES" then Response.write "Selected"%>>Spain</option>
<option VALUE="LK"<%If fieldname="LK" then Response.write "Selected"%>>Sri Lanka</option>
<option VALUE="SD"<%If fieldname="SD" then Response.write "Selected"%>>Sudan</option>
<option VALUE="SR"<%If fieldname="SR" then Response.write "Selected"%>>Suriname</option>
<option VALUE="SJ"<%If fieldname="SJ" then Response.write "Selected"%>>Svalbard and Jan Mayen</option>
<option VALUE="SZ"<%If fieldname="SZ" then Response.write "Selected"%>>Swaziland</option>
<option VALUE="SE"<%If fieldname="SE" then Response.write "Selected"%>>Sweden</option>
<option VALUE="CH"<%If fieldname="CH" then Response.write "Selected"%>>Switzerland</option>
<option VALUE="SY"<%If fieldname="SY" then Response.write "Selected"%>>Syrian Arab Republic</option>
<option VALUE="TW"<%If fieldname="TW" then Response.write "Selected"%>>Taiwan, Province of China</option>
<option VALUE="TJ"<%If fieldname="TJ" then Response.write "Selected"%>>Tajikistan</option>
<option VALUE="TZ"<%If fieldname="TZ" then Response.write "Selected"%>>Tanzania, United Republic of</option>
<option VALUE="TH"<%If fieldname="TH" then Response.write "Selected"%>>Thailand</option>
<option VALUE="TL"<%If fieldname="TL" then Response.write "Selected"%>>Timor-Leste</option>
<option VALUE="TG"<%If fieldname="TG" then Response.write "Selected"%>>Togo</option>
<option VALUE="TK"<%If fieldname="TK" then Response.write "Selected"%>>Tokelau</option>
<option VALUE="TO"<%If fieldname="TO" then Response.write "Selected"%>>Tonga</option>
<option VALUE="TT"<%If fieldname="TT" then Response.write "Selected"%>>Trinidad and Tobago</option>
<option VALUE="TN"<%If fieldname="TN" then Response.write "Selected"%>>Tunisia</option>
<option VALUE="TR"<%If fieldname="TR" then Response.write "Selected"%>>Turkey</option>
<option VALUE="TM"<%If fieldname="TM" then Response.write "Selected"%>>Turkmenistan</option>
<option VALUE="TC"<%If fieldname="TC" then Response.write "Selected"%>>Turks and Caicos Islands</option>
<option VALUE="TV"<%If fieldname="TV" then Response.write "Selected"%>>Tuvalu</option>
<option VALUE="UG"<%If fieldname="UG" then Response.write "Selected"%>>Uganda</option>
<option VALUE="UA"<%If fieldname="UA" then Response.write "Selected"%>>Ukraine</option>
<option VALUE="AE"<%If fieldname="AE" then Response.write "Selected"%>>United Arab Emirates</option>
<option VALUE="GB"<%If fieldname="GB" then Response.write "Selected"%>>United Kingdom</option>
<option VALUE="US"<%If fieldname="US" then Response.write "Selected"%>>United States</option>
<option VALUE="UM"<%If fieldname="UM" then Response.write "Selected"%>>United States Minor Outlying Islands</option>
<option VALUE="UY"<%If fieldname="UY" then Response.write "Selected"%>>Uruguay</option>
<option VALUE="UZ"<%If fieldname="UZ" then Response.write "Selected"%>>Uzbekistan</option>
<option VALUE="VU"<%If fieldname="VU" then Response.write "Selected"%>>Vanuatu</option>
<option VALUE="VE"<%If fieldname="VE" then Response.write "Selected"%>>Venezuela</option>
<option VALUE="VN"<%If fieldname="VN" then Response.write "Selected"%>>Viet Nam</option>
<option VALUE="VG"<%If fieldname="VG" then Response.write "Selected"%>>Virgin Islands, British</option>
<option VALUE="VI"<%If fieldname="VI" then Response.write "Selected"%>>Virgin Islands, U.S.</option>
<option VALUE="WF"<%If fieldname="WF" then Response.write "Selected"%>>Wallis And Futuna</option>
<option VALUE="EH"<%If fieldname="EH" then Response.write "Selected"%>>Western Sahara</option>
<option VALUE="YE"<%If fieldname="YE" then Response.write "Selected"%>>Yemen</option>
<option VALUE="ZM"<%If fieldname="ZM" then Response.write "Selected"%>>Zambia</option>
<option VALUE="ZW"<%If fieldname="ZW" then Response.write "Selected"%>>Zimbabwe</option>
<option VALUE="Other"<%If fieldname="Other" then Response.write "Selected"%>>Other</option>
</select>
<%
end sub
%>