<%
dim curarea : curarea = request.cookies("anxinMall_user")("currentarea2")
if curarea<>"Ö÷Õ¾" then
	connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../include/database/#anxinmall.mdb")
	Set conn = Server.CreateObject("ADODB.Connection")

	conn.Open connstr

	set rs=server.createobject("adodb.recordset")
	rs.open "SELECT top 10 id,catname FROM anxinMall_District where fid in (select id from anxinMall_District where catname='"&curarea&"')",conn,1,3
	do while not rs.eof
%>		
	document.writeln("<a href=/index.asp?areaid=<%=rs("id")%>><%=rs("catname")%></a>&nbsp;");
<%
	rs.movenext
	loop
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
else
	connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../include/database/#anxinmall.mdb")
	Set conn = Server.CreateObject("ADODB.Connection")

	conn.Open connstr

	set rs=server.createobject("adodb.recordset")
	rs.open "SELECT top 10 id,catname,tuijian FROM anxinMall_District where tuijian=1",conn,1,3
	do while not rs.eof
%>		
	document.writeln("<a href=/index.asp?areaid=<%=rs("id")%>><%=rs("catname")%></a>&nbsp;");
<%
	rs.movenext
	loop
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
end if
%>