x.replace(vbcrlf,"<br />")

        Dim Xmsg, s As String
        Dim f As Boolean = False
        Xmsg = TextBox3.Text.Replace("'", "")
        Xmsg.Replace(vbCrLf, "xxx")
        While f = False
            s = Xmsg
            Xmsg.Replace("<br /><br />", "<br />")
            If s = Xmsg Then f = True
        End While
        MsgBox(Xmsg)
        STRSQL = "INSERT INTO a_replay ( r_name, r_title, r_msg, r_date, r_time, a_id ) Values ( '" & TextBox1.Text.Replace("'", "") & "' , '" & TextBox2.Text.Replace("'", "") & "' , '" & Xmsg & "' , '" & Date.Now.Date & "' , '" & Date.Now.ToShortTimeString & "' ,'" & _Articalid & "');"
        Database.ConnectionString = ConfigurationManager.AppSettings("ConnectionString")
        Database.ConnectionObject = New OleDb.OleDbConnection
        Database.SQLString = STRSQL
        If Database.Execute() = "OK" Then
            lnkresponse.Enabled = False
            TABLE2.Visible = False
            Label1.ForeColor = Drawing.Color.Green
            Label1.Text = "הודעתך נשלחה בהצלחה ומחכה במערכת לאישור העורך"
        End If