<%
paises = Array("Afeganistão","África do Sul","Albânia","Alemanha","Andorra","Angola","Anguila","Antártida","Antígua e Barbuda","Antilhas Holandesas","Arábia Saudita","Argélia","Argentina","Armênia","Aruba","Austrália","Áustria","Azerbaijão","Bahamas","Bahrein","Bangladesh","Barbados","Bélgica","Belize","Benin","Bermuda","Bielorússia","Bolívia","Bósnia e Herzegovina","Botsuana","Brasil","Brunei","Bulgária","Burkina Fasso","Burundi","Butão","Cabo Verde","Camarões","Camboja","Canadá","Catar","Cazaquistão","Chade","Chile","China","Chipre","Cidade do Vaticano (Santa Sé)","Cingapura","Colômbia","Comoros","Congo","Coréia","Coréia do Norte","Costa do Marfim","Costa Rica","Croácia","Cuba","Dinamarca","Djibuti","Dominica","Egito","El Salvador","Emirados Árabes Unidos","Equador","Eritréia","Eslováquia","Eslovênia","Espanha","Estados Unidos","Estônia","Etiópia","Filipinas","Finlândia","França","Gabão","Gâmbia","Gana","Geórgia","Gibraltar","Granada","Grécia","Groenlândia","Guadalupe","Guam","Guatemala","Guernsey","Guiana","Guiana Francesa","Guiné","Guiné Equatorial","Guiné-Bissau","Haiti","Honduras","Hong Kong S. A. R","Hungria","Iêmen","Ilha Ascension","Ilha Bouvet","Ilha Christmas","Ilha de Man","Ilha Norfolk","Ilhas Cayman","Ilhas Cocos (Keeling)","Ilhas Cook","Ilhas Faroés","Ilhas Fiji","Ilhas Geórgia do Sul e Sandwich do Sul","Ilhas Heard e Ilhas McDonald","Ilhas Malvinas (Falkland)","Ilhas Marianas do Norte","Ilhas Marshall","Ilhas Salomão","Ilhas Turks e Caicos","Ilhas Virgens Americanas","Ilhas Virgens Britânicas","Índia","Indonésia","Irã","Iraque","Irlanda","Islândia","Israel","Itália","Iugoslávia","Jamaica","Japão","Jersey","Jordânia","Kiribati","Kuaite","Laos","Lesoto","Letônia","Líbano","Libéria","Líbia","Liechtenstein","Lituânia","Luxemburgo","Macau S.A.R.","Madagascar","Malásia","Malaui","Maldivas","Mali","Malta","Marrocos","Martinica","Maurício","Mauritânia","Mayotte","México","Micronésia","Moçambique","Moldávia","Mônaco","Mongólia","Montserrat","Myanma","Namíbia","Nauru","Nepal","Nicarágua","Níger","Nigéria","Niue","Noruega","Nova Caledônia","Nova Zelândia","Omã","Países Baixos","Palau","Palestinian Authority","Panamá","Papua-Nova Guiné","Paquistão","Paraguai","Peru","Pitcairn","Polinésia Francesa","Polônia","Porto Rico","Portugal","Quênia","Quirguistão","Reino Unido","República Centro-Africana","República da Macedônia","República Democrática do Congo (Zaire)","República Dominicana","República Tcheca","Reunião","Romênia","Ruanda","Rússia","Saint-Pierre e Miquelon","Samoa","Samoa Americana","San Marino","Santa Helena","Santa Lúcia","São Tomé e Príncipe","São Vicente e Granadinas","Senegal","Serra Leoa","Seychelles","Síria","Somália","Sri Lanka","St. Kitts e Névis","Suazilândia","Sudão","Suécia","Suíça","Suriname","Svalbard","Tagiquistão","Tailândia","Taiwan","Tanzânia","Território Britânico do Oceano Índico","Territórios Franceses do Sul","Territórios Insulares dos EUA","Timor Leste","Togo","Tokelau","Tonga","Trinidad e Tobago","Tristan da Cunha","Tunísia","Turcomenistão","Turquia","Tuvalu","Ucrânia","Uganda","Uruguai","Uzbequistão","Vanuatu","Venezuela","Vietnã","Wallis e Futuna","Zâmbia","Zimbábue")
meses = Array("Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro")
%>
Questionario
<% if request("form") <> 1 then %>
<%
else
if request("f1") = "lyr1" then f1 = 1 else f1 = 2 end if
if request("nome_"&f1) = "" then
response.write "Nome é um campo obrigatório!
voltar"
elseif isnumeric(request("idade_"&f1)) = false then
response.write "Idade deve ser um campo numérico!