<%
Response.Write"<table width='999' border='0' align='center' cellpadding='0' cellspacing='0' class='footSitemap' bgcolor='#FFFFFF'>"
Response.Write"<tr><td align='center'  Class=MainBottm>"
  set rs = server.createobject("adodb.recordset")
  sql="select * from Web_rui_v_About where ViewFlag=1 order by id asc"
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "暂无导航"
  else
    do
	  response.write "<a href='About.asp?ID="&rs("ID")&"' >"&rs("AboutName")&"</a>"
	  rs.movenext
	  if not rs.eof then response.write "&nbsp;|&nbsp;"
	loop until rs.eof
  end if 
	  response.write "&nbsp;|&nbsp;<a href='link.asp' >合作媒体</a>"
  rs.close
  set rs=nothing
Response.Write"</td></tr><tr>"
Response.Write"<td align='center' Class=MainBottm>"&SiteTitle&" Copyright 2009-2010 @ All Rights Reserved "&Verban&"  <a href='http://www.miibeian.gov.cn/' target='_blank'>"&SiteTcp&"</a><br />"
Response.Write"邮件："&email&" 电话："&tel&"　 地址："&address&" </td></tr>"
Response.Write"</table>"
%>
