opendoug

Public Function quote(sString As String) As String
    quote = Chr(34) + sString + Chr(34)
End Function

Public Function URLEncode(sString As String) As String
  Dim iLen As Integer
  iLen = Len(sString)

  If iLen > 0 Then
    ReDim sResult(iLen) As String