CheckString

<%
Function chkstring(String)
If String = "" Then String = " "
chkstring = replace(String, "'", "''")
End Function
%>