Replace Funktionen

det er ved dit udtræk af databasen der er fejl og ikke i dit replace

StrBesked = Request(Tekst(\"StrBesked\"))

vil den virk sådan her ?

nej, ikke hvis du vil have data ud fra en database,
men prøv:
StrBesked = Request.Form(\"Besked\")

function Tekst(StrBesked)
StrBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
StrBesked = Replace(StrBesked, \"/Brb\", \"Smutter lige et sted hen\")
StrBesked = StrBesked
end function

StrBesked = Tekst(StrBesked)

nææh .. det var heller ik\' helt det ..

function Tekst(StrBesked)
StrBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
StrBesked = Replace(StrBesked, \"/Brb\", \"Smutter lige et sted hen\")
Tekst = StrBesked
end function

den skifter ik teksten...

selvom jeg skriver
/Think Blah blah
eller:
/Think
og det gælder selvfølgelige også /Brb

du kan lave funktionen som noget i retning af det her:

Function Emote(Input)
  Select Case LCase(Input)
    Case \"/think\": Output = \"tænker\"
    Case \"/brb\": Output = \"smutter lige et sted hen\")
  End Select
End Function

så kan du teste med:

Response.Write Emote(\"/brb\")

.. det er lige hva\' jeg ka\' hjælpe med lige nu ..

StrBesked = Request.Form(\"Besked\")

function Tekst(StrBesked)
StrBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
StrBesked = Replace(StrBesked, \"/Brb\", \"Smutter lige et sted hen\")
StrBesked = StrBesked
end function

jeg kan godt få den til at virke sådan her ?

StrBesked = Replace(StrBesked, \"/Think\", \"Jeg Tænker\")
StrBesked = Replace(StrBesked, \"/Brb\", \"Jeg Tænker\")
osv,.

besked = \"test /Think \"
besked = Tekst(besked)
response.write(besked)

function Tekst(StrBesked)
StrBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
StrBesked = Replace(StrBesked, \"/Brb\", \"Smutter lige et sted hen\")
Tekst = StrBesked
end function