En fråga!

Tja! När man trycker på en knapp så kommer en smilie i en text ruta! Typ som i webf! Men om man tar på Ändra tråd sen så står det [ IMG ]Genväg till bilden[ /IMG ] Utan mellan rummen! Men hur gör jag för att få bort det??? Har 2 filer om det formatfunktion.asp och rev_formatfunktion! Vet inte vilken jag ska ta så jag tar den första! Säg till om ni vill se den andra!

<%Function FormatText(sIn)
	Dim charPos, sOut, curChar, urlChar, urlPos, urlString, imgChar, imgPos, imgString, smilebit
	
	For charPos = 1 To Len(sIn)
		curChar = Mid(sIn, charPos, 1)
		if mid(sIn, charPos, 5) = "[img]" then
			sOut = sOut + "<img src="""
			charPos = charPos + 5
			imgString = ""
			imgChar = ""
			imgPos = charPos
			do until mid(sIn, imgPos, 6) = "[/img]"
				imgChar = mid(sIn, imgPos, 1)
				imgString = imgString + imgChar
				imgPos = imgPos + 1
				if imgPos > len(sIn) then
					sOut = sOut + imgString + """>"
					exit for
				end if
			loop
			imgString = left(imgString, len(imgString))
			sOut = sOut + imgString + """>"
			charPos = charpos + (imgPos - charPos + 5)
		'convert anything starting with http:// or www. to a link
		elseif (mid(sIn, charPos, 7) = "http://") or (mid(sIn, charPos, 4) = "www.") then
			sOut = sOut + "<a href=""http://"
			if mid(sIn, charPos, 7) = "http://" then
				charPos = charPos + 7
			end if
			urlString = ""
			urlChar = ""
			urlPos = charPos
			do until (urlChar = " ") or (urlChar = chr(13)) or (urlChar = "[")
				urlChar = mid(sIn, urlPos, 1)
				urlString = urlString + urlChar
				if urlChar = ":" or urlChar = "&gt;" then
					smilebit = mid(sIn, urlPos+1, 1)
					if not IsNumeric(smilebit) then
						urlPos = urlPos + 1
						exit do
					end if
				elseif urlChar = "8" then
					if mid(sIn, urlPos+1, 2) = "-o" or mid(sIn, urlPos+1, 2) = "-O" or mid(sIn, urlPos+1, 1) = "o" or mid(sIn, urlPos+1, 1) = "O" then
						urlPos = urlPos + 1
						exit do
					end if
				end if
				urlPos = urlPos + 1
				if urlPos > len(sIn) then
					sOut = sOut + urlString + """ target=""_blank"">" + urlString + "</a>"
					exit for
				end if
			loop
			urlString = left(urlString, len(urlString)-1)
			
			sOut = sOut + urlString + """ target=""_blank"">" + urlString + "</a>"
			charPos = charpos + (urlPos - charPos - 2)
		else
			sOut = sOut + curChar
		end if
	Next
	
    sOut = Replace(sOut, "&gt;:-&gt;", "<img src=""images/pb_smiley_evil.gif"" align=""middle"" alt=""Elak"">")
	sOut = Replace(sOut, "8-)", "<img src=""images/pb_smiley_cool.gif"" align=""middle"" alt=""CooL 8-)"">")
	sOut = Replace(sOut, "X-(", "<img src=""images/pb_smiley_dead.gif"" align=""middle"" alt=""DöD X-("">")
	sOut = Replace(sOut, ":*", "<img src=""images/pb_smiley_kisses.gif"" align=""middle"" alt=""Puss :*"">")
	sOut = Replace(sOut, ":?", "<img src=""images/pb_smiley_question.gif"" align=""middle"" alt=""Frågar :?"">")
	sOut = Replace(sOut, vbcrlf, "<br>")
	sOut = Replace(sOut, "&gt;:(", "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""arg"">")
	sOut = Replace(sOut, "&gt;:-(", "<img src=""images/pb_smiley_angry.gif"" align=""middle"" alt=""arg"">")
	sOut = Replace(sOut, "8o", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8O", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8-o", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, "8-O", "<img src=""images/pb_smiley_shocked.gif"" align=""middle"" alt=""shockad 8O"">")
	sOut = Replace(sOut, ":)", "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Glad :)"">")
	sOut = Replace(sOut, ":-)", "<img src=""images/pb_smiley_happy.gif"" align=""middle"" alt=""Glad :)"">")
	sOut = Replace(sOut, ":(", "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""Ledsen :("">")
	sOut = Replace(sOut, ":-(", "<img src=""images/pb_smiley_sad.gif"" align=""middle"" alt=""Ledsen :("">")
	sOut = Replace(sOut, ":D", "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Skrattar :D"">")
	sOut = Replace(sOut, ":-D", "<img src=""images/pb_smiley_laugh.gif"" align=""middle"" alt=""Skrattar :D"">")
	sOut = Replace(sOut, ":p", "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Lipar :p"">")
	sOut = Replace(sOut, ":-p", "<img src=""images/pb_smiley_razz.gif"" align=""middle"" alt=""Lipar :p"">")
	sOut = Replace(sOut, ";)", "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""Blinkar ;)"">")
	sOut = Replace(sOut, ";-)", "<img src=""images/pb_smiley_wink.gif"" align=""middle"" alt=""Blinkar :)"">")
	sOut = Replace(sOut, "[b]", "<b>")
	sOut = Replace(sOut, "[/b]", "</b>")
	sOut = Replace(sOut, "[i]", "<i>")
	sOut = Replace(sOut, "[/i]", "</i>")
	sOut = Replace(sOut, "[u]", "<u>")
	sOut = Replace(sOut, "[/u]", "</u>")
	sOut = Replace(sOut, "[citat]", "<blockquote><font face=""verdana,arial,helvetica"" size=""1"">Citat</font><hr>")
	sOut = Replace(sOut, "[/citat]", "<hr></blockquote>")
	sOut = Replace(sOut, "</blockquote><br><br><br>", "</blockquote>")
	sOut = Replace(sOut, "</blockquote><br><br>", "</blockquote>")
	sOut = Replace(sOut, "</blockquote><br>", "</blockquote>")
	
	FormatText = sOut
End Function
%>