Contact Us
Set oSendMailer = Server.CreateObject("SMTPsvg.Mailer") if Request.form("email")"" Then oSendMailer.FromAddress = Request.Form("email") else oSendMailer.FromAddress = "mailer@bandlrecruitment.com" end if oSendMailer.FromName = request.form("name") oSendMailer.AddRecipient "Charles", "charles@planetearthlogistics.com" oSendMailer.AddRecipient "Heather", "heather@bandlrecruitment.com" oSendMailer.RemoteHost = "smtp.1and1.com" oSendMailer.Subject = "(BandL - "&request.form("contact")&") - " & Request.Form("subject") oSendMailer.BodyText = request.form("name") & vbcrlf & request.form("address") & vbcrlf & request.form("telephone") & vbcrlf & vbcrlf & Request.Form("enquiry") oSendMailer.SendMail set oSendMailer = nothing ?>Thank you for your interest. We always try to answer all messages within 2 working days.
'strPath = Server.MapPath(".") 'Set mailer = Server.CreateObject("SoftArtisans.SMTPMail") 'strVer = Mailer.Version 'mailer.RemoteHost = "smtp.1and1.com" 'if Request.form("email")"" Then 'mailer.FromAddress = Request.Form("email") 'end if 'mailer.AddRecipient "Stephen Dauris", "stephen@core-design.eu" 'mailer.AddRecipient "Charles", "charles@planetearthlogistics.com" 'mailer.BodyText = request.form("name") & vbcrlf & request.querystring("address") & vbcrlf & request.querystring("telephone") & vbcrlf & vbcrlf & Request.Form("enquiry") ''mailer.GetHtmltextfromfile strPath & "\index.asp" 'mailer.Subject = "(BandL - "&request.form("contact")&") - "&Request.Form("subject") 'If mailer.SendMail then 'Response.Write "Mail sent." 'Else 'Response.Write "Mail failure." 'End If 'response.write mailer.response 'set mailer = nothing ?>
