function filtrate(contentTemp)
contentTemp=replace(contentTemp,"'","''")
contentTemp=replace(contentTemp,"&","&")
contentTemp=replace(contentTemp,"<","<")
contentTemp=replace(contentTemp,">",">")
contentTemp=replace(contentTemp,chr(34),""")
contentTemp=replace(contentTemp," "," ")
contentTemp=replace(contentTemp,chr(13)&chr(10),"<br>")
filtrate=contentTemp
end function