<!--#include file="mycartconn/conn.asp"-->
<%Response.ExpiresAbsolute =dateadd("m",-1,now())%>
<%
Set rs = conn.Execute("select home,url,lx,bt from url where (zt = 1) AND (home <> '') AND (url <> '') AND (home <> url)")
If rs.EOF Then
else
	dim str
	str = ""
	do while not rs.eof
		str = str & rs(0) & "," & rs(1) & "," & rs(2) & "," & rs(3) & "||"
		rs.movenext
	loop
	If Right(str, 2) = "||" Then str = Left(str, Len(str) - 2)
	response.write "a="""&str&""""
end if

rs.close:set rs=nothing
conn.close:set conn=nothing
%>