如何把下面的代码改成按姓名第一个拼音排列？谢谢！急

<td align="right" valign="middle"><span class="STYLE4">值班人员：</span></td>
<td valign="bottom">
<%'dim rszbb,sqlzbb,sqldw2,rsdw2,zbld
year1=request("selectyear")
month1=request("selectmonth")
day1=request("selectday")
if year1="" or month1="" or day1="" then
month1=trim(month(date()))
year1=trim(year(date()))
day1=day(date())
end if
Set rszbb= Server.CreateObject("ADODB.Recordset")
sqlzbb="SELECT * FROM dwzb where month= "&month1&" and year="&year1&" and day="&day1&" and dwid=99 order by day"
rszbb.open sqlzbb,conn,1,1
'if not rsday.eof then
'response.Write "<a title="&trim(rsday("zbldtel"))&"><font color=#ff0000>"&trim(rsday("zbld"))&"</font></a>"
'else response.Write"<font color=#ff0000>暂无</font>"
'end if%>
<%if not rszbb.eof then%>
<%call showname(trim(rszbb("zbld")),99)%>(昼)<br>
<%call showname(trim(rszbb("zbldy")),99)%>(夜)
<%
else response.Write"<font color=#ff0000>暂无</font>"
end if
rszbb.close%>
</td>

sqlzbb="SELECt * FROM dwzb where month= "&month1&" and year="&year1&" and day="&day1&" and dwid=99 order by day"

我看不出 dwzb 这张表中存贮人名的列名称，你要进入数据库中查看，比如说 列名称为 name

把上面这句最后的 order by day 改成 order by name 即可。

order by day的day改成你表格里面的姓名字段名就可以 order by本身就是按照字母排序的