ASP代码问题 高手进 高分

sub foot()
m_foot=replace(m_foot,"$weburl$",weburl)
m_foot=replace(m_foot,"$webname$",webname)
m_foot=replace(m_foot,"$webemail$",webemail)
m_foot=replace(m_foot,"$sitebuild$",sitebuild)
m_foot=replace(m_foot,"]</span>","")
m_foot=replace(m_foot,"$webstyle$",mb_name&"]</span><br>Power By <a href="" http://www.xksj.net/"" target=""_blank"">The WbCpU Studio</a> Version：xksj.net")
m_foot=replace(m_foot,"$webboss$",webboss)
sql="select url,title,target,name from Ft_menu where items=0 and navwz=0 and shown=true"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
footurl=rs(0)
foottitle=rs(1)
foottarget=rs(2)
footname=rs(3)
footmenu=footmenu+"<a href="&footurl&" title="&foottitle&" target="&foottarget&">"&footname&"</a>&nbsp;|&nbsp;"
rs.movenext
loop
footmenu=replace(footmenu,"_self>静音版","_top>静音版")
else
footmenu="欢迎使用新酷数据网站源码中心系统"
end if
rs.close:set rs=nothing
if right(footmenu,7)="|&nbsp;" then
footmenu=left(footmenu,len(footmenu)-7)
end if
m_foot=replace(m_foot,"{$footmenu}",footmenu)
response.write m_foot
CloseDatabase
end sub

上面一段代码删去</span><br>Power By <a href="" http://www.xksj.net/"" target=""_blank"">The WbCpU Studio</a> Version：xksj.net") 第七行后就不能显示整个foot信息了

为什么？

有什么解决方法？