function showplacearea(form, area1, seq) {
  var area_index=area1;
  if (area_index == 0){
     count1= 1
     setareacode(form.Area2, "", 0, seq)
  }
  else if (area_index == 1){
     count1= 1
     setareacode(form.Area2, "中正區", 100, seq)
     setareacode(form.Area2, "大同區", 103, seq)
     setareacode(form.Area2, "中山區", 104, seq)
     setareacode(form.Area2, "松山區", 105, seq)
     setareacode(form.Area2, "大安區", 106, seq)
     setareacode(form.Area2, "萬華區", 108, seq)
     setareacode(form.Area2, "信義區", 110, seq)
     setareacode(form.Area2, "士林區", 111, seq)
     setareacode(form.Area2, "北投區", 112, seq)
     setareacode(form.Area2, "內湖區", 114, seq)
     setareacode(form.Area2, "南港區", 115, seq)
     setareacode(form.Area2, "文山區", 116, seq)
  }
  else if (area_index == 2){
     count1= 1
     setareacode(form.Area2, "仁愛區", 200, seq)
     setareacode(form.Area2, "信義區", 201, seq)
     setareacode(form.Area2, "中正區", 202, seq)
     setareacode(form.Area2, "中山區", 203, seq)
     setareacode(form.Area2, "安樂區", 204, seq)
     setareacode(form.Area2, "暖暖區", 205, seq)
     setareacode(form.Area2, "七堵區", 206, seq)
  }
  else if (area_index == 3){
     count1= 1
     setareacode(form.Area2, "萬里區", 207, seq)
     setareacode(form.Area2, "金山區", 208, seq)
     setareacode(form.Area2, "板橋區", 220, seq)
     setareacode(form.Area2, "汐止區", 221, seq)
     setareacode(form.Area2, "深坑區", 222, seq)
     setareacode(form.Area2, "石碇區", 223, seq)
     setareacode(form.Area2, "瑞芳區", 224, seq)
     setareacode(form.Area2, "平溪區", 226, seq)
     setareacode(form.Area2, "雙溪區", 227, seq)
     setareacode(form.Area2, "貢寮區", 228, seq)
     setareacode(form.Area2, "新店區", 231, seq)
     setareacode(form.Area2, "坪林區", 232, seq)
     setareacode(form.Area2, "烏來區", 233, seq)
     setareacode(form.Area2, "永和區", 234, seq)
     setareacode(form.Area2, "中和區", 235, seq)
     setareacode(form.Area2, "土城區", 236, seq)
     setareacode(form.Area2, "三峽區", 237, seq)
     setareacode(form.Area2, "樹林區", 238, seq)
     setareacode(form.Area2, "鶯歌區", 239, seq)
     setareacode(form.Area2, "三重區", 241, seq)
     setareacode(form.Area2, "新莊區", 242, seq)
     setareacode(form.Area2, "泰山區", 243, seq)
     setareacode(form.Area2, "林口區", 244, seq)
     setareacode(form.Area2, "蘆洲區", 247, seq)
     setareacode(form.Area2, "五股區", 248, seq)
     setareacode(form.Area2, "八里區", 249, seq)
     setareacode(form.Area2, "淡水區", 251, seq)
     setareacode(form.Area2, "三芝區", 252, seq)
     setareacode(form.Area2, "石門區", 253, seq)
  }
  else if (area_index == 4){
     count1= 1
     setareacode(form.Area2, "宜蘭市", 260, seq)
     setareacode(form.Area2, "頭城鎮", 261, seq)
     setareacode(form.Area2, "礁溪鄉", 262, seq)
     setareacode(form.Area2, "壯圍鄉", 263, seq)
     setareacode(form.Area2, "員山鄉", 264, seq)
     setareacode(form.Area2, "羅東鎮", 265, seq)
     setareacode(form.Area2, "三星鄉", 266, seq)
     setareacode(form.Area2, "大同鄉", 267, seq)
     setareacode(form.Area2, "五結鄉", 268, seq)
     setareacode(form.Area2, "冬山鄉", 269, seq)
     setareacode(form.Area2, "蘇澳鎮", 270, seq)
     setareacode(form.Area2, "南澳鄉", 272, seq)
  }
  else if (area_index == 5){
     count1= 1
     setareacode(form.Area2, "中壢市", 320, seq)
     setareacode(form.Area2, "平鎮市", 324, seq)
     setareacode(form.Area2, "龍潭鄉", 325, seq)
     setareacode(form.Area2, "楊梅鎮", 326, seq)
     setareacode(form.Area2, "新屋鄉", 327, seq)
     setareacode(form.Area2, "觀音鄉", 328, seq)
     setareacode(form.Area2, "桃園市", 330, seq)
     setareacode(form.Area2, "龜山鄉", 333, seq)
     setareacode(form.Area2, "八德市", 334, seq)
     setareacode(form.Area2, "大溪鎮", 335, seq)
     setareacode(form.Area2, "復興鄉", 336, seq)
     setareacode(form.Area2, "大園鄉", 337, seq)
     setareacode(form.Area2, "蘆竹鄉", 338, seq)
  }
  else if (area_index == 6){
     count1= 1
     setareacode(form.Area2, "竹北市", 302, seq)
     setareacode(form.Area2, "湖口鄉", 303, seq)
     setareacode(form.Area2, "新豐鄉", 304, seq)
     setareacode(form.Area2, "新埔鎮", 305, seq)
     setareacode(form.Area2, "關西鎮", 306, seq)
     setareacode(form.Area2, "芎林鄉", 307, seq)
     setareacode(form.Area2, "寶山鄉", 308, seq)
     setareacode(form.Area2, "竹東鎮", 310, seq)
     setareacode(form.Area2, "五峰鄉", 311, seq)
     setareacode(form.Area2, "橫山鄉", 312, seq)
     setareacode(form.Area2, "尖石鄉", 313, seq)
     setareacode(form.Area2, "北埔鄉", 314, seq)
     setareacode(form.Area2, "峨眉鄉", 315, seq)
  }
  else if (area_index == 7){
     count1= 1
     setareacode(form.Area2, "東區", 3001, seq)
     setareacode(form.Area2, "北區", 3002, seq)
     setareacode(form.Area2, "香山區", 3003, seq)
  }
  else if (area_index == 8){
     count1= 1
     setareacode(form.Area2, "竹南鎮", 350, seq)
     setareacode(form.Area2, "頭份鎮", 351, seq)
     setareacode(form.Area2, "三灣鄉", 352, seq)
     setareacode(form.Area2, "南莊鄉", 353, seq)
     setareacode(form.Area2, "獅潭鄉", 354, seq)
     setareacode(form.Area2, "後龍鎮", 356, seq)
     setareacode(form.Area2, "通霄鎮", 357, seq)
     setareacode(form.Area2, "苑裡鎮", 358, seq)
     setareacode(form.Area2, "苗栗市", 360, seq)
     setareacode(form.Area2, "造橋鄉", 361, seq)
     setareacode(form.Area2, "頭屋鄉", 362, seq)
     setareacode(form.Area2, "公館鄉", 363, seq)
     setareacode(form.Area2, "大湖鄉", 364, seq)
     setareacode(form.Area2, "泰安鄉", 365, seq)
     setareacode(form.Area2, "銅鑼鄉", 366, seq)
     setareacode(form.Area2, "三義鄉", 367, seq)
     setareacode(form.Area2, "西湖鄉", 368, seq)
     setareacode(form.Area2, "卓蘭鎮", 369, seq)
  }
  else if (area_index == 9){
     count1= 1
     setareacode(form.Area2, "中　區", 400, seq)
     setareacode(form.Area2, "東　區", 401, seq)
     setareacode(form.Area2, "南　區", 402, seq)
     setareacode(form.Area2, "西　區", 403, seq)
     setareacode(form.Area2, "北　區", 404, seq)
     setareacode(form.Area2, "北屯區", 406, seq)
     setareacode(form.Area2, "西屯區", 407, seq)
     setareacode(form.Area2, "南屯區", 408, seq)
//  }
//  else if (area_index == 10){
//     count1= 1
     setareacode(form.Area2, "太平區", 411, seq)
     setareacode(form.Area2, "大里區", 412, seq)
     setareacode(form.Area2, "霧峰區", 413, seq)
     setareacode(form.Area2, "烏日區", 414, seq)
     setareacode(form.Area2, "豐原區", 420, seq)
     setareacode(form.Area2, "后里區", 421, seq)
     setareacode(form.Area2, "石岡區", 422, seq)
     setareacode(form.Area2, "東勢區", 423, seq)
     setareacode(form.Area2, "和平區", 424, seq)
     setareacode(form.Area2, "新社區", 426, seq)
     setareacode(form.Area2, "潭子區", 427, seq)
     setareacode(form.Area2, "大雅區", 428, seq)
     setareacode(form.Area2, "神岡區", 429, seq)
     setareacode(form.Area2, "大肚區", 432, seq)
     setareacode(form.Area2, "沙鹿區", 433, seq)
     setareacode(form.Area2, "龍井區", 434, seq)
     setareacode(form.Area2, "梧棲區", 435, seq)
     setareacode(form.Area2, "清水區", 436, seq)
     setareacode(form.Area2, "大甲區", 437, seq)
     setareacode(form.Area2, "外埔區", 438, seq)
     setareacode(form.Area2, "大安區", 439, seq)
  }
  else if (area_index == 11){
     count1= 1
     setareacode(form.Area2, "彰化市", 500, seq)
     setareacode(form.Area2, "芬園鄉", 502, seq)
     setareacode(form.Area2, "花壇鄉", 503, seq)
     setareacode(form.Area2, "秀水鄉", 504, seq)
     setareacode(form.Area2, "鹿港鎮", 505, seq)
     setareacode(form.Area2, "福興鄉", 506, seq)
     setareacode(form.Area2, "線西鄉", 507, seq)
     setareacode(form.Area2, "和美鎮", 508, seq)
     setareacode(form.Area2, "伸港鄉", 509, seq)
     setareacode(form.Area2, "員林鎮", 510, seq)
     setareacode(form.Area2, "社頭鄉", 511, seq)
     setareacode(form.Area2, "永靖鄉", 512, seq)
     setareacode(form.Area2, "埔心鄉", 513, seq)
     setareacode(form.Area2, "溪湖鎮", 514, seq)
     setareacode(form.Area2, "大村鄉", 515, seq)
     setareacode(form.Area2, "埔鹽鄉", 516, seq)
     setareacode(form.Area2, "田中鄉", 520, seq)
     setareacode(form.Area2, "北斗鎮", 521, seq)
     setareacode(form.Area2, "田尾鄉", 522, seq)
     setareacode(form.Area2, "埤頭鄉", 523, seq)
     setareacode(form.Area2, "溪州鄉", 524, seq)
     setareacode(form.Area2, "竹塘鄉", 525, seq)
     setareacode(form.Area2, "二林鎮", 526, seq)
     setareacode(form.Area2, "大城鄉", 527, seq)
     setareacode(form.Area2, "芳苑鄉", 528, seq)
     setareacode(form.Area2, "二水鄉", 530, seq)
  }
  else if (area_index == 12){
     count1= 1
     setareacode(form.Area2, "南投市", 540, seq)
     setareacode(form.Area2, "中寮鄉", 541, seq)
     setareacode(form.Area2, "草屯鎮", 542, seq)
     setareacode(form.Area2, "國姓鄉", 544, seq)
     setareacode(form.Area2, "埔里鎮", 545, seq)
     setareacode(form.Area2, "仁愛鄉", 546, seq)
     setareacode(form.Area2, "名間鄉", 551, seq)
     setareacode(form.Area2, "集集鎮", 552, seq)
     setareacode(form.Area2, "水里鄉", 553, seq)
     setareacode(form.Area2, "魚池鄉", 555, seq)
     setareacode(form.Area2, "信義鄉", 556, seq)
     setareacode(form.Area2, "竹山鎮", 557, seq)
     setareacode(form.Area2, "鹿谷鄉", 558, seq)
  }
  else if (area_index == 13){
     count1= 1
     setareacode(form.Area2, "東區", 6001, seq)
     setareacode(form.Area2, "西區", 6002, seq)
  }
  else if (area_index == 14){
     count1= 1
     setareacode(form.Area2, "番路鄉", 602, seq)
     setareacode(form.Area2, "梅山鄉", 603, seq)
     setareacode(form.Area2, "竹崎鄉", 604, seq)
     setareacode(form.Area2, "阿里山鄉", 605, seq)
     setareacode(form.Area2, "中埔鄉", 606, seq)
     setareacode(form.Area2, "大埔鄉", 607, seq)
     setareacode(form.Area2, "水上鄉", 608, seq)
     setareacode(form.Area2, "鹿草鄉", 611, seq)
     setareacode(form.Area2, "太保市", 612, seq)
     setareacode(form.Area2, "朴子市", 613, seq)
     setareacode(form.Area2, "東石鄉", 614, seq)
     setareacode(form.Area2, "六腳鄉", 615, seq)
     setareacode(form.Area2, "新港鄉", 616, seq)
     setareacode(form.Area2, "民雄鄉", 621, seq)
     setareacode(form.Area2, "大林鎮", 622, seq)
     setareacode(form.Area2, "溪口鄉", 623, seq)
     setareacode(form.Area2, "義竹鄉", 624, seq)
     setareacode(form.Area2, "布袋鎮", 625, seq)
  }
  else if (area_index == 15){
     count1= 1
     setareacode(form.Area2, "斗南鎮", 630, seq)
     setareacode(form.Area2, "大埤鄉", 631, seq)
     setareacode(form.Area2, "虎尾鎮", 632, seq)
     setareacode(form.Area2, "土庫鎮", 633, seq)
     setareacode(form.Area2, "褒忠鄉", 634, seq)
     setareacode(form.Area2, "東勢鄉", 635, seq)
     setareacode(form.Area2, "台西鄉", 636, seq)
     setareacode(form.Area2, "崙背鄉", 637, seq)
     setareacode(form.Area2, "麥寮鄉", 638, seq)
     setareacode(form.Area2, "斗六市", 640, seq)
     setareacode(form.Area2, "林內鄉", 643, seq)
     setareacode(form.Area2, "古坑鄉", 646, seq)
     setareacode(form.Area2, "莿桐鄉", 647, seq)
     setareacode(form.Area2, "西螺鎮", 648, seq)
     setareacode(form.Area2, "二崙鄉", 649, seq)
     setareacode(form.Area2, "北港鎮", 651, seq)
     setareacode(form.Area2, "水林鄉", 652, seq)
     setareacode(form.Area2, "口湖鄉", 653, seq)
     setareacode(form.Area2, "四湖鄉", 654, seq)
     setareacode(form.Area2, "元長鄉", 655, seq)
  }
  else if (area_index == 16){
     count1= 1
     setareacode(form.Area2, "中西區", 700, seq)
     setareacode(form.Area2, "東　區", 701, seq)
     setareacode(form.Area2, "南　區", 702, seq)
     setareacode(form.Area2, "北　區", 704, seq)
     setareacode(form.Area2, "安平區", 708, seq)
     setareacode(form.Area2, "安南區", 709, seq)
//  }
//  else if (area_index == 17){
//     count1= 1
     setareacode(form.Area2, "永康區", 710, seq)
     setareacode(form.Area2, "歸仁區", 711, seq)
     setareacode(form.Area2, "新化區", 712, seq)
     setareacode(form.Area2, "左鎮區", 713, seq)
     setareacode(form.Area2, "玉井區", 714, seq)
     setareacode(form.Area2, "楠西區", 715, seq)
     setareacode(form.Area2, "南化區", 716, seq)
     setareacode(form.Area2, "仁德區", 717, seq)
     setareacode(form.Area2, "關廟區", 718, seq)
     setareacode(form.Area2, "龍崎區", 719, seq)
     setareacode(form.Area2, "官田區", 720, seq)
     setareacode(form.Area2, "麻豆區", 721, seq)
     setareacode(form.Area2, "佳里區", 722, seq)
     setareacode(form.Area2, "西港區", 723, seq)
     setareacode(form.Area2, "七股區", 724, seq)
     setareacode(form.Area2, "將軍區", 725, seq)
     setareacode(form.Area2, "學甲區", 726, seq)
     setareacode(form.Area2, "北門區", 727, seq)
     setareacode(form.Area2, "新營區", 730, seq)
     setareacode(form.Area2, "後壁區", 731, seq)
     setareacode(form.Area2, "白河區", 732, seq)
     setareacode(form.Area2, "東山區", 733, seq)
     setareacode(form.Area2, "六甲區", 734, seq)
     setareacode(form.Area2, "下營區", 735, seq)
     setareacode(form.Area2, "柳營區", 736, seq)
     setareacode(form.Area2, "鹽水區", 737, seq)
     setareacode(form.Area2, "善化區", 741, seq)
     setareacode(form.Area2, "大內區", 742, seq)
     setareacode(form.Area2, "山上區", 743, seq)
     setareacode(form.Area2, "新市區", 744, seq)
     setareacode(form.Area2, "安定區", 745, seq)
  }
  else if (area_index == 18){
     count1= 1
     setareacode(form.Area2, "新興區", 800, seq)
     setareacode(form.Area2, "前金區", 801, seq)
     setareacode(form.Area2, "苓雅區", 802, seq)
     setareacode(form.Area2, "鹽埕區", 803, seq)
     setareacode(form.Area2, "鼓山區", 804, seq)
     setareacode(form.Area2, "旗津區", 805, seq)
     setareacode(form.Area2, "前鎮區", 806, seq)
     setareacode(form.Area2, "三民區", 807, seq)
     setareacode(form.Area2, "楠梓區", 811, seq)
     setareacode(form.Area2, "小港區", 812, seq)
     setareacode(form.Area2, "左營區", 813, seq)
//  }
//  else if (area_index == 19){
//     count1= 1
     setareacode(form.Area2, "仁武區", 814, seq)
     setareacode(form.Area2, "大社區", 815, seq)
     setareacode(form.Area2, "岡山區", 820, seq)
     setareacode(form.Area2, "路竹區", 821, seq)
     setareacode(form.Area2, "阿蓮區", 822, seq)
     setareacode(form.Area2, "田寮區", 823, seq)
     setareacode(form.Area2, "燕巢區", 824, seq)
     setareacode(form.Area2, "橋頭區", 825, seq)
     setareacode(form.Area2, "梓官區", 826, seq)
     setareacode(form.Area2, "彌陀區", 827, seq)
     setareacode(form.Area2, "永安區", 828, seq)
     setareacode(form.Area2, "湖內區", 829, seq)
     setareacode(form.Area2, "鳳山區", 830, seq)
     setareacode(form.Area2, "大寮區", 831, seq)
     setareacode(form.Area2, "林園區", 832, seq)
     setareacode(form.Area2, "鳥松區", 833, seq)
     setareacode(form.Area2, "大樹區", 840, seq)
     setareacode(form.Area2, "旗山區", 842, seq)
     setareacode(form.Area2, "美濃區", 843, seq)
     setareacode(form.Area2, "六龜區", 844, seq)
     setareacode(form.Area2, "內門區", 845, seq)
     setareacode(form.Area2, "杉林區", 846, seq)
     setareacode(form.Area2, "甲仙區", 847, seq)
     setareacode(form.Area2, "桃源區", 848, seq)
     setareacode(form.Area2, "三民區", 849, seq)
     setareacode(form.Area2, "茂林區", 851, seq)
     setareacode(form.Area2, "茄萣區", 852, seq)
  }
  else if (area_index == 20){
     count1= 1
     setareacode(form.Area2, "屏東市", 900, seq)
     setareacode(form.Area2, "三地門鄉", 901, seq)
     setareacode(form.Area2, "霧台鄉", 902, seq)
     setareacode(form.Area2, "瑪家鄉", 903, seq)
     setareacode(form.Area2, "九如鄉", 904, seq)
     setareacode(form.Area2, "里港鄉", 905, seq)
     setareacode(form.Area2, "高樹鄉", 906, seq)
     setareacode(form.Area2, "盬埔鄉", 907, seq)
     setareacode(form.Area2, "長治鄉", 908, seq)
     setareacode(form.Area2, "麟洛鄉", 909, seq)
     setareacode(form.Area2, "竹田鄉", 911, seq)
     setareacode(form.Area2, "內埔鄉", 912, seq)
     setareacode(form.Area2, "萬丹鄉", 913, seq)
     setareacode(form.Area2, "潮州鎮", 920, seq)
     setareacode(form.Area2, "泰武鄉", 921, seq)
     setareacode(form.Area2, "來義鄉", 922, seq)
     setareacode(form.Area2, "萬巒鄉", 923, seq)
     setareacode(form.Area2, "崁頂鄉", 924, seq)
     setareacode(form.Area2, "新埤鄉", 925, seq)
     setareacode(form.Area2, "南州鄉", 926, seq)
     setareacode(form.Area2, "林邊鄉", 927, seq)
     setareacode(form.Area2, "東港鎮", 928, seq)
     setareacode(form.Area2, "琉球鄉", 929, seq)
     setareacode(form.Area2, "佳冬鄉", 931, seq)
     setareacode(form.Area2, "新園鄉", 932, seq)
     setareacode(form.Area2, "枋寮鄉", 940, seq)
     setareacode(form.Area2, "枋山鄉", 941, seq)
     setareacode(form.Area2, "春日鄉", 942, seq)
     setareacode(form.Area2, "獅子鄉", 943, seq)
     setareacode(form.Area2, "車城鄉", 944, seq)
     setareacode(form.Area2, "牡丹鄉", 945, seq)
     setareacode(form.Area2, "恆春鎮", 946, seq)
     setareacode(form.Area2, "滿州鄉", 947, seq)
  }
  else if (area_index == 21){
     count1= 1
     setareacode(form.Area2, "花蓮市", 970, seq)
     setareacode(form.Area2, "新城鄉", 971, seq)
     setareacode(form.Area2, "秀林鄉", 972, seq)
     setareacode(form.Area2, "吉安鄉", 973, seq)
     setareacode(form.Area2, "壽豐鄉", 974, seq)
     setareacode(form.Area2, "鳳林鎮", 975, seq)
     setareacode(form.Area2, "光復鄉", 976, seq)
     setareacode(form.Area2, "豐濱鄉", 977, seq)
     setareacode(form.Area2, "瑞穗鄉", 978, seq)
     setareacode(form.Area2, "萬榮鄉", 979, seq)
     setareacode(form.Area2, "玉里鎮", 981, seq)
     setareacode(form.Area2, "卓溪鄉", 982, seq)
     setareacode(form.Area2, "富里鄉", 983, seq)
  }
  else if (area_index == 22){
     count1= 1
     setareacode(form.Area2, "臺東市", 950, seq)
     setareacode(form.Area2, "綠島鄉", 951, seq)
     setareacode(form.Area2, "蘭嶼鄉", 952, seq)
     setareacode(form.Area2, "延平鄉", 953, seq)
     setareacode(form.Area2, "卑南鄉", 954, seq)
     setareacode(form.Area2, "鹿野鄉", 955, seq)
     setareacode(form.Area2, "關山鎮", 956, seq)
     setareacode(form.Area2, "海端鄉", 957, seq)
     setareacode(form.Area2, "池上鄉", 958, seq)
     setareacode(form.Area2, "東河鄉", 959, seq)
     setareacode(form.Area2, "成功鎮", 961, seq)
     setareacode(form.Area2, "長濱鄉", 962, seq)
     setareacode(form.Area2, "太麻里鄉", 963, seq)
     setareacode(form.Area2, "金峰鄉", 964, seq)
     setareacode(form.Area2, "大武鄉", 965, seq)
     setareacode(form.Area2, "達仁鄉", 966, seq)
  }
  else if (area_index == 23){
     count1= 1
     setareacode(form.Area2, "馬公市", 880, seq)
     setareacode(form.Area2, "西嶼鄉", 881, seq)
     setareacode(form.Area2, "望安鄉", 882, seq)
     setareacode(form.Area2, "七美鄉", 883, seq)
     setareacode(form.Area2, "白沙鄉", 884, seq)
     setareacode(form.Area2, "湖西鄉", 885, seq)
  }
  else if (area_index == 24){
     count1= 1
     setareacode(form.Area2, "金沙鎮", 890, seq)
     setareacode(form.Area2, "金湖鎮", 891, seq)
     setareacode(form.Area2, "金寧鄉", 892, seq)
     setareacode(form.Area2, "金城鎮", 893, seq)
     setareacode(form.Area2, "烈嶼鄉", 894, seq)
     setareacode(form.Area2, "烏坵鄉", 896, seq)
  }
  else if (area_index == 25){
     count1= 1
     setareacode(form.Area2, "南竿鄉", 209, seq)
     setareacode(form.Area2, "北竿鄉", 210, seq)
     setareacode(form.Area2, "莒光鄉", 211, seq)
     setareacode(form.Area2, "東引鄉", 212, seq)
  }
}

function setareacode(form, str, code, seq)
{
    count1 = count1 + 1;
    form.selectedIndex = 0;
    form.options.length = count1;
    form.options[count1-1].text = str;
    if (count1==2){form.options[count1-1].value = code;}
    else{ form.options[count1-1].value = code;}
}