<%
if (Request.Form("name") <> "" and Request.Form("email") <> "" and Request.Form("body") <> "") then
dim Mailer
dim strMsgHeader, strMsgBody, strMsgFooter
strMsgBody = "We will contact You shortly and hope that our service will satisfy Your request. " &vbCrLf
strMsgFooter = vbCrLf & "Sincerely, " &vbCrLf
strMsgFooter = strMsgFooter & vbCrLf &"Web Gurus Inc. Consulting services"
strMsgFooter = strMsgFooter & vbCrLf &"http://www.webguruscanada.com"
strMsgHeader = "Thanks for Your interest in our services, " &Request.Form("name") & " "&Request.Form("lname") &vbCrLf
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "Web Gurus Inc. Consulting services"
Mailer.FromAddress= "gurus@webguruscanada.com"
Mailer.RemoteHost = "mail.webguruscanada.com"
Mailer.AddRecipient Request.Form("name"), Request.Form("email")
Mailer.Subject = "Confirmation of contacting Web Gurus Inc."
Mailer.BodyText = strMsgHeader & strMsgBody & strMsgFooter
if Mailer.SendMail then
Response.Write ""
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
'-----------------------------------------------------------------------------
dim Mailer1
dim strMsgHeader1, strMsgBody1, strMsgFooter1
strMsgBody1 = Request.Form("body") &vbCrLf
strMsgBody1 = vbCrLf & strMsgBody1 & "From:" &Request.Form("name")
strMsgBody1 = vbCrLf & strMsgBody1 & "Organization:"& Request.Form("organization")
strMsgBody1 = vbCrLf & strMsgBody1 & "Contact:" &Request.Form("email")
Set Mailer1 = Server.CreateObject("SMTPsvg.Mailer")
Mailer1.FromName = "Web Gurus Inc. Consulting services"
Mailer1.FromAddress= "gurus@webguruscanada.com"
Mailer1.RemoteHost = "mail.webguruscanada.com"
Mailer1.AddRecipient "Web Gurus", "gurus@webguruscanada.com"
Mailer1.Subject = "Confirmation of contacting Web Gurus Inc."
Mailer1.BodyText = strMsgBody1
if Mailer1.SendMail then
Response.Write ""
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>
Thanks for Your interest with us, <%=Request.Form("name")%>
<% else %>
If you wish to contact us please fill out this form and we will contact you shortly.
Remember, that all our work is unique and exclusive. We do only custom work with individual approach
to each client.
<% End If %>
|