Radbrytning

Försöker skicka mail med denna kod

   Public Sub skicka(ByVal sender As Object, ByVal e As EventArgs)
        Dim objcmd As New OleDbCommand _
                  ("select * from resmal where id =" & Request.QueryString("id") & "", objconn)
        objconn.open()
        Dim dr As OleDbDataReader = objcmd.ExecuteReader(CommandBehavior.CloseConnection)
        Dim resmal As String
        Dim datum As String
        If dr.Read() = True Then
            resmal = dr("rubrik")
            datum = dr("datum")
        End If
        objcmd.Connection.Close()

        Dim mm As New MailMessage()
        mm.From = tbEpost.text
        mm.To = "webmaster@tibroik.com"
        mm.Subject = "Anmälan till resa"
        mm.Body = "Hej." & vbCrLf & _
        "Jag vill anmäla mig till följande resa" & vbCrLf & _
        "Antal:" & tbAntal.Text & "" & vbCrLf & _
        "Resmål:" & resmal & "" & vbCrLf & _
        "Datum:" & datum & "" & vbCrLf & _
        "Namn:" & tbNamn.Text & "" & vbCrLf & _
        "Adress:" & tbAdress.Text & "" & vbCrLf & _
        "Postnr:" & tbPostnr.Text & "" & vbCrLf & _
        "Ort:" & tbOrt.Text & "" & vbCrLf & _
        "Telefon:" & tbTel.Text & "" & vbCrLf & _
        "E-post:" & tbEpost.Text & "" & vbCrLf & _
        "Kommentar:" & Replace(tbKommentar.Text, "vbcrlf", "" & vbCrLf & "") & "."
        SmtpMail.Send(mm)
        lblMessage.text = "<br />Din anmälan är skickad. Om du har några frågor kan du ringa eller skicka ett e-post. Telefon och e-post adress står på första sidan"

    End Sub

Får ett felmeddelande

Compiler Error Message: BC30451: Name 'vbCrLf' is not declared.

Source Error:

 

Line 50:         mm.To = "webmaster@tibroik.com"
Line 51:         mm.Subject = "Anmälan till resa"
Line 52:         mm.Body = "Hej." & vbCrLf & _
Line 53:         "Jag vill anmäla mig till följande resa" & vbCrLf & _
Line 54:         "Antal:" & tbAntal.Text & "" & vbCrLf & _
 

Source File: h:\inetpub\wwwroot\dena\resor1.aspx.vb    Line: 52

Hur ska jag skriva för att få med en radbrytning i mailet.

Tar jag bort vbcrlf klagar den på replace.
Hur ska jag göra får att replace ska fungera?

http://www.webforum.nu/showthread.php?s=&postid=467261#post467261

Tack. Det fungerar perfekt men nu får jag ett felmeddelande om replace.

Compiler Error Message: BC30451: Name 'Replace' is not declared.

Source Error:

 

Line 62:         "Telefon:" & tbTel.Text & "" & vbCrLf & _
Line 63:         "E-post:" & tbEpost.Text & "" & vbCrLf & _
Line 64:         "Kommentar:" & Replace(tbKommentar.Text, "vbcrlf", "" & vbCrLf & "") & "."
Line 65:         SmtpMail.Send(mm)
Line 66:         lblMessage.text = "<br />Din anmälan är skickad. Om du har några frågor kan du ringa eller skicka ett e-post. Telefon och e-post adress står på första sidan"
 

Source File: h:\inetpub\wwwroot\dena\resor1.aspx.vb    Line: 64

Dim Kommentar As String = tbKommentar.Text
Kommentar.Replace("vbcrlf", "" & vbCrLf & "")