<% Option Explicit %>
Email demo
<%
' Now send the Email
Dim objMail ' The email message
Dim strMessage ' The message content
Dim strName ' The sender's regular name
Dim intEmailOK ' = 1 for Sender's email OK
Dim strSubject ' The topic of the email message
Dim strReceive ' To address
Dim strSender ' The From email address
strReceive = Request("Name") & " <" & Request("EmailAddress") & ">"
strSender = "David Bowen "
Response.Write strSubject & "
"
Response.Write "We have sent your email with the subject above."
%>