有关函数传递的问题

当我点击下拉菜单中的项后，会出现提示为类型不匹配：‘new_StationName’原因何在？
小弟在线等待！千恩万谢了！请大侠帮我。付原码：
<script language=VbScript>
<%
sub new_StationName()
set conn=server.CreateObject("adodb.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=C:\Documents and Settings\administrator\My Documents\Visual Studio Projects\Project2\Project2_Local\login.mdb"
Sql="select * form DeviceBug where StationName='"&left(Request.Form("class1"),2)&"'"
set rs=conn.Execute(sql)
%>
设备类型:
<%while not rs1.EOF %>
<%=rs("DeviceType")%>
<% rs.MoveNext
wend
rs.Close
set Sqlstr1=nothing%>

<%end sub%>
</script>
<% set rs = server.CreateObject ("ADODB.Recordset")
SQLstr="select DISTINCT StationName from DeviceBug where StationName ='东郊变电站'or'西郊变电站'"
rs.Open SQLstr,conn,1,1%>
<tr>
<td class="chinese" width="871" bgcolor="#FFFFCC" align="left" height="1">
<form action="asp page1.asp" id=form1 method=post name="form1>
变电站名称:<select name="class1" onchange="new_StationName()">
<% while not rs.EOF %>
<option value=<%=rs("StationName")%>><%=rs("StationName")%></option>
<% rs.MoveNext
wend
rs.Close
set Sqlstr=nothing%>
</select>
</tr>