| BRS
Relocation Services, Inc.
20 Aquarium Drive
Secaucus, NJ 07094
ph: 718.399.8000
ph: 201.520.0402
fx: 718.399.8016
e:info@brsrelocations.com
www.brsrelocations.com
|
<%
If request.servervariables("HTTP_METHOD")="POST" Then
Set MyMail = CreateObject("cdo.message")
MyMail.From = "brsrelocations@brinkster.net"
MyMail.To = "contact@brsrelocations.com"
MyMail.Subject = "BRSRelocations.com Contact from" & Request.Form("name") & " " & Request.Form("email")
MyMail.TextBody = Request.Form("message")
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mymail.brinkster.com"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "brsrelocations@brinkster.net"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "jlinares20"
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
MyMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
MyMail.Configuration.Fields.Update
MyMail.SEND
Response.Write "Your message has been sent. Thank you.
"
End If
%>
Send a message to BRS Relocation
Services by filling out all the fields below:
|
Contact
Us