Nichts neues, aber wer's mal brauchen kann:
Ist ne kleine Funktion, die ein Select-Feld mit allen Ländern ausgibt. Vorerst mal nur auf Deutsch.
<%
Function fShowCountries(Spez,Typ)
Dim arrCountries, e, s
arrCountries = Split("Afghanistan,Albanien,Algerien,Andorra,Angola,Antigua," &_
"Argentinien,Aserbaidschan,Australien,Ägypten,Bahamas," &_
"Bahrain,Bangladesch,Barbados,Belgien,Belize,Benin,Bermudas," &_
"Bhutan,Bolivien,Bosnien-Herzegowina,Botswana,Brasilien,Brunei," &_
"Bulgarien,Burkina Faso,Burundi,Cayman-Inseln,Chad,Chile," &_
"China,Costa Rica,Deutschland,Dominikanische Republik,Dschibuti," &_
"Dänemark,Ecuador,El Salvador,Elfenbeinküste,Eritrea,Estland," &_
"Falklandinseln,Faröer Inseln,Fidschiinseln,Finnland,Frankreich," &_
"Gabun,Gambia,Georgien,Ghana,Gibraltar,Grenada,Griechenland," &_
"Großbritannien und Nordirland,Guam,Guatemala,Guinea-Bissau," &_
"Guinea,Guyana,Haiti,Honduras,Hongkong,Indien,Indonesien,Irak," &_
"Iran,Irland,Island,Israel,Italien,Jamaika,Japan,Jemen,Jordanien," &_
"Jugoslawien,Jungferninseln,Kambodscha,Kamerun,Kanada,Kap Verden," &_
"Kasachstan,Katar,Kenia,Kirgistan,Kolumbien,Komoren,Kongo," &_
"Kroatien,Kuba,Kuwait,Laos,Lesotho,Lettland,Libanon,Liberien," &_
"Libyen,Liechtenstein,Litauen,Luxemburg,Madagaskar,Malawi,Malaysia," &_
"Malediven,Mali,Malta,Marokko,Marshallinseln,Mauretanien,Mauritius," &_
"Mazedonien,Mexiko,Mikronesien,Moldawien,Monako,Mongolei,Mosambik," &_
"Namibia,Nepal,Neuseeland,Nicaragua,Niederlande,Nigeria,Niger," &_
"Nordkorea,Norwegen,Oman,Österreich,Pakistan,Palau,Panama," &_
"Papua-Neuginea,Paraguay,Peru,Philippinen,Polen,Portugal,Ruanda," &_
"Rumänien,Russland,Salomonen,Sambia,Samoa,San Marino,Saudi-Arabien," &_
"Schweden,Schweiz,Senegal,Seychellen,Sierra Leone,Simbabwe,Singapur," &_
"Slowakei,Slowenien,Somalia,Spanien,Sri Lanka,St. Kitts,St. Lucia," &_
"St. Tome,St. Vincent,Sudan,Suriname,Swasiland,Syrien,Südafrika," &_
"Südkorea,Tadschikistan,Taiwan,Tansania,Thailand,Togo,Trinidad/Tobago," &_
"Tschechien,Tunesien,Turkmenistan,Türkei,Uganda,Ukraine,Ungarn," &_
"Uruguay,Usbekistan,Vanuatu,Vatikanstadt,Venezuela," &_
"Vereinigte Arabische Emirate,Vereinigte Staaten von Amerika," &_
"Vietnam,Weißrussland,Zentralafrika,Zypern",",")
s = s & "<SELECT NAME=""" & Spez & """>" & vbNewLine
For each e in arrCountries
s = s & " <OPTION VALUE=""" & e & """"
SELECT CASE Typ
CASE 1
IF Request.Form(Spez) = e THEN s = s & " SELECTED"
CASE 2
IF rs(Spez) = e THEN s = s & " SELECTED"
CASE ELSE
END SELECT
s = s & ">" & e & "</OPTION>" & vbCrLf
Next
s = s & "</SELECT>" & vbCrLf
fShowCountries = s
End Function
Response.Write fShowCountries("name",1)
%>