LISTING 3: Spdemo.asp

<% @Language = "VBScript" %><%
BEGIN CALLOUT A
sSMTPServer = "server.domain.com"
END CALLOUT A
UID=Request.querystring("UID")
UDOM=Request.querystring("DOM")

sWhen = split(now," ")(0) & " at " & split(now," ")(1)

sMsg = "You received this message because you opened the SPAM DEMO e-mail<p>"
sMsg = sMsg & "You opened the SPAM DEMO message on " & sWhen & "<p>"

sMsg = sMsg & "If this were real, by opening the SPAM message - you'd soon be getting more 
spam in your mailbox each day!<p>"
sMsg = sMsg & "<b>If you didn't read the whole SPAM DEMO message, please finish it 
now!</b>"

set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")

iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
iConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = sSMTPServer
iConf.Fields.Update

iMsg.Configuration = iConf
iMsg.To = UID & "@" & UDOM
iMsg.From = "spamrodent@spamrodent.com"
iMsg.Subject = "You read the SPAM Demo at " & sWhen
iMsg.HTMLBody = sMsg
iMsg.Send

iMsg.To = UID & "@" & UDOM
iMsg.From = "spamrodent@spamrodent.com"
iMsg.Subject = "Ahhh! A live one! We'll send more SPAM!"
iMsg.HTMLBody = sMsg
For i = 1 to 9
 iMsg.Send
Next
BEGIN COMMENT
' Clean up variables.
END COMMENT
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>