有没有谁能将下面的代码写成VBScript的呀?

Question

试试 、 看看能能运行<SCRIPT language="vbScript">  
             dim values,lables
             dim i,k         
             select case (document.Form1.d_techpostkind.value)
                  case "中国"
                   values = Array("深圳","广州","上海")
                   lables = Array("深圳","广州","上海")
                  case "数字"
                    values = Array("123","234","345")
                    lables = Array("123","234","345")
               end select                document.Form1.d_techpost.options.length =0                for i =0 to UBound(lables)
                  document.Form1.d_techpost.add(document.createElement("OPTION"))
                  document.Form1.d_techpost.options(i).value = values(i)
                  document.Form1.d_techpost.options(i).text = lables(i)
                next
</Script>