VBScript中Sub过程问题

VBScript code

<script type="vbscript">sub scour_onclick()if searchx.province.value="" then  window.alert("请选择省份！")  exit subend ifif searchx.cityID.value="" then  window.alert("请选择城市！")  exit subend ifif searchx.inTime.value<now() then  window.alert("入住日期不能早于当前日期！")  exit subend ifif searchx.outTime.value<=searchx.inTime.value then  window.alert("离开日期至少应比入住日期晚1天！")  exit subend ifsearchx.submitend sub</script><script type="text/javascript"><!--function MM_jumpMenu(targ,selObj,restore){  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");  if (restore) selObj.selectedIndex=0;}//--></script><form action="search.asp" method="post" name="searchx" id="searchx"><select name="province" id="province" onChange="javascript:MM_jumpMenu('parent',this,0)">  <option value="<%=url%>">请选择省份</option></select><select name="city" id="city" onChange="javascript:MM_jumpMenu('parent',this,0)">  <option value="<%=url%>">城市</option></select><input type="hidden" name="cityID" id="cityID" value="<%=cityID%>"><input type="text" name="inTime" id="inTime" value="0000-00-00" onFocus="javascript:this.value=''"><input type="text" name="outTime" id="outTime" value="0000-00-00" onfocus="javascript:this.value=''"><input type="button" name="scour" id="scour" value="查询"><input type="reset" name="res" id="res" value="重置">

单击scour按钮，没有任何反应，也不报错，不知道是哪里出的问题，JavaScript的都能执行

[解决办法]
<script type="vbscript"> 改成 <script language="vbscript"> 就可以了。