Hvordan lage en funksjon som bytter ut ord med egene variabler

Du skal bare sende mailen med dine variabler i, f.eks som html mail.. Men det er ikke nødvendigt:

Dim post, brukernavn, passord
brukernavn = "Hans"
passord = "sesamlukdigop"
set post = Server.createObject("CDONTS.newmail")
post.from = "website@digselv.se" //Skal være en gyldig adresse
post.to = modtageremail
post.subject = "Besked fra mig"
post.bodyformat = 0
post.body = "Hej " & brukernavn & "<br>Ditt nye passord er " & newpassord & "<br>Venlig hilsen <a href=""http://www.ditdomæne.se"">Mig</a>"
post.Host = "smtp1.b-one.nu"
post.send
set post = nothing

:)

//legende.dk

Det er ikke dette jeg er ute etter men et replace funksjon som gjør at en bruker selv kan legge inn tekst i en eget felt. Det skal nødvendigvis ikke være et "send mail script"

Hej " & brukernavn & "<br>Ditt nye passord er

Kan også være "Gratulerer [brukernavn] du har vunnet en premie! osv...

Meningen er at man selv skal editere teksten og selv sette inn variabler som bli fastsatt en annet sted.

// Funktionen

Function insertVariables(strng)
  insertVariables = strng
  insertVariables = Replace(insertVariables, "<brukernavn>", brukernavn)
  insertVariables = Replace(insertVariables, "<password>", password)
  // etc
End Function


// Når mailen sendes

{...}
post.body = insertVariables(RS("mailText"))
{...}


// mailText gemmes i en database ligesom alt muligt andet tekst

{...}
RS("mailText") = Request.Form("mailText")
{...}

// Lidt mere uddybning af funktionen

Function insertVariables(strng)
  Set RS = Conn.Execute("Select * From mailTexts Where blabla='blabla'")
  insertVariables = strng
  insertVariables = Replace(insertVariables, "<brukernavn>", RS("brukernavn"))
  insertVariables = Replace(insertVariables, "<password>", RS("password"))
  // etc
End Function

Dette virker fint. Takker

<%
strNavn    = "Kalle Klovn"
strAlder    = "35"
strSted        = "Harstad"

strTekst    = "Hei [navn], din alder er [alder] og du kommmer fra [sted]!"

Response.Write(strTekst & "<br><br>")

Function insertVariables(strng)
  insertVariables = strng
  insertVariables = Replace(insertVariables, "[navn]", strNavn)
  insertVariables = Replace(insertVariables, "[alder]", strAlder)
  insertVariables = Replace(insertVariables, "[sted]", strSted)
End Function

Response.Write(insertVariables(strTekst))
%>