<% function fnReplace(strText) if strText <> "" AND isNull(strText)=FALSE then strText=Replace(strText,"'","''") end if fnReplace=strText end function %>