http500 内部错误？？？？

[bluesky98]

代码如下：
<%@ Language=“VBScript” %>
<%
Set obj = Server.CreateObject("LyfUpload.UploadFile")
obj.maxsize=2000000
IP=obj.request("ip")
Topic=trim(obj.request("subject"))

qishu=obj.request("qishu")
jg=obj.request("jg")
if isnumeric(qishu)=false then
response.write "<a href=javascript:history.back(1);>期数必须为整数,请返回</a>"
response.end
end if

if jg="#" then
response.write "<a href=javascript:history.back(1);>机构名称缺,请返回</a>"
response.end
end if

if Topic="" then
response.write "<a href=javascript:history.back(1);>标题缺,请返回</a>"
response.end
end if


Body=obj.request("body")

name=obj.request("name")
tel=obj.request("tel")

lm=obj.request("lm")
ss=""
upfile = obj.request("upfile")
'response.write upfile
if upfile<>"" then
upfile2=split(upfile,"\")
weishu=ubound(upfile2)
upfile3=cstr(upfile2(weishu))
dweizhi=InstrRev(upfile3,".")
shijian=replace(now()," ","")
shijian=replace(shijian,"上午","")
shijian=replace(shijian,"下午","")
shijian=replace(shijian,"/","")
shijian=replace(shijian,":","")
shijian=replace(shijian,"-","")

if dweizhi<>0 then
extname=mid(upfile3,dweizhi+1,len(upfile3)-dweizhi)
if extname="asp" then
response.write "安全性考虑,请不要上传扩展名为.asp的脚本文件!"
response.end
end if
realfilename=shijian&"."&extname
else
realfilename=shijian
end if

'ss=obj.SaveFile("file1",server.mappath("upfilejl/"),cstr(realfilename))
'ss=obj.SaveFile("file1","c:\inetpub\bakin\admin\jigou\bgs_tougao\upfilejl",cstr(realfilename))
'ss=obj.SaveFile("file1","c:\",false,cstr(realfilename))
ss=obj.SaveFile("file1", server.mappath("upload/1/"), false,cstr(realfilename))
aa=obj.filetype("file1")
if ss<> "" then
Response.Write "选择的文件已经上载到服务器！<br>"
Response.Write("文件名：" & ss)
Response.Write("<br>Content-Type：" & aa) '得到Content-Type
Response.Write("文件大小：" & obj.FileSize)
end if

end if
%>
<!--#include file="../data.inc" -->

<%
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
InsertCursor.Open "select * from bgs_tougao",cn,1,3
InsertCursor.AddNew
InsertCursor("Topic") =replace(replace(replace(replace(Topic,"<","<"),">",">"),chr(13),"<br>")," "," ")
InsertCursor("Body") =replace(replace(replace(replace(body,"<","<"),">",">"),chr(13),"<br>")," "," ")
InsertCursor("DateAndTime") =now()
InsertCursor("ip")=ip
InsertCursor("tel")=tel
InsertCursor("jg")=jg
InsertCursor("name")=name
InsertCursor("lm")=lm
InsertCursor("luyong")=0
if ss<>"" then
InsertCursor("upfile")=cstr(realfilename)
end if
InsertCursor("qishu")=qishu
InsertCursor.Update
insertcursor.close
cn.close
%>

<script>
alert("成功上报...,请返回");
history.back(1);

表bgs_tougao的结构：
列名 类型 长度 精度
announceid int 4 10
topic nvarchar 200 0
body ntext 16 0
dateandtime smalldatetime 4 0
ip varchar 50
tel varchar 50 0
jg varchar 50 0
tel(name) varchar 50 0
lm int 4 10
luyong bit 1 0
upfile varchar 50 0
qishu int 4 10

[ministry_bill]

将这段注释掉
<%
Set cmdTemp = Server.CreateObject("ADODB.Command")
Set InsertCursor = Server.CreateObject("ADODB.Recordset")
InsertCursor.Open "select * from bgs_tougao",cn,1,3
InsertCursor.AddNew
InsertCursor("Topic") =replace(replace(replace(replace(Topic,"<","<"),">",">"),chr(13),"<br>")," "," ")
InsertCursor("Body") =replace(replace(replace(replace(body,"<","<"),">",">"),chr(13),"<br>")," "," ")
InsertCursor("DateAndTime") =now()
InsertCursor("ip")=ip
InsertCursor("tel")=tel
InsertCursor("jg")=jg
InsertCursor("name")=name
InsertCursor("lm")=lm
InsertCursor("luyong")=0
if ss<>"" then
InsertCursor("upfile")=cstr(realfilename)
end if
InsertCursor("qishu")=qishu
InsertCursor.Update
insertcursor.close
cn.close
%>
看是否还报错？