Replace funktion

tekst = RS_nyheder("tekst")
tekst = replace(tekst, vbCrLf, "<br>")
tekst = replace(tekst, "[img]", "<img src=""")
tekst = replace(tekst, "[/img]", """>")

Du kan godt skrive det på en linie, men det ser noget forvirrende ud.

tekst = replace(replace(replace(RS_nyheder("tekst"), vbCrLf, "<br>"), "[img]", "<img src="""), "[/img]", """>")

Tester lige - Tak

Og hvis du gerne vil ha' koden lidt pænere kan du bare smide det ind i en funktion:

Function funcReplace(varTekst)
varTekst = replace(varTekst, vbCrLf, "<br>")
varTekst = replace(varTekst, "[img]", "<img src=""")
varTekst = replace(varTekst, "[/img]", """>")
funcReplace = varTekst
End Function

Så kan du bare lave en

<%
Response.Write funcReplace(RS_nyheder("tekst"))
%>

og du skulle gerne ende med samme resultat.

Den skriver ikke noget  - Altså svaret kommer ud blankt...???

<%
tekst2 = RS_anmeldelser("tekst2")
tekst2 = replace(tekst2, vbCrLf, "<br>")
tekst2 = replace(tekst2, "[img]", "<img src=""")
tekst2 = replace(tekst2, "[/img]", """>")
%>

Du skal skrive Response.Write tekst2 til sidst, altså
<%
tekst2 = RS_anmeldelser("tekst2")
tekst2 = replace(tekst2, vbCrLf, "<br>")
tekst2 = replace(tekst2, "[img]", "<img src=""")
tekst2 = replace(tekst2, "[/img]", """>")
Response.Write tekst2
%>