All pastes #1014 Raw Edit

Anonymous

public text v1 · immutable
#1014 ·published 2004-09-20 19:41 UTC
rendered paste body
Private Function FixUp(TheText)
if not isnull(Thetext) or len(Thetext)<>0 then
  FixUp = Replace(Replace(TheText,"'","`"),Chr(34),Chr(34)&Chr(34))
end if
End Function