🚀 go-pugleaf

Gebruik deze functie bij het lezen van de database

Function VervangLineFeed(memo)
    do while (instr(1,memo,chr(13))<>0)
        memo = Replace(memo,chr(13),"<br>")
    loop
    VervangLineFeed = memo
End Function

en vergeet deze functie niet bij het wegschrijven naar uw db, bij deze
laatste functie maak je het mogelijk met single quotes te werken, en vermijd
je hackers bij het inloggen

Function CleanSQLString(InString)
    CleanSQLString = "'" & Replace(InString, "'", "''") & "'"
End Function




"Mathias Vissers" <matje008@hotmail.com> schreef in bericht
news:EbK4b.13292$KH1.593979@phobos.telenet-ops.be...
> Beste,
>
> Ik heb een simpel forumpje gemaakt. Bij het verzenden van een nieuw
bericht
> wordt de geposte tekst gecontroleerd op 'nieuwe lijnen' en vervangen door
de
> html-tags <br>
> Ik gebruik daarvoor deze code:  tekst = Replace(tekst, vbCrLf, "<BR>")
>
> Nu zit er ook een mogelijkheid in zodat mensen hun bericht terug kunnen
> aanpassen. Indien ze echter het formuliertje te zien krijgen met hun
> ingetypte tekst, staan hier nu ipv enters de html-tags <br>
> Kan je op een of andere manier terug dat tekstvak wijsmaken dat hij de
> <br>'s moet vervangen door een nieuwe lijn?
>
> Bedankt!
>
> M.
>
>