<%@LANGUAGE="VBSCRIPT"%>
<%
Dim MailerPath
Dim FromEmail
Dim ToEmail
Dim FromName
Dim Subject
Dim fieldName
Dim fieldValue
Dim Message
Dim mailRedirect
Dim mailComp
MailerPath = "mail.picturedhomes.com"
FromEmail = "admin@entercraft.com"
ToEmail="contactus@picturedhomes.com"
FromName="Houser Web Site"
Subject="Contact Us Form Submission"
For i = 1 to Request.Form.Count
fieldName = Request.Form.Key(i)
fieldValue = Request.Form.Item(i)
Message = Message & fieldName & ": " & fieldValue & VbCrLf
Next
mailRedirect="contactus3.asp"
mailComp=2
If (cStr(Request("Submit")) <> "") Then
Select case mailComp
case 1
call CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case 2
call ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case 3
call ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case 4
call JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case 5
call ASPEMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case 6
call SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
case else
Response.Write("We are sorry, the system has encountered an error")
End Select
end if
%>
Houser Associates Real Estate - Providing professional real estate services to Goldsboro, NC and Seymour Johnson Air Force Base since 1950
Information
Request
How
soon are you planning to puchase a home?*:
Active
Military?*:
To
<%
'======================================
' Sends an email with CDONTS
function CDONTS_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
Dim Mailer
Set Mailer = Server.CreateObject("CDONTS.NewMail")
Mailer.To = ToEmail
Mailer.From = FromEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.MailFormat = 1
Mailer.BodyFormat = 1
Mailer.Send
Set Mailer = Nothing
CDONTS_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPMail
function ASPMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = MailerPath
Mailer.ContentType = "text/plain"
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.AddRecipient ToName, ToEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.SendMail
Set Mailer = Nothing
ASPMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPQMail
function ASPQMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.RemoteHost = MailerPath
Mailer.ContentType = "test/plain"
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.AddRecipient ToName, ToEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.QMessage = true
Mailer.SendMail
Set Mailer = Nothing
ASPQMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with SASmtpMail
function SASmtpMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("SoftArtisans.SMTPMail")
Mailer.RemoteHost = MailerPath
Mailer.contenttype = "text/plain"
Mailer.AddRecipient ToName, ToEmail
Mailer.FromName = FromName
Mailer.FromAddress = FromEmail
Mailer.Subject = Subject
Mailer.BodyText = Message
Mailer.SendMail
Set Mailer = Nothing
SASmtpMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with JMail
function JMail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("JMail.SMTPMail")
Mailer.ServerAddress = MailerPath & ":" & MailerPort
Mailer.contenttype = "text/plain"
Mailer.AddRecipient ToEmail
Mailer.Sender = FromEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.Execute
Set Mailer = Nothing
JMail_Mailer = true
Response.Redirect(mailRedirect)
end function
'======================================
' Sends an email with ASPEmail
function ASPEmail_Mailer(Message, FromEmail, ToEmail, FromName, ToName, Subject, MailerPath,mailRedirect)
on error resume next
Dim Mailer
Set Mailer = Server.CreateObject("Persits.MailSender")
Mailer.Host = MailerPath
Mailer.Port = MailerPort
Mailer.From = FromEmail
Mailer.FromName = FromName
Mailer.AddAddress ToName, ToEmail
Mailer.Subject = Subject
Mailer.Body = Message
Mailer.Send
Set Mailer = Nothing
ASPEmail_Mailer = true
Response.Redirect(mailRedirect)
end function
%>
