怎样把查询的结果自动分类?

[xiaoxi_2011]

有一Sort表,内有ID,SortName,ViewFlag,ParentID等字段,如下图所示:

我想查询这张表,然后把查询得到的结果自动按SortName字段的首个字母来分类,
就说是把用SortName字段值来判断,SortName字段值首个字母为A的记录归为一类,SortName字段值首个字母为X的记录归为一类,大概效果如下图


请问这个要怎么实现呢?
谢谢了

[xiaoxi_2011]

数据库结构如图

[xiaoxi_2011]

toury,你太厉害了,
谢谢了

[Dogfish]

图全是x

[toury]

一、一次读库，循环分类：

<%
  set rs=conn.execute("SELECT SortName FROM [sort] ORDER BY SortName")
  if  rs.eof then
    response.write("xxx!")
    response.end
  end if
  
  dim s1,s2,s3,s4,s5
  do while not rs.eof
    data=rs(0)
    temp=hdler(data)
    if temp>="a" and hdler<="h" then
      if s1="" then s1=data else s1=s1&","&data
    else if temp>="i" and hdler<="l" then
      if s2="" then s2=data else s2=s2&","&data
    else if temp>="m" and hdler<="n" then
      if s3="" then s3=data else s3=s3&","&data 
    else if temp>="o" and hdler<="r" then
      if s4="" then s4=data else s4=s4&","&data
    else if temp>="s" and hdler<="z" then
      if s5="" then s5=data else s5=s5&","&data
    end if 
    rs.movenext
  loop
  rs.close:  set rs=nothing
  
  a1=split(s1,",")
  a2=split(s2,",")
  a3=split(s3,",")
  a4=split(s4,",")
  a5=split(s5,",")

  call renderHTML(a1,1)
  call renderHTML(a2,2)
  call renderHTML(a3,3)
  call renderHTML(a4,4)
  call renderHTML(a5,5)

function renderHTML(arr,n)
  s="<div id='div"&n&"'><ul>"
  for k=0 to ubound(arr)
    s=s&"<li>"&arr(k)&"</li>"
  next
  s=s&"</ul></div>"
  response.write s
end function

function hdler(s)
  hdler=lcase(left(s,1))
end function
%>

二、数据库组合相应分组字段
累了，不写了。。。