vende listen med Lbound og Ubound

Hvordan vender jeg den her liste efter kl.

<%
  on Error resume next
  Dim fso, f, filespec,easyshop,dentime
  Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("tsc030130.log")
Set f = fso.OpenTextFile(filespec,1)
 
if not err<> 0 then

' Læs linie for linie indtil slutningen af filen
Do While not f.AtEndOfStream

' Lav array ved at splitte ved kommaer
  arrM = Split(f.ReadLine,",")

' Skriv links - hent oplysningerne i array
  ' Response.write "<li><a href='http://www.easyshopping.dk/default.asp?seek="&musik(0)&"&kategori=cd'></a></li>"
 

    if arrM(2) = "MU"  then

  dentime = formatdatetime(arrM(0),vblongTime)
  isdate(dentime)
  datnow = #05:00:00#
 
  If formatdatetime(arrM(0),vblongTime) >=  formatdatetime(datnow,vblongTime) then
 
  musik =  split(arrM(6),"-")
easyshop = trim(musik(1))
  Response.write  "<li><a href='http://www.easyshopping.dk/default.asp?seek="&easyshop&"&kategori=cd' Target=_blank>"&dentime&" -  "& arrM(6) &"</a></li><br>"
'  Response.write  musik(0) &" <br>"
 
    end if
  end if
    Loop

f.Close
else
Response.Redirect("http://217.157.129.245/mojn2/laes.asp")
end if
%>