Kan inte skriva <a href= osv.

Det beror på.
På vilket sätt fungerar det inte? Felmeddelande?

Det blir så här i texten:

<a href="http://www.expressen.se">Expressen</a>

Jag vill ju att det ska bli en länk.

Utan att se koden kan vi bara gissa. Förmodligen körs htmlencode() eller liknande på texten innan den publiceras. ;)

Detta är problem alltså:

Function fixbug(strText)
strText = Replace(strText,"'","''")
strText = Replace(strText,"\","\\")
fixbug = strText
End Function

Den funktionen påverkar inte strängar på det sätt du beskriver.
Du får titta mer / bättre efter i koden.

mvh

Hitta det!
Kan jag bara ta bort detta eller måste jag ändra i den?

Function makeTags(ByVal text)

text = Replace(Server.HTMLEncode(text),vbCrlf,"<br />")
text = Replace(text,"(t)", "    ")
' text = Server.HTMLEncode(text)

Set regExp = New regexp
regExp.Global = true
regExp.IgnoreCase = true

RegExp.Pattern="\(b\)(.*?)\(/b\)"
text = regExp.Replace(text,"<b>$1</b>")

regexp.pattern = "\(i\)(.*?)\(/i\)"
text = regexp.replace(text,"<i>$1</i>")

regexp.pattern = "\(u\)(.*?)\(/u\)"
text = regexp.replace(text,"<u>$1</u>")

regexp.pattern = "\(center\)(.*?)\(/center\)"
text = regexp.replace(text,"<center>$1</center>")

Set RegExp = Nothing
makeTags = text
End Function

Denna rad är iaf den som gör att html-koden visas som text:

text = Replace(Server.HTMLEncode(text),vbCrlf,"<br />")

Om det bara är du som skriver kan du lika gärna ta bort den, om du nu vill kunna använda html-kod.

:) tack!

Eller ännu bättre, för att behålla radbrytningarna:

text = Replace(text,vbCrlf,"<br />")

edit: jag menar alltså att du skulle ersätta ovanstående rad med denna, dvs kasta bort server.htmlencode.

Sedan får du gärna använda funktionen "Acceptera som slutgiltigt svar" på rätt sätt, dvs acceptera det inlägget som innehåller lösningen. Det hjälper andra att finna lösningar på liknande problem, då dessa inlägg kan markeras vid sökning.

Testar det!