ved sidste udtræk ikke skrive " - "

Hey

Jeg har denne kode, men hvordan får jeg den til at, ved sidste recordset den udtrækker, skal den ikke skrive & " - " , ved response.write??

<%
strSQL = "Select * From programmer WHERE program <> 'forord'"
Set rs = Conn.Execute(strSQL)

Do
  strMen = rs("menu")
  strBES = rs("program")

  strLink = "<a href=programmerindex.asp?id=" & rs("id") & " " & "class=""link4""" & " " & "title='" & strBES & "'" & " " & "target=""_self"">" & strMen & "</a>"


  Response.Write "<a>[" & strLink & "]</a>" & " - "

  rs.MoveNext
Loop While Not rs.EOF
%>


/Bjarke - (KLEIFDESIGN)