Microsoft VBScript 运行时错误 (0x800A01A8)

[manflower]

function transmit()
{
var e=event.srcElement;
if(event.keyCode==13 && event.ctrlKey==1)
{
document.getElementById("btnSave").click();
return false;
}

<%
if request ("name")<>""then
dim rs,sql
set rs =server.CreateObject("ADODB.Recordset")
sql = "select * A.empno,B.dept_name,A.tel from tcms_user as A ,tcms_dept as B where A.nm ='"&request("name")&"' and A.dept_cd=B.dept_cd"
rs.open sql,conn,1,3
else
response.Write("没有此人")
end if

if request("name2")<>"" then

set rs =server.CreateObject("ADODB.Recordset")
sql = "select * A.empno,B.dept_name,A.tel from tcms_user as A ,tcms_dept as B where A.nm ='"&request("name2")&"' and A.dept_cd=B.dept_cd"
rs.open sql,conn,1,3
else
response.Write("没有此人")
end if

if request("name3")<>"" then

set rs =server.CreateObject("ADODB.Recordset")
sql = "select * A.empno,B.dept_name,A.tel from tcms_user as A ,tcms_dept as B where A.nm ='"&request("name3")&"' and A.dept_cd=B.dept_cd"
rs.open sql,conn,1,3
else
response.Write("没有此人")
end if

%>
<%
rs.movenext
rs.close
set rs=Nothing
%>
}


错误： <%
rs.movenext
rs.close
set rs=Nothing
%>
缺少 ‘’ ，大侠们帮忙啊！！！！

[lzp4881]

什么逻辑？

[ruihuo]

你具体查下是哪一行出现错误,
错误提示是什么?

[toury]

sql = "select tcms_user.empno,tcms_dept.dept_name,tcms_user.tel from tcms_user ,tcms_dept where tcms_user.nm ='"&request("name")&"' and tcms_user.dept_cd=tcms_dept.dept_cd"