%
DIM strEmail, strFirstName, strLastName, strSubject, strComments, Mailer
strname = Request("name")
straddress = Request("address")
strphone1 = Request("phone1")
strphone2 = Request("phone2")
strmorning = Request("morning")
strafternoon = Request("afternoon")
strevening = Request("evening")
stremail = Request("email")
strport = Request("port")
strwauchope = Request("wauchope")
strfrom = Request("from")
strto = Request("to")
strsmall = Request("small")
strbedone = Request("bedone")
strbedtwo = Request("bedtwo")
strbedthrees = Request("bedthrees")
strbedthreel = Request("bedthreel")
strbedfour = Request("bedfour")
strlarger = Request("larger")
strdiscuss = Request("discuss")
strtrailer = Request("trailer")
body = vbCrLf & " NAME = " + strname
body = body & vbCrLf & " ADDRESS = " + straddress
body = body & vbCrLf & " PHONE1 = " + strphone1
body = body & vbCrLf & " PHONE2 = " + strphone2
body = body & vbCrLf & " MORNING = " + strmorning
body = body & vbCrLf & " AFTERNOON = " + strafternoon
body = body & vbCrLf & " EVENING = " + strevening
body = body & vbCrLf & " EMAIL = " + stremail
body = body & vbCrLf & " PORT = " + strport
body = body & vbCrLf & " WAUCHOPE = " + strwauchope
body = body & vbCrLf & " FROM = " + strfrom
body = body & vbCrLf & " TO = " + strto
body = body & vbCrLf & " SMALL = " + strsmall
body = body & vbCrLf & " BEDONE = " + strbedone
body = body & vbCrLf & " BEDTWO = " + strbedtwo
body = body & vbCrLf & " BEDTHREES = " + strbedthrees
body = body & vbCrLf & " BEDTHREEL = " + strbedthreel
body = body & vbCrLf & " BEDFOUR = " + strbedfour
body = body & vbCrLf & " LARGER = " + strlarger
body = body & vbCrLf & " DISCUSS = " + strdiscuss
body = body & vbCrLf & " TRAILER = " + strtrailer
set Mail = Server.CreateOBject( "JMail.Message" )
Mail.Logging = True
Mail.ISOEncodeHeaders = False
Mail.ContentTransferEncoding = "7Bit"
Mail.From = strEmail
Mail.FromName = strName
Mail.AddRecipient "enquiries@acaciaselfstorage.com.au","Acacia Self Storage"
Mail.Subject = "Online quote request for Acacia Self Storage"
Mail.Body = body
Mail.Send "mail.tsn.cc"
'Response.Write Mail.Log
'Response.Write "
" & Mail.MailData
'Response.End
Set Mail = Nothing
%>
Port Macquarie Acacia Self Storage, and Port Macquarie Acacia Mini Storage
|
|
|
ph:
02 6581 3700 |
16 Acacia Avenue, Port Macquarie
|
|