sql = "select distinct [area] from pp"
sql.open sql,conn,1,1
do while not rs.eof
response.write rs(0)&"<br>"
sql1 = "select [name] from pp where [area] = '"&rs(0)&"'"
rs1.open sql1,conn,1,1
do while not rs1.eof
response.write rs1(0)&"<br>"
rs1.movenext
loop
rs.movenext
loop
rs.close