动网论坛的错误，

问题描述：

错误信息
您在执行“更新基本设置”操作的时候发生错误，错误信息（1），以下为错误描述：

Microsoft VBScript 运行时错误 错误 '800a01f4'

变量未定义: 'i'

/hn/s_conn.asp，行 158

请高手指点怎么修改。
End Sub
'显示错误或成功信息
Dim Foundsmerr,ErrInfo,Myaction
Public Sub AddSMErrMsg(Errmsg)
ErrInfo=ErrInfo&Errmsg&"##"
Foundsmerr=True
End Sub
Public Sub ChkSMErr()
if Foundsmerr then
ErrInfo=split(ErrInfo,"##")
response.write "<table cellpadding=5 cellspacing=1 border=0 align=center class=tableborder1><tr><th height=25 align=center>错误信息</td></tr>"
response.write "<tr><td class=tablebody1>   <b>您在执行“<font color=red>"&Myaction&"</font>”操作的时候发生错误，错误信息（"&ubound(ErrInfo)&"），以下为错误描述：</b><br>"
for i=0 to ubound(ErrInfo)-1
response.write "<br><li>"&(i+1)&"、"&ErrInfo(i)
next
response.write "</td></tr><tr><td class=tablebody2 valign=middle align=center><a href=""javascript:history.go(-1)""><< 返回上一页</a></td></tr></table>"
response.end
end if

问题解答：

估计是你修改了系统模版里引起的，

你应该是修改论坛风格吧？

修改时最好备份一下默认值，遇到问题时两个对照一下。

你可以到官方下载默认模版进行还原！

更多问题解答请浏览宇峰社区http://www.rifoc.com

把s_conn.asp贴出来看看？

s_conn.asp 里应该有个数据库路径。你检查下哪个路径。。。。 和数据库的文件名称

。。。看来你没有贴完整哦。。我还不知道158行是什么内容
不过给个思路，把Dim Foundsmerr,ErrInfo,Myaction 修改为

Dim Foundsmerr,ErrInfo,i,Myaction

如果还不行就在Dim Foundsmerr,ErrInfo,i,Myaction 下面新建一行加上

i=0

看看。。。