求助各位大虾帮我看看代码

这段代码就是移植在其它服务器上就不行了，在2003上可以


\'注  意：
\' 1、strUrl 新闻详细信息链接地址
\' 2、TitleLen 新闻标题长度
\' 3、Num 显示新闻记录数
\' 4、DateSkins 日期格式：格式1 2005年4月17日 格式2 2005-4-17 格式5 2005-04-17
\'/////////////////////////////////////////////////////////////////////////////////////////
Dim strUrl, TitleLen, Num, chkDate, DateSkins
strUrl = \"../04_news/newsInfo.asp\"
TitleLen = 40
Num = 6
chkDate = 1
DateSkins = 5
%>
                                    <table width=\"98%\" border=\"0\" align=\"center\" cellpadding=\"0\" cellspacing=\"0\">
                                      <%
set RsList = server.CreateObject(\"adodb.recordset\")
SqlList = \" select ArtID, ArtTitle, ArtHits, ArtUpdateTime, ArtType from ArticleList00 \"
SqlList = SqlList + \" where ArtID >= 1 \"
SqlList = SqlList + \" order by ArtRank, ArtUpdateTime, ArtID \"
RsList.open SqlList, objConn, 1, 1
for RsList_i = 1 to Num
  if not RsList.eof then
%>
                                      <tr>
                                        <td width=\"80%\" height=\"20\" class=\"textbox\"><strong><img src=\"../IMAGE/arrow.gif\" width=\"4\" height=\"7\"></strong><a href=\"javascript:winopen(\'<% = strUrl %>?ID=<% = RsList(\"ArtID\")%>\',600,480)\" title=\"<% = Server.Htmlencode(RsList(\"ArtTitle\")) %>\">
                                          <% = gotTopic( RsList(\"ArtTitle\"), TitleLen )%>
                                          </a></td>
                                        </tr>
                                      <%
      RsList.movenext
  else
%>
                                      <tr>  
                                        <td height=\"25\" class=\"newsBg\"> </td>
                                        </tr>
                                      <%  
  end if  
  \'if RsList.eof then exit for
next
RsList.close
set RsList = nothing

%>

是不是网站根目录，应该是目录问题