Svært ?

bytt ut din funksjon med:

Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
  ReplaceBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
  Tekst = ReplaceBesked
End Function

nja....du skal også bytte ut litt fler...

<%
Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
  ReplaceBesked = Replace(StrBesked, \"/Think\", \"Tænker\")
  Replaced = ReplaceBesked
End Function
%>

og her er min side normal side:
<!-include file = \"function.asp\" ->
<%
msg = Request.Form(\"msg\")
Response.Write Tekst(msg)
%>

den virker stadigvæk ik..

den skifter ik teksten !

nja...det er en ting som mangler stadig...prøv denne

<%
Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\")
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\")
  Replaced = ReplaceBesked
End Function
%>

og her er min side normal side:
<!-include file = \"function.asp\" ->
<%
msg = Request.Form(\"msg\")
Response.Write Tekst(msg)
%>

<%
Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\")
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\")
  Tekst = ReplaceBesked
End Function
%>

og her er min side normal side:
<!-include file = \"function.asp\" ->
<%
msg = Request.Form(\"msg\")
Response.Write Tekst(msg)
%> 

Men det er da ikke særligt smart at replace case sensitivt...

Det vil være smartere at lave det, så man kunne taste store og små bogstaver som man har lyst til:

<%
Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\", 1, -1, 1)
  Tekst = ReplaceBesked
End Function
%>

<%
Response.Write Tekst(\"/tHiNk jeg er tørstig\")
%>

nogen gider vise mig et eks. da jeg kan ik få det til at virke :(

Det er jo et eksempel. Hvis du smider mit ind i et ASP dokument vil outputtet blive:

\"Tænker jeg er tørstig\"

jeg bliver snart sindsyg !!

den virker slet ik...ingen fejl men den skifter intet !

Skrive.asp:
<!-include file = \"function.asp\" ->
<%
If Len(Session(\"Brugernavn\")) = 0 Then
Response.Redirect(\"login.asp?mode=loginik\")

Elseif Request.QueryString(\"mode\") = \"skrive\" Then

If Len(Request.Form(\"Besked\")) = 0 Then
Response.Redirect(\"top.asp\")

Else

Session(\"StrBesked\") = Request.Form(\"Besked\")
StrFra = Session(\"Brugernavn\")
StrTil = Request.Form(\"Til\")
StrDato = Time

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"chat.mdb\")

SQL = \"Insert into Beskederne (Besked, Fra, Til, Rum, Dato) values(\'\" & Session(\"StrBesked\") & \"\', \'\" & StrFra & \"\',\'\" & StrTil & \"\',\'\" & Session(\"Rum\") & \"\',\'\" & StrDato & \"\')\"
Conn.ExeCute(SQL)


Response.Redirect(\"top.asp\")
Conn.Close
Set Conn = Nothing
End If
End If
%>

function:
<%
Function Tekst(ReplaceBesked)
  ReplaceBesked = Replace(ReplaceBesked, \"/Think\", \"Tænker\", 1, -1, 1)
  Tekst = ReplaceBesked
End Function
%>

har fået det til at virke på en anden måde !