Det evindelige problem med linjeskift-hvad gør jeg?

Jeg har fået brokket nedenstående mailsysem sammen og det fungere ganske fint (tak til flere "eksperter"). Men jeg mangler at kunne lave et tvunget linjeskift i den form, som sender tekst til db'en.
Jeg har prøvet noget med replace(vbcrlf,"<BR>"), men kan ikke få det til at virke.

StrSQL = "Select * from mailliste"
set rs = Conn.execute(strSQL)

Dato1 = date()
minus = "7"

SQL = "SELECT tekst,startdato,id,meddeler FROM ugebrev WHERE startdato<=DATE() AND startdato>DATE()-"&minus

Set rs2 = Conn.Execute(SQL)
   
    strBesked = strBesked & " <p><img border='0' src=http://www.xxxxxx.dk/images/banner.jpg width='398' height='45'></p>"
    strBesked = strBesked & "<font face='verdana' size='4' color='#000000'>xxxxxx"
      strBesked = strBesked & " <br> "
    Do While Not (rs2.Eof)
    strBesked = strBesked & "<font face='verdana' size='2' color='#000000'>"
    strBesked = strBesked & " <br><b> " & rs2("startdato")&":&nbsp" & rs2("meddeler") &"</b><br>"&rs2("tekst")
  strBesked = strBesked & " <br> "
  rs2.MoveNext
Loop

Do While Not (rs.Eof)
  Set JMail = Server.CreateObject("JMail.SMTPMail")
  JMail.ContentType = ""
  JMail.ServerAddress = ".dk"
  JMail.Sender = "xxx@x.dk"
  JMail.Subject = "Ugebrev"
  JMail.Body = "Du skal understøtte html mails for at læse denne mail"
  JMail.HTMLBody = strbesked

  JMail.AddRecipientEx "" & rs("email") & "", "" & rs("email") & ""
  JMail.Execute
  Set JMail = Nothing
 
  response.write "" & rs("Email") & " - Afsendt korrekt<br>"
  rs.MoveNext
Loop

response.write "<br><br><b>Alle beskeder blev afsendt korrekt.</b>"

Conn.Close
%>