Classic ASP

Add a MIME Header Field

Demonstrates the Chilkat Mime.AddHeaderField method, which appends a new header field. The first argument is the field name and the second is the value. Existing fields with the same case-insensitive name are preserved, so this can create duplicates.

Background: MIME headers are ordered name/value lines, and some — Received, for instance — legitimately appear more than once. AddHeaderField is the tool for that: it always appends, never replacing an existing field of the same name. When you instead want exactly one field with a given name, use SetHeaderField, which replaces rather than accumulates.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  Demonstrates the Mime.AddHeaderField method, which appends a new header field.  The 1st argument
'  is the field name and the 2nd is the value.  Existing fields with the same (case-insensitive)
'  name are preserved, so this can create duplicate fields.

set mime = Server.CreateObject("Chilkat.Mime")

success = mime.SetBodyFromPlainText("Hello.")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

'  Append header fields.  AddHeaderField does not replace existing fields of the same name.
success = mime.AddHeaderField("X-Custom-Header","value1")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

success = mime.AddHeaderField("X-Priority","3")
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

headers = mime.GetEntireHead()
If (mime.LastMethodSuccess = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mime.LastErrorText) & "</pre>"
    Response.End
End If

Response.Write "<pre>" & Server.HTMLEncode( headers) & "</pre>"

%>
</body>
</html>