ASP留言板，运行错误。

Question

我在html里嵌入了留言本，并上传到了服务器。但是，当我点击发表的时候，就会出现下面的错误提示。
怎样解决这个问题呢？ 是否和服务器Linux系统有关呢？即使我已经设置了权限，，，
以下是跳出页面代码=================================================
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<%
Dim rs,sql,ErrMsg,FoundErr
Dim xml_dom,t_title,t_content,t_author,t_is_private,t_author_ip,t_post_time,t_admin_replySet xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.Load Requestt_title = Trim(xml_dom.selectSingleNode("root/t_title").text)
t_content = xml_dom.selectSingleNode("root/t_content").text
t_author = Trim(xml_dom.selectSingleNode("root/t_author").text)
t_is_private = Trim(xml_dom.selectSingleNode("root/t_is_private").text)
Set xml_dom = NothingResponse.ContentType = "text/xml"
Response.CharSet = "gb2312"ErrMsg = ""
FoundErr = FalseIf t_title = "" Then
ErrMsg = ErrMsg & "留言主题不能为空！"
FoundErr = True
End IfIf t_content = "" Then
ErrMsg = ErrMsg & "留言内容不能为空！"
FoundErr = True
End IfIf Len(t_title) > 50 Then
ErrMsg = ErrMsg & "留言主题不能超过50个字符！"
FoundErr = True
End IfIf Len(t_author) > 20 Then
ErrMsg = ErrMsg & "您的大名不能超过20个字符！"
FoundErr = True
End IfIf FoundErr Then
CloseConn
Response.Write ErrMsg
Response.End
End IfIf t_author = "" Then
t_author = ""
End IfIf t_is_private <> "1" Then
t_is_private = "0"
End Ift_author_ip = Request.ServerVariables("REMOTE_ADDR")
If t_author_ip = "127.0.0.1" Then
t_author_ip = "192.168.0.1"
End If
t_post_time = Now
t_admin_reply = ""Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "m_topic"
rs.Open sql,Conn,0,3
rs.AddNew
rs("t_title") = t_title
rs("t_content") = t_content
rs("t_author") = t_author
rs("t_author_ip") = t_author_ip
rs("t_post_time") = t_post_time
rs("t_is_private") = CInt(t_is_private)
rs("t_admin_reply") = t_admin_reply
rs("t_last_modify_time") = t_post_time
rs.Update
rs.Close
Set rs = NothingCloseConn
Response.Write "ok"
%>