<%
  'this function will test to see if there is an apostrophe in the string
  'passes back the position if there is an apostrophe in string or passes back
  '0 if there is no apostrophe in string.
  Function apostString(apostStr)

    Dim isApostrophe
    Dim strPos

    isApostrophe = 0
    For strPos = 1 To Len(CStr(apostStr))
      If Mid(CStr(apostStr), strPos, 1) = "'" Then isApostrophe = strPos
    Next

    apostString = isApostrophe

  End Function
%>