[thelist] Apostrophes

[Jason Cartwright]

You need to replace single ' with  double ''. I use this function -

Function StrQuoteReplace(strValue)
	StrQuoteReplace = Replace(strValue, "'", "''")
End Function

Jason
www.jasoncartwright.com

> -----Original Message-----

> ----------------------------
> | This isn't a message.    |
> |                          |
> |__________________________|
>
> strSQL = "INSERT INTO CMSSocial (CMSSocialTitle,
> CMSSocialBody, CMSSocialEdited, CMSSSubmit, CMSUserID,
> CMSEditorID)  VALUES  (' " & strTitle & " ', ' " & strBody &
> " ', ' " & strEdited & " ', ' " & strSubmit & " ', ' " &
> findit.Fields.item("CMSUserID").value & " ', ' " &
> findit2.Fields.item("CMSUserID").value & " ')"