<% 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 %>