Loop tingeling

Hejsa, har lavet et loop som lyder som følger, hver record skal separeres med et '|':

<%
sDBName = "driver={Microsoft Access Driver (*.mdb)};dbq=sti"
Set objDB = Server.CreateObject("ADODB.Connection")
objDB.Open sDBName
%>headline=<% Set objRS = objDB.Execute("select top 4, * from nyheder order by id desc")
Do Until objRS.EOF%>
<%=ObjRs("menu_title")%>|<%
objrs.MoveNext
        Loop
        %>

Problemet ligger i at efter den sidste post skal der ikke være et '|'

Nok bare mig der er gået lidt død i denne, nogen der har en workaround til denne :)

MVH
R