<%
  Private Function SQLEncode(SQLEncodeValue)
    For LCV = 1 to Len(SQLEncodeValue)
      Select Case Mid(SQLEncodeValue, LCV, 1)
        Case "'"
          SQLEncode = SQLEncode & "'"
          SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1)
        Case Else
          SQLEncode = SQLEncode & Mid(SQLEncodeValue, LCV, 1)
      End Select
    Next
  End Function
%>