Microsoft VBScript 编译器错误 错误 '800a0400'

缺少语句

/wapcs/admin/addlm.asp，行 15 type=request("type") ^
代码ADDSML。ASP
<!--#include file="conn.asp"-->
<%
If request("Flag")="SEND" Then
type=request("type")
list=request("list")
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from bty where type='"&type&"'",conn
elseif Not rs eof Then response.write"已经有了该类别别"
Else
conn.execute"insert into bty(type,list) values('"&type&"','"&list&"')"
End if
rs.close
Set rs=Nothing
conn.close
Set conn=nothing
%>
<FORM method="post" name="form1" ACTION="addlm.asp">
类名<INPUT TYPE="text" NAME="type">
排列<INPUT TYPE="text" NAME="list">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="重置">
<input name="Flag" type="hidden" value="SEND">
</FORM>

[此贴子已经被作者于2006-2-22 23:43:23编辑过]