<%
Function fixbug(strText)
If Not IsNull(strtext) then
strText = Replace(strText,"'","''")
strText = Replace(strText,"\","\\")
fixbug = strText
end if
End Function
%>