<body background=../gif/mapapru.gif style="background-Repeat:no-repeat" >
<style>
</style>
<table >
<tr><td >
<select id=Cont name=Cont>
<option value= "Asia" selected >Asia
<option value="America">America
</select>
<tr><td ID=Marco Name=Marco></td>
</table>
<input type="text" name="kinal">
</form>
<script language=vbscript>
PAsia="China;Japon"
PAmerica="Cuba;Jamaica"
Cont_onchange
sub Cont_onchange
C=Cont.value
select case c
case "Asia"
Cad=Pasia
case "America"
Cad=PAmerica
end select
Paises=split(Cad,";")
NP=ubound(Paises)
Cod= "<select Id=Pais>"
for i=0 to NP
Cod=Cod & "<option value=" & Paises(i) & ">" & Paises(i)
next
Cod=Cod & "</select>"
Marco.innerhtml=Cod
kinal.value=cont.value
end sub
</script>
