Replace Apostrophes

When an apostrophe ( ' ) is inserted into an insert string errors will occur. The following will cause errors:

LastName = "O'Leary" Conn.Execute "INSERT (LastName) VALUES ('" & LastName & "')"

The following function will solve this problem:

<%
 function theFIX( theVariable )
 theFIX=Replace(theVariable, "'", "''")
 ' this replaces a single apostrophe ( ' ) with two single apostrophes ( ''). Note: two single apostrophes, not one quotation mark
 end function
%>

Now use the function in the string:

Conn.Execute "INSERT (LastName) VALUES ('" & theFIX(Request("LastName")) & "')"

asp functions apostrophes single quotes function function replace single quote