<% SQL2="select * from Province order by ProvinceID " set rs2=server.CreateObject("ADODB.RecordSet") rs2.open SQL2,conn,1,1 do while not rs2.eof %>

"><%=rs2("Province")%>

<% ProvinceID=rs2("ProvinceID") Sql="select * from City_1 where ProvinceID ='"&ProvinceID&"'" set rs=server.CreateObject("ADODB.RecordSet") rs.open SQL,conn,1,1 do while not rs.eof %> target="MainFrame"><%=rs("SortName")%> <% id=rs("SortNameID") sql1="select * from City_2 where SortNameID='"&id&"'" set rs1=server.CreateObject("ADODB.RecordSet") rs1.open sql1,conn,1,1 do while not rs1.eof %> " target="MainFrame"><%=rs1("City")%> <%rs1.MoveNext Loop %> <% rs.MoveNext Loop rs.close set rs=nothing %>

<% rs2.MoveNext LOOP rs2.close set rs2=nothing conn.close set conn=nothing %>