<%@ Language=VBScript %>
<%'response.buffer=true
Dim CR
Dim strMsg, Mailer, strError
CR = CHR(10)
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
'Set Mailer = CreateObject("CDO.Message")
Mailer.FromName = "Internet - Puppy Name Test"
Mailer.FromAddress = "(e-mail address removed)"%> <!--Request("T9")--><%
Mailer.ClearRecipients
'Mailer.AddRecipient "Opal McAuley", "(e-mail address removed)"
Mailer.AddRecipient "Ryan McAuley", "(e-mail address removed)"
if request("T2") = " " then
response.write("no name")
end if
strMsg = "Tattoo #: 5UK" + Request("T10") & CR &_
"Last Name: " + Request("T2") & CR &_
"First Name: " + Request("T1") & CR &_
"Email: " + Request("T9") & CR &_
"Requested Reg'd Puppys Name: " + Request("T12") & CR &_
"Call Name: " + Request("T11")
response.write(strMsg)
Mailer.bodytext = strMsg
mailer.organization = "Chrys-haefen"
mailer.subject = "Puppy Name"
mailer.smtplog = "F:\chrys-haefen\cgi-bin\mysmtplog.txt"
mailer.wordwraplen = 50
'Mailer.RemoteHost = "mail.chrys-haefen.com"
'if not Mailer.SendMail then
' if Mailer.Response <>"" then
' strError=Mailer.Response
' else
' strError = "Unknown"
' end if
' Response.Write "Mail Failure occured. Reason: " & strError
'end if
set Mailer = nothing
'Response.Redirect("comfirmation_name.asp")
Is the code that will send the email message. The calling page is the actual
form that the user fills out.
And yes my webserver supports aspmail.