操作无效，ASP错误。求解决办法

<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/FUNC.asp" -->
<!--#include file="../../inc/upload_5xsoft.inc" -->
<%
'-----------------------------

Dim rs
Dim sql

'-----------------------------
DIM UPLOAD
SET UPLOAD=NEW UPLOAD_5XSOFT

If UPLOAD.FORM("operation")="add" Then
call Add
elseif UPLOAD.FORM("operation")="edit" Then
call Edit
ELSE
call showerr("系统提示：操作无效!")
end if

'-----------------------------
Function Add
if UPLOAD.FORM("title")="" then
call showerr("系统提示：标题不能为空!")
end if
if UPLOAD.FORM("content")="" then
call showerr("系统提示：内容不能为空!")
end if

DIM FILE
set file=upload.file("file")