Lägga ih..... — webForum

JonasTMedlem sedan dec. 2001148 inlägg

Frågan6 feb. 2002 10:44#1

Halloj!
Jag udrar om ngn vet hur ja kan göra detta:
Jag har en funktion som gör forum kod, och när man kallar på den funktonen skriver man:Response.Write strPress.
Och sen har jag en funktion som gör rasbrytning efter ett visst antal bokstäver och när man kallar på den skriver jag:Strang(rs4("beskrivning")).
Nu vill jag kunna genom ettkommando kunna anropa på båda..samtidigt. Så att texten blir med båda forumkod och med radbrytning. Jag testade med: strBeskrivning(Strang(rs4("beskrivning"))) men det funkade itne. kan nånhjälpa mig?

solbulleMedlem sedan mars 20015 287 inlägg

6 feb. 2002 10:55#2

Hur ser strPress ut? Skickar du inget värde till den funktionen?

------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

JonasTMedlem sedan dec. 2001148 inlägg

6 feb. 2002 10:58#3

strPress ser ut så här (hela koden)

<%
strPress = Trim(RS4("beskrivning"))
strPress = Replace (strPress,vbCrLf,"<br>")
strPress = Replace(strPress,"[fet]","<B>")
strPress = Replace(strPress,"[/fet]","</B>")
strPress = Replace(strPress,"[u]","<u>")
strPress = Replace(strPress,"[/u]","</u>")
strPress = Replace(strPress,"[i]","<i>")
strPress = Replace(strPress,"[/i]","</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>")

strPress = Replace(strPress,":)","<IMG SRC=""/jonas/db/bilder/smileys/glad.gif"">")
strPress = Replace(strPress,";)","<IMG SRC=""/jonas/db/bilder/smileys/blink.gif"">")
strPress = Replace(strPress,"8)","<IMG SRC=""/jonas/db/bilder/smileys/cool.gif"">")
strPress = Replace(strPress,"})","<IMG SRC=""/jonas/db/bilder/smileys/devil.gif"">")
strPress = Replace(strPress,":(","<IMG SRC=""/jonas/db/bilder/smileys/sur.gif"">")
strPress = Replace(strPress,":Z","<IMG SRC=""/jonas/db/bilder/smileys/trott.gif"">")
strPress = Replace(strPress,":P","<IMG SRC=""/jonas/db/bilder/smileys/tunga.gif"">")
strPress = Replace(strPress,":D","<IMG SRC=""/jonas/db/bilder/smileys/smile.gif"">")
strPress = Replace(strPress,"&#0124;(","<IMG SRC=""/jonas/db/bilder/smileys/frusty.gif"">")
strPress = Replace(strPress,":A","<IMG SRC=""/jonas/db/bilder/smileys/puh.gif"">")
strPress = Replace(strPress,":B","<IMG SRC=""/jonas/db/bilder/smileys/sadley.gif"">")
strPress = Replace(strPress,":C","<IMG SRC=""/jonas/db/bilder/smileys/sleephappy.gif"">")
strPress = Replace(strPress,":E","<IMG SRC=""/jonas/db/bilder/smileys/vork.gif"">")
strPress = Replace(strPress,":L","<IMG SRC=""/jonas/db/bilder/smileys/pukey.gif"">")

Response.Write strPress
%>

solbulleMedlem sedan mars 20015 287 inlägg

6 feb. 2002 11:05#4

Du skulle kunna pröva att byta ut den översta raden till:

strPress = Trim(Strang(rs4("beskrivning")))

Men det beror även på hur din funktion Strang är konstruerad.

Kostar inget att pröva.

------------------
/solbulle
Hemmabio | Spelautomater | The Who | The Who II

JonasTMedlem sedan dec. 2001148 inlägg

6 feb. 2002 11:11#5

Tack så hemskt mycket Solbulle, det funkade det du sa!