Udvidet function

- Jeg forstår ikke helt hvad det er du vil?
vil du tjekke hvert ord i beskeden for badwords - og ligeledes tjekke hvert ord i beskeden og så replace nogle af dem med smilies eller hvordan?

\Dan

Okai, forfra.

Jeg har nu 3 særskilte functions som er følgende

Function Messages(strContent)
Function Smileys(strContent)
Function Badword(strContent)

Jeg sender en tekst igennem alle 3 funktioner på denne måde, som jeg syntes er lidt besværligt <%=smileys(messages(badword(rsShowProfile("profiletext")))=%>

Derfor tænkte jeg om man kunne lave en function, men ved min <%=rsShowProfile("profiletext")=%>,vælge hvilke ting i min functions jeg vil lade min tekst køre igennem..

Ala!
<%=messages(rsShowProfile("profiletext"),ja,nej,ja)=%>

Og i min function: Function Messages(strContent,strsmileys,strbadword,strhtml)

Og hvis der er Ja i smileys, skal den i min functions medtage smileys

ala

if strSmilees = "ja" then


osv..

Håber du forstår nu?

- Okay... lund_dk

- det er jeg helt sikker på du kan, men er det ikke det du lige har lavet i dit første spørgsmål?

jeg ville bare anbefale dig at bruge True/False i stedet for Ja/Nej... dette vil sige at functionen skal se således ud:
<%
Function Test(strMessage,StrSmiley,strBadword)
if strSmiley = True then
smiley = "Ja "
end if
if strBadword= True then
badword = "Ja "
end if
test = strMessage
Test = test & strMessage & strSmiley & strbadword
End function
%>

- og dit kald sådan her:
<%=Test(rsShowProfile("profiletext"),True,False,True)%>

\Dan

arh... glem det... efter at have læst det nogle gange tror jeg, jeg forstår...
- prøv følgende:
<%
function messages(strContent,strSmileys,strBadword)
if strSmileys = True then
messages = "Ja"
elseif strBadword = True then
messages = "Ja"
else
messages = ""
end if
end function
response.write messages("Mit indhold",True,False)
%>

- eller er jeg helt forkert på den?

\Dan

nej det virker ikke helt

Nu har jeg selv prøvet at lave den lidt om,men heller ikke dette virker, får intet output

<%
function messages(strContent,strSmileys,strBadword)


if strSmileys = True then
StrContent= StrContent & "Smiley: OK"
end if

if strBadword = True then
StrContent = StrContent & "Badword: OK"
end if

messages = StrContent
end function

response.write messages("Mit indhold",True,False)
%>

hmm... det lyder underligt... for jeg for det her "Mit indholdSmiley: OKBadword: OK" som output hvis jeg tester dit script... Helt uden at lave noget om ved det...

\Dan

Ja, ville også mene det skulle virke, syntes jeg bare ikke dte gør ved mig..Men må lige rode lidt mere med det .

Med smid et svar :)

- OK! Her et svar...

\Dan