(Classic ASP) Create multipart/alternative MIME

Demonstrates how to create a multipart/alternative MIME structure using the NewMultipartAlternative method.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' Start with an empty MIME object...
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set mime = Server.CreateObject("Chilkat.Mime")

' Initialize it as multipart/alternative.
success = mime.NewMultipartAlternative()

' Create a text/plain part.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set ptMime = Server.CreateObject("Chilkat.Mime")
success = ptMime.SetBodyFromPlainText("This is the plain text body.")
Response.Write "<pre>" & Server.HTMLEncode( ptMime.GetMime()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "****") & "</pre>"

' The text/plain part looks like this:

' 	Content-Type: text/plain
' 	Content-Transfer-Encoding: 7bit
' 
' 	This is the plain text body.

' Create a text/HTML part.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Mime")
set htmlMime = Server.CreateObject("Chilkat.Mime")
success = htmlMime.SetBodyFromHtml("<html><body><p>This is the <b>HTML body</b></p></body></html>")
Response.Write "<pre>" & Server.HTMLEncode( htmlMime.GetMime()) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "****") & "</pre>"

' The text/html part looks like this:

' 	Content-Type: text/html
' 	Content-Transfer-Encoding: 7bit
' 
' 	<html><body><p>This is the <b>HTML body</b></p></body></html>

' Add both parts as children of the multipart/alternative
success = mime.AppendPart(ptMime)
success = mime.AppendPart(htmlMime)
Response.Write "<pre>" & Server.HTMLEncode( mime.GetMime()) & "</pre>"

' This the result.  The boundary string was automatically generaetd.

' 	Content-Type: multipart/alternative; boundary="------------080803090906030708030908"
' 
' 	--------------080803090906030708030908
' 	Content-Type: text/plain
' 	Content-Transfer-Encoding: 7bit
' 
' 	This is the plain text body.
' 	--------------080803090906030708030908
' 	Content-Type: text/html
' 	Content-Transfer-Encoding: 7bit
' 
' 	<html><body><p>This is the <b>HTML body</b></p></body></html>
' 	--------------080803090906030708030908--

%>
</body>
</html>