| |
<%
'CHECK IF PAGE HAS BEEN SUBMITTED
If bSubmitted <> "True" Then
%>
<%
Else
Dim objCDOMail 'The CDO object
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
'CURRENTLY UNUSED OPTIONS
'objCDOMail.Cc = "6308078047@mobile.mycingular.com"
'objCDOMail.Bcc = "Tom@Coleman-Creative.com"
'objCDOMail.Importance = 1 '(0=Low, 1=Normal, 2=High)
'objCDOMail.AttachFile "c:\path\filename.txt", "filename.txt"
'objCDOMail.BodyFormat = 0 ' CdoBodyFormatHTML
'objCDOMail.MailFormat = 0 ' CdoMailFormatMime
objCDOMail.Send
Set objCDOMail = Nothing
%>
Thank you, your message has been sent. A representative
will respond to your request within 72 hours.
Register another person.
<%
end if
%>
|
|
