Fjern sidste komma

Hej, jeg har brug for lidt hjælp igen.

Jeg har en rekursiv gennemgang af noget data, det hele bliver listet ud sådan her;

Fodbold, Håndbold, Sportsudstyr, Tennis,

Hvordan kan jeg undgå det sidste komma kommer med i udskriften?

Koden er denne

Call ShowReplies(MainRS("id"),conn)

----
  If not rs.eof then   
    do while not rs.eof
        Response.Write "<span id=""LinkCat__ctl0_lblsubname""><a class=""dt3"" href=""#"">" & rs("headline") & "</a></span>"
        Call ShowReplies(rs("id"),conn)
        rs.movenext
        Response.Write ", "
    loop
  End if