<%@ Language="VBScript" CodePage="65001" %> <% Option Explicit Response.Buffer = True Response.ContentType = "text/plain" Response.Charset = "utf-8" If Application("BhyluLab") <> "YES" Then Response.Status = "403 Forbidden" Response.Write "Use the separate Bhylu learning lab." Response.End End If Dim message, stream, mime Set message = Server.CreateObject("CDO.Message") message.From = "workshop@example.invalid" message.To = "learner@example.invalid" message.Subject = "Mending workshop reminder" message.TextBody = "Your draft requests one seat." Set stream = message.GetStream mime = stream.ReadText Response.Write "Subject present: " & (InStr(mime, "Mending workshop reminder") > 0) stream.Close Set stream = Nothing Set message = Nothing %>