title: Classic ASP Base64 Encoding and Line Breaks
body: <p>I have been using the base64 encoding function from this answer (code is below) </p>
  
  <p><a href="https://stackoverflow.com/a/506992/510296">https://stackoverflow.com/a/506992/510296</a></p>
  
  <p>I noticed that it is wrapping lines of output after the 72nd character (which causes problems when I try to pass that encoded string to the eBay API). </p>
  
  <p>I can remove the line breaks easily enough with <code>replace(base64string, vblf, "")</code> but wanted to ask if there is a proper way to prevent line breaks in the output. </p>
  
  <pre><code>Function Base64Encode(sText)
      Dim oXML, oNode
      Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
      Set oNode = oXML.CreateElement("base64")
      oNode.dataType = "bin.base64"
      oNode.nodeTypedValue =Stream_StringToBinary(sText)
      Base64Encode = oNode.text
      Set oNode = Nothing
      Set oXML = Nothing
  End Function
  
  Function Stream_StringToBinary(Text)
      Const adTypeText = 2
      Const adTypeBinary = 1
  
      'Create Stream object
      Dim BinaryStream 'As New Stream
      Set BinaryStream = CreateObject("ADODB.Stream")
  
      'Specify stream type - we want To save text/string data.
      BinaryStream.Type = adTypeText
  
      'Specify charset For the source text (unicode) data.
      BinaryStream.CharSet = "us-ascii"
  
      'Open the stream And write text/string data To the object
      BinaryStream.Open
      BinaryStream.WriteText Text
  
      'Change stream type To binary
      BinaryStream.Position = 0
      BinaryStream.Type = adTypeBinary
  
      'Ignore first two bytes - sign of
      BinaryStream.Position = 0
  
      'Open the stream And get binary data from the object
      Stream_StringToBinary = BinaryStream.Read
  
      Set BinaryStream = Nothing
  End Function
  </code></pre>