<%
set rsObj = Server.CreateObject("ADODB.recordset")
strSql = "SELECT * FROM DrList where show='1' or show='3' order by sort"
rsObj.open strSql,connDB,1,3,1
while not rsObj.eof
id=rsObj("ambit_id")
set rsObj1 = Server.CreateObject("ADODB.recordset")
strSql1 = "SELECT * FROM ambit where id =" & id
rsObj1.open strSql1,connDB,1,3,1
%>
