Med nedanstående rader listas alla tabeller ut i en databas i bokstavsordning. Hur gör jag lättast för att sortera baklänges?
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "default_12"
Set RecSet = Connect.OpenSchema(20)
Do while Not RecSet.EOF
If Trim(RecSet("TABLE_TYPE")) = "TABLE" Then
If trim(request.querystring("ar")) = RecSet.Fields("TABLE_NAME") then
response.write "<b>" & RecSet.Fields("TABLE_NAME") & "</b>"
Else
Response.Write "<a href=""resultat_show.asp?ar=" & RecSet.Fields("TABLE_NAME") & """> " & RecSet.Fields("TABLE_NAME") & ""
End if
End If
RecSet.MoveNext
Loop
%>
recset.movelast
Do while Not RecSet.BOF
If Trim(RecSet("TABLE_TYPE")) = "TABLE" Then
If trim(request.querystring("ar")) = RecSet.Fields("TABLE_NAME") then
response.write "<b>" & RecSet.Fields("TABLE_NAME") & "</b>"
Else
Response.Write "<a href=""resultat_show.asp?ar=" & RecSet.Fields("TABLE_NAME") & """> " & RecSet.Fields("TABLE_NAME") & ""
End if
End If
RecSet.MovePrevious
Loop
Jag vet inte om denna typ av recordset tillåter moveprevious.
Om det inte fungerar så kan du använda getrows och traversera arrayen baklänges.
