Bedre replace funktion til \" og \'

str = Replace(str, \"\'\", \"\'\'\")

...eller hvad tænker du på ?

Ja hvis det har samme effekt så er det hvad jeg tænker.

de her linier laver noget du måske kan bruge

Dim reg
Set reg = New RegExp
reg.Pattern = \"([\\\'\\\" & chr(39) & \"])\"
reg.Global = True
str = reg.Replace(str,\"$1$1\")

hæ hæ ... den anden bruger 3 linier, som faktisk kunne skrives som 2:

str = Request.Form(\"str\")
str = replace(str,\"\'\",\"\'\'\")

og den med RegExp bruger 5 linier ;o)

Pak min ene linie ind i en funktion:

FUNCTION DBtext(input)
  DBtext = Replace(input, \"\'\", \"\'\'\")
END FUNCTION

Så kan du kalde dem generelt:
SQL=\"UPDATE tabel SET felt=\" & DBtext(Request.Form(\"str\")) & \" WHERE id=1\"

Sone> Hvad replacer du?

\' og \"?

Jeg spørger fordi eksperten har det med at fucke de tegn up.

Det fungerer fint sone. Tak for det ;-)

tag dig sammen tdaugaard - prøv at lære lidt om regExp før du gør grin med brug af dem.

replace erstatter jo kun det første forekomst af den streng, man angiver som dens parameter. Hvorimod virker en regExp med global-property sat til sand for ALLE forekomster af det, man søger efter, i input-strengen

stringbuffer:> tag dig SELV sammen!! Replace() erstatter ALLE forekomster af søgestrengen!