webForumDet fria alternativet

Hur gjorde man...

ASP

6 svar · 207 visningar · startad av sin_adec

Medlem sedan apr. 2002272 inlägg
Frågan#1

hur var det men gjorde...

[link] https://www.webforum.nu [/link]

Medlem sedan feb. 200112 078 inlägg
#2

Va? :q

Om det är -taggen du funderar på så finns det hänvisningar till dessa här och i vänsterkanten ovanför, när du skriver ditt inlägg.. eller förstod jag fel?

Medlem sedan apr. 2002272 inlägg
#3

Men hur ser koden ut... om man vill göra så där...

Medlem sedan juli 20012 450 inlägg
Medlem sedan apr. 2002272 inlägg
#5
<%
strPress = Trim(Ucase(Recset("beskrivning")))
strPress = Replace (strPress,vbCrLf,"<br>")
strPress = Replace(strPress,"[fet]","<B>")
strPress = Replace(strPress,"[/fet]","</B>")
strPress = Replace(strPress,"","<u>")
strPress = Replace(strPress,"","</u>")
strPress = Replace(strPress,"","<i>")
strPress = Replace(strPress,"","</i>")

strPress = Replace(strPress,"[vit]","<font color=""#ffffff"">")
strPress = Replace(strPress,"[/vit]","</font>")
strPress = Replace(strPress,"[blå]","<font color=""#0000FF"">")
strPress = Replace(strPress,"[/blå]","</font>")
strPress = Replace(strPress,"[gul]","<font color=""#FFFF00"">")
strPress = Replace(strPress,"[/gul]","</font>")
strPress = Replace(strPress,"[röd]","<font color=""#FF0000"">")
strPress = Replace(strPress,"[/röd]","</font>")
strPress = Replace(strPress,"[orange]","<font color=""#FF9933"">")
strPress = Replace(strPress,"[/orange]","</font>")
strPress = Replace(strPress,"[grön]","<font color=""#00CC00"">")
strPress = Replace(strPress,"[/grön]","</font>")
strPress = Replace(strPress,"[grå]","<font color=""#999999"">")
strPress = Replace(strPress,"[/grå]","</font>")
strPress = Replace(strPress,"[rosa]","<font color=""#FF6699"">")
strPress = Replace(strPress,"[/rosa]","</font>")
strPress = Replace(strPress,"[lila]","<font color=""#660066"">")
strPress = Replace(strPress,"[/lila]","</font>")
strPress = Replace(strPress,"[ljusblå]","<font color=""#CCCCFF"">")
strPress = Replace(strPress,"[/ljusblå]","</font>")

Response.Write strPress
%>

varför funkar den inte..

Medlem sedan apr. 2002272 inlägg
#6

När jag använde:

strPress = Trim(Ucase(Recset("beskrivning")))

Så funkar det inte...

men när jag byter ut det med:

strPress = Trim(Recset("beskrivning"))

så¨funkar det--

Medlem sedan juli 20012 450 inlägg
#7

Varför skall du ha i stora bokstäver?
:q ->
strPress = Replace(strPress,"","<u>")
strPress = Replace(strPress,"","</u>")
strPress = Replace(strPress,"","<i>")
strPress = Replace(strPress,"","</i>")

256 ms totalt · 4 externa anrop · v20260731065814-full.a51de22e
123 ms — deklarationer (db)
0 ms — hämta statistik (cache)
124 ms — hämta tråd, inlägg och bilagor (db)
129 ms — ändringar (db)