i forgot i already made the looping code you can use HTMLEncodeString like so

VB Code:
  1. sToInsert = HTMLEncodeString(theString,Array("'","&"),Len(Array("'","&")))