[求助]编译器错误 语句未结束
错误类型：Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/wanfangbook/admin/AddChildMeun.asp, line 14, column 63
rs.open="Select * From MenuClass Where ClassName='"&PrvName&"'"conn,1,3
--------------------------------------------------------------^
源代码：
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<%
dim sql,ClassID,ClassName, LinkUrl,PrvID,NextID,ParentID,rs,ErrMsg,PrvName,NextName
ParentID=trim(Request("ParentID"))
ClassName=trim(Request("ClassName"))
ClassID=trim(Request("ClassID"))
LinkUrl=trim(Request("LinkUrl"))
NextName=trim(Request("NextName"))
PrvName=trim(Request("PrvName"))
set rs = server.CreateObject("adodb.recordset")
rs.open="Select * From MenuClass Where ClassName='"&PrvName&"'",conn,1,3
PrvID=rs("ClassID")
rs.close
set rs=nothing
rs.open="Select * From MenuClass where ClassName='"&NextName&"'",conn,1,3
NextID=rs("ClassID")
rs.close
set rs=nothing
sql="select * from MenuClass"
conn.Execute sql
if Action="Add" then
rs.open"selece * From MenuClass where ClassName='"&ClassName&"'and ClassID="&ClassID&"",conn,1,3
if not rs.eof then
ErrMsg=ErrMsg & "<br><li>该菜单已经存在</li>"
else
rs.addnew
rs("ClassName")=ClassName
rs("ClassID")=ClassID
rs("ParentID")=ParentID
rs("LinkUrl")=LinkUrl
rs("PrvID")=PrvID
rs("NextID")=NextID
end if
end if
response.write(ParentID)
%>
不知是什么原因一直报这个错误，请高手给我指点迷津，谢谢!
