![]()
<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from homelink order by hang desc , Id asc"
rs.open sql,conn,1,1
If Not rs.eof Then
hangmax=rs("hang")
Else
hangmax=0
End If
rs.close
If hangmax>0 then
For hangn = 0 To hangmax
sql="select * from homelink where hang =" +CStr(hangn)+ " order by lie asc , Id asc"
rs.open sql,conn,1,1
lien=0
do Until rs.eof Or rs.bof
lien=lien+1
If lien=1 Then
%>
|