Jag vill att texten (som hämtas från RecSet("Sidan")) inte skall visas i html-format, html-taggar skall altså inte funka.... bara några.

De ända taggarna som skall fungera är dessa:
<B>text</B> - skall göra som de gör som html-taggar (fet stil)
<I>text</I> - skall göra som de gör som html-taggar (kursiv stil)
<u>text</u> - skall göra som de gör som html-taggar (understruken text)
<S>text</S> - skall göra som de gör som html-taggar (överstruken text)
<Big>text</Big> - skall göra som de gör som html-taggar (stor text)
<C>text</C> - skall göra som de gör som html-taggar (centrerad text)
<R>text</R> - skall göra samma som html-taggarna <div align="right"></div>
<BR> - skall ge radbrytning

...dessa taggar är ju inte så svårt att få att funka... är ju typ bara att skriva något i stil med: Replace(text,"<R>","</R>",1,-1,1)

Men nu kommer det kluriga, jag vill nämligen också att dessa taggar skall fungera:
<Kompis>Pelle</Kompis> - skall ge Pelle. "5" är det som står i RecSet("id") på samma rad som det står "pelle" i RecSet("username").
<Font color="#ffffff">text</font> - skall ge vit text (man skall kunna färglägga texten med vilken färg som hellst).
<ruta color="#ffffff" bordercolor="#000000" width="100">text</ruta> - skall ge en ruta med vit bakrund och svart kant och den skall vara 100 bred. Både bredden och färgen skall kunna ha vilka värden som man vill.


...Detta var något att bita i va?

Så här hittar du och ersätter Kompis taggarna. Du borde kunna skriva om den för de andra:
<code>
Public Function KompisTag(Text, conn)
Const Prefix = "<kompis>"
Const PrefixLen = 8
Const Suffix = "</kompis>"
Const SuffixLen = 9
Dim PrefixPos
Dim SuffixPos
Dim Start
Dim Name
Dim rsTemp
Set rsTemp = Server.CreateObject("ADODB.Recordset")
PrefixPos = InStr(1, Text, Prefix, vbTextCompare)
Do While PrefixPos
Start = PrefixPos + PrefixLen
SuffixPos = InStr(Start, Text, Suffix, vbTextCompare)
If SuffixPos Then
Name = Mid(Text, Start, SuffixPos - Start)
rsTemp.Open "SELECT Id FROM TabellNamn WHERE Name=" & SQLText(Name), conn
If Not rsTemp.EOF Then
Text = Left(Text, PrefixPos - 1) & "" & Name & "" & Mid(Text, SuffixPos + SuffixLen)
End If
rsTemp.Close
PrefixPos = InStr(SuffixPos + SuffixLen, Text, Prefix, vbTextCompare)
Else
Exit Do
End If
Loop
KompisTag = Text
End Function
</code>

Det jag inte vet hur jag skall fixa är taggen <ruta> eftersom den innehåller både bgcolor och bordercolor.