Advanced? Radbyte

Tjena boys n gals!

Okej, knäck denhära då om ni kan =)

Jag har lagrat en del text i en databas.
Hämtar upp datat och

Använder idag följande kod för att få till radbyte.

<% =Replace(strSpoinkmannen,vbCrlf,"<br>") %>

Skapar därefter ett mail där jag hämtar in ovan nämnda text, men även "<br>-fnutten" hänger med in i själva mailet.

Det kan se ut såhär:
"Lite text<br>och sen lite till text..."

Hur undviker jag detta?

Tack på förhand!
mvh Stefan

Vad vill du göra? Byta <br> mot vbCrlf eller tvärt om?
<br> fungerar bara om du har HTML mail, om du har vanliga mail (text) så syns <br> som vanlig text och då ska du använda vbCrlf för att få radbrytning.

/Viktor

Jag vill kort och gott undvika att "<br>" hänger med in i mailet.
Kan jag lägga in någon slags Unicode-kod (%250A) eller liknande för att klara detta?

Byter ut <br> mot "ny rad"

<% =Replace(strSpoinkmannen,"<br>",vbCrlf) %>

byter ut <br> mot ""

<% =Replace(strSpoinkmannen,"<br>","") %>

/Viktor

Denna regexp skall ta bort allt inom samtliga htmltaggar. Det kanske är något att tänka på?!
Det bästa är kanske att inte lägga in någor html överhudvudtaget om du skall skicka´t med mail.

x = "Din Text här"
Set objRe = New regExp
objRe.IgnoreCase = True
objRe.Global = True

objRe.Pattern = "<[^>]*>" 
x = objRe.Replace(x," ")

Njaee... kan fortfarande inte få det att funka sjysst.
Radbrytningen vill fortfarande vara kvar i mailet.

Jag lägger in lite kod så kanske det hela blir lättare? =)

-------
functions.inc
-------

' En funktion som snyggar till text som skrivs ut från databasen
Function fixText(strText)

strText		= server.HTMLEncode(strText)
strText		= Replace(strText,vbCrlf,"\<br\>")

fixText		= strText

End Function

-------
sendmail.asp
-------
kodsnutt:

Rubrik:%250A
<%=fixText(strProposal)%> %250A %250A %250A

Och resultatet är:

Här har jag klistrat in en jättelång radda med åtgärdsförslagHär har jag klistrat in en jättelång radda med åtgärdsförslagHär har jag klistrat in en jättelång radda med åtgärdsförslagHär har jag klistrat in en jättelång

Som ni ser, inga radbrytningar eller liknande...

vad gör jag för fel? Vad har jag missat?

server.HTMLEncode() Skall du väl inte ha när du skriver ut saker ur databasen eller?
Skall du inte vända på :
strText = Replace(strText,vbCrlf,"<br>")
Till:
strText = Replace(strText,"<br>",vbCrlf)

blir fasiken inte klok på dethär... =)

Efter mycket om och men så löste det sig, trots allt, med Unicode =)

strText		= Replace(strText,vbCrlf,"%250A")

tack för er hjälp!

mvh Stefan

Det vore intressant att veta hur jag kan generera HTML-mails, med olika färger osv. direkt till outlook. Berätta gärna mer om detta!

Här nedan är lite kod =)

'Funktion som snyggar till mailet

Function fixMailText(strText)

strText        = server.HTMLEncode(strText)
strText        = Replace(strText,vbCrlf,"%250B")

fixMailText        = strText

End Function

<a href="mailto: blablabla

&Body=
PÅ STATION ' <%=strStation%> ' HAR FÖLJANDE AVVIKELSE ÄGT RUM:

%250A %250A %250A

">Send mail</a>

Nu märker jag att mailet inte ser likadant ut i exakt identiska versioner av Outlook. Vad kan detta bero på?

I den ena maskinen ser det perfekt! ut
I den andra maskrinen fortlöper all text, utan radbryten osv.
Någon inställning jag missat någonstans?