asp取数据循环生成xml文件问题?

数据库是ACCESS的,有个表是:Sheng,值如下:

id name sort  
1 深圳市 1
2 东莞市 1
3 清远市 1
4 珠海市 1
5 长沙市 5
6 株洲市 5
7 湛江市 1
8 武汉市 6
9 上凡市 6
10 衡阳市 5
...

我想将这个表的数值取出来,以下面的格式列出来:
============================================================
1
d1=深圳市 d2=东莞市 d3=清远市 d4=珠海市 d5=湛江市
5
d1=长沙市 d2=株洲市 d3=衡阳市
6
d1=武汉市 d2=上凡市
....
============================================================
请问怎么写SQL和循环语句将表记录这样列出来.谢谢了!

还发,最多d值是:d40,如果没这么多记录,那就d3="" d4="" d5="" ... d40=""

在线等!谢谢了!

VBScript code

xmlfile=server.mappath("../../alumniSchoolData.xml") 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set MyFile = fso.CreateTextFile(xmlfile,True) 
MyFile.WriteLine("<?xml version=""1.0"" encoding=""GBK""?>")
MyFile.WriteLine("<AreaData>") 
    set rsa= Server.CreateObject("adodb.recordset")
    rsa.Open"Select * From Sort order by NS_Order asc",Conn,1,1
    if rsa.eof and rsa.bof then
MyFile.WriteLine("<AreaItem AreaID=""29"" d1=""29"" />") 
MyFile.WriteLine("<AreaItem AreaID=""26"" d1=""26"" />") 
MyFile.WriteLine("<AreaItem AreaID=""25"" d1=""25"" />") 
MyFile.WriteLine("<AreaItem AreaID=""20"" d1=""20"" />") 
MyFile.WriteLine("<AreaItem AreaID=""30"" d1=""30"" />")
MyFile.WriteLine("<AreaItem AreaID=""32"" d1=""32"" />")
MyFile.WriteLine("<AreaItem AreaID=""16"" d1=""16"" />")
MyFile.WriteLine("<AreaItem AreaID=""19"" d1=""19"" />") 
MyFile.WriteLine("<AreaItem AreaID=""11"" d1=""11"" />") 
MyFile.WriteLine("<AreaItem AreaID=""15"" d1=""15"" />") 
MyFile.WriteLine("<AreaItem AreaID=""7"" d1=""7"" />") 
MyFile.WriteLine("<AreaItem AreaID=""10"" d1=""10"" />") 
MyFile.WriteLine("<AreaItem AreaID=""22"" d1=""22"" />") 
MyFile.WriteLine("<AreaItem AreaID=""18"" d1=""18"" />") 
MyFile.WriteLine("<AreaItem AreaID=""28"" d1=""28"" />") 
MyFile.WriteLine("<AreaItem AreaID=""33"" d1=""33"" />") 
MyFile.WriteLine("<AreaItem AreaID=""13"" d1=""13"" />") 
MyFile.WriteLine("<AreaItem AreaID=""9"" d1=""9"" />")
MyFile.WriteLine("<AreaItem AreaID=""5"" d1=""5"" />")
MyFile.WriteLine("<AreaItem AreaID=""4"" d1=""4"" />")
MyFile.WriteLine("<AreaItem AreaID=""0"" d1=""0"" />") 
MyFile.WriteLine("<AreaItem AreaID=""14"" d1=""14"" />") 
MyFile.WriteLine("<AreaItem AreaID=""12"" d1=""12"" />") 
MyFile.WriteLine("<AreaItem AreaID=""3"" d1=""3"" />") 
MyFile.WriteLine("<AreaItem AreaID=""8"" d1=""8"" />") 
MyFile.WriteLine("<AreaItem AreaID=""6"" d1=""6"" />") 
MyFile.WriteLine("<AreaItem AreaID=""17"" d1=""17"" />") 
MyFile.WriteLine("<AreaItem AreaID=""24"" d1=""24"" />") 
MyFile.WriteLine("<AreaItem AreaID=""27"" d1=""27"" />") 
MyFile.WriteLine("<AreaItem AreaID=""21"" d1=""21"" />")
MyFile.WriteLine("<AreaItem AreaID=""23"" d1=""23"" />")
MyFile.WriteLine("<AreaItem AreaID=""31"" d1=""31"" />")
MyFile.WriteLine("<AreaItem AreaID=""2"" d1=""2"" />") 
MyFile.WriteLine("<AreaItem AreaID=""1"" d1=""1"" />") 
MyFile.WriteLine("<AreaItem AreaID=""34"" d1=""34"" />") 
else
do while not rsa.eof
dim str1,str2,str3,str0,k
str1="<AreaItem AreaID='"&rsa("NS_Order")&"' "

    set rsb= Server.CreateObject("adodb.recordset")
    rsb.Open"Select top 40 * From Sheng where N_Sortid="&rsa("NS_Order")&" order by N_id asc",Conn,1,1
    if rsb.eof and rsb.bof then
    str2="d1='' d2='' d3='' d4='' d5='' d6='' d7='' d8='' d9='' d10='' d11='' d12='' d13='' d14='' d15='' d16='' d17='' d18='' d19='' d20='' d21='' d22='' d23='' d24='' d25='' d26='' d27='' d28='' d29='' d30='' d31='' d32='' d33='' d34='' d35='' d36='' d37='' d38='' d39='' d40=''"
    'str2=str2&" />"
    'str0=str1+str2
    else
    for k=1 to 40
    do while not rsb.eof
    str2=""
    str2=str2&"d"&k&"='"&rsb("N_Name")&" "&rsb("N_Ramark")&"' "
    rsb.movenext
    loop
    next
    end if
    rsb.close
    set rsb=nothing
    
str2=str2&"/>"
str3=str1+str2

MyFile.WriteLine(""&str3&"") 
rsa.movenext
loop
end if
rsa.close
Set rsa=Nothing
MyFile.WriteLine("</AreaData>") 
MyFile.Close 

请问高手们怎么写啊.谢谢了.在线等!!!!!

http://www.gdec.org.cn/blog/user1/1/archives/2008/806.html

一般情况下,我不见写成XML文档,因为这涉及到权限问题;
最好生成XML格式的字符串比较好!

一般情况下,我不建议写成XML文档,因为这涉及到权限问题;
最好生成XML格式的字符串比较好!

我那个代码可以生成xml,只是取ACCESS数据,只列出第一条.没有全部列出来!!!!

检查一下是不是循环出现了问题

就是循环的问题嘛.我这里搞不太明白了