<%
if request.querystring("areaid")<>"" then
	dim db:db="../../include/database/#anxinmall.mdb"
	dim connStr:connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	Set conn = Server.CreateObject("ADODB.Connection")

	conn.Open connstr
	dim areaid : areaid = request.querystring("areaid")
	set rs=server.createobject("adodb.recordset")
	rs.open "Select id,catname from [anxinMall_District] where id= "&areaid,conn,1,3
	if rs.recordcount>0 then
		response.cookies("anxinMall_user")("currentid") = request.querystring("areaid")
		response.cookies("anxinMall_user")("currentarea2") = rs("catname")
	end if
	rs.close
	set rs = nothing
	conn.close
	set conn = nothing
else
	if request.cookies("anxinMall_user")("currentid")<>"" then
	else
		response.cookies("anxinMall_user")("currentarea2")="Ö÷Õ¾"
		response.cookies("anxinMall_user")("currentid") =""
	end if
end if
%>document.writeln("<a href=/delcookies.asp>[È«¹úÕ¾]</a>&nbsp;<font color=#00968a size=2><strong><%=request.cookies("anxinMall_user")("currentarea2")%></strong></font>");