<%
RequestMethod=Request.ServerVariables("REQUEST_METHOD")
if RequestMethod="POST" then
Name=request.form("Name")
Email=request.form("Email")
How=request.form("How_did_you_hear_about_us")
MailMessage=request.form("message")
if Email<>"" and Name<>"" and MailMessage<>"" then
HostName=request.servervariables("REMOTE_ADDR")
set Mailer = Server.CreateObject("SMTPsvg.Mailer")
MessageText= "Name: " & Name & vbcrlf
MessageText= MessageText & "E-Mail: " & Email & vbcrlf
MessageText= MessageText & "How Heard: " & How & vbcrlf & vbcrlf
MessageText=MessageText & MailMessage & vbcrlf & vbcrlf & HostName
if len(Name)<100 and len(Email)<100 and len(How)<100 and instr(MailMessage,"declare")=0 then
Mailer.FromName= Name
Mailer.FromAddress= EMail
Mailer.RemoteHost = "mail.oladesignworks.com"
Mailer.Recipient = "robyn@oladesignworks.com"
Mailer.Subject = "Web Site Contact"
Mailer.BodyText = MessageText
Mailer.SendMail
end if
response.redirect "Thank_You.html"
else
end if
end if
%>
Contact us at 336-722-0794
