跪求解决办法

帮帮忙朋友们，我的网页提示：错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
xxw/modynews.asp, line 10, column 12
dim worktype=request.QueryString("worktype")
-----------^
这是我那代码，帮瞧瞧指导一下吧大哥！
<%
dim worktype=request.QueryString("worktype")
if worktype="" then
%>
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0">
   <tr>
     <td align="center">欢迎您使用文章发布管理系统</td>
   </tr>
</table>
<%
elseif worktype="add"
then
Response.Write= ("当前是添加")
elseif worktype="mody"
then
Response.Write= ("当前是编辑")
end if
%>