---
title: "två citat"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/63429-två-citat"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "ampy"
published: "2002-12-30T15:53:28.000Z"
updated: "2002-12-31T10:21:13.000Z"
replies: 2
views: 188
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/63429-två-citat"
---

# två citat

## #1 — ampy, 2002-12-30T15:53Z

```
<%
function citat(txt)

		if InStr(txt,"[ CITAT=") <> 0 then
			startcitat_username = InStr(txt,"[ CITAT=") + 7
			endcitat_username = InStr(txt,"]")
			citat_username = mid(txt,startcitat_username,endcitat_username-startcitat_username)
			txt = Replace(txt, "[ CITAT="&citat_username&"]", "<b><font color=""#006600"">Citat från "&citat_username&":</font></b><table style=""BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px SOLID; BORDER-LEFT: #000000 1px solid"" border='0' bgcolor='#F8F8F8' width='100%'><tr><td>")
			txt = Replace(txt, "[/CITAT]", "</td></tr></table>")
		end if

	citat = txt

end function

mytext = "[ CITAT=Andreas]hej hopp hoppas detta funkar[ CITAT=test]hej hopp hoppas denna funkar[ /CITAT][ /CITAT]"

response.write citat(mytext)
%>
```

Nu när det finns två citat i mytext så skriver den inte ut riktigt som jag vill, se Exempel 1:
[Exempel 1](http://www.ampy.net/exempel1.gif) 

Som ni ser så skrivs det andra citatet ut fel.

PÅ detta exempel när det bara finns ett citat

```
mytext = "[ CITAT=Andreas]hej hopp hoppas detta funkar[ /CITAT]"
```

Så funkar det som det ska. Se exmpel 2:
[Exempel 2](http://www.ampy.net/exempel2.gif) 

Hur ska man göra så att det även funkar när man har två citat?

Permalänk: https://www.webforum.nu/p/63429

## #2 — Denkan, 2002-12-30T17:20Z

```
<%
function citat(txt,done)

	If InStr(txt,"[ CITAT=") <> 0 Then
	iC = InStr(txt,"[ CITAT=")
	mC = Mid(txt,iC)
	p1 = Left(txt,iC-1)
	
	cName1 = Left(mC,InStr(mC,"]"))
	cName2 = Right(cName1,Len(cName1)-8)
	cName3 = Left(cName2,Len(cName2)-1)

	p2 = "<br><b><font color=""#006600"">Citat från "&cName3&":</font></b><table style=""BORDER-BOTTOM: #000000 1px solid; BORDER-TOP: #000000 1px solid; BORDER-RIGHT: #000000 1px SOLID; BORDER-LEFT: #000000 1px solid"" border='0' bgcolor='#F8F8F8' width='100%'><tr><td>"
	p3 = Right(mC,Len(mC)-Len(cName1))	
	
	citat = citat(p3,done&p1&p2)
	Else	
	citat = Replace(done&txt, "[ /CITAT]", "</tr></td></table>")
	End If

end function
%>
```

För att anropa:

```
<%
mytext = "weoweo [ CITAT=Andreas]hej hopp hoppas detta funkar[ CITAT=test]hej hopp hoppas denna funkar[ /CITAT][ /CITAT]"
response.write citat(mytext,"")
%>
```

Permalänk: https://www.webforum.nu/p/896329

## #3 — ampy, 2002-12-31T10:21Z

Tack så mycket!  :bire

Permalänk: https://www.webforum.nu/p/899693

---

Tråden på webben: https://www.webforum.nu/amne/asp/63429-två-citat