• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 1117
  • Last Modified:

Microsoft VBScript compilation error '800a0409'

What am I missing in the .asp code?   I keep getting this error:

Microsoft VBScript compilation error '800a0409'

Unterminated string constant

/indigo_privatedining.asp, line 31

Mailer.AddRecipient "TEST","rickardp@guestservices.com,
--------------------------------------------------------^

 but cannot see what I am missing
<%  
Response.Buffer = true
Dim body 
body = "" 
body = body & "Today's Date:   " & Request.Form("Date") &vbcrlf &vbcrlf 
body = body & "First Name:     " & Request.Form("FirstName") &vbcrlf &vbcrlf 
body = body & "Last Name:      " & Request.Form("LastName") &vbcrlf &vbcrlf
body = body & "Callback No:    " & Request.Form("Phone") &vbcrlf &vbcrlf
body = body & "Email:          " & Request.Form("EmailFrom") &vbcrlf &vbcrlf 
body = body & "Fax No.:        " & Request.Form("Fax") &vbcrlf &vbcrlf 
body = body & "Date of Event:  " & Request.Form("EventDate") &vbcrlf &vbcrlf
body = body & "Time of Event:  " & Request.Form("EventTime") &vbcrlf &vbcrlf
body = body & "Estimated No. People: " & Request.Form("EstimatedNumberPeople") &vbcrlf &vbcrlf
body = body & "Type of Event:  " & Request.Form("EventType") &vbcrlf &vbcrlf
body = body & "Yes, Send me Info:  " & Request.Form("Yes_I_want_info") &vbcrlf &vbcrlf 
body = body & "Visited Indigo Before?:   " & Request.Form("VisitIndigoBefore") &vbcrlf &vbcrlf 
body = body & "How Learned about Indigo: " & Request.Form("How_Did_You_Learn_About_Indigo") &vbcrlf &vbcrlf 
body = body & "Other:          " & Request.Form("Other") &vbcrlf &vbcrlf 
body = body & "Comments:       " & Request.Form("Comments") &vbcrlf &vbcrlf
 
'Response.write body
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName= Request("rickardp@guestservices.com")
Mailer.ReplyTo= Request("EmailFrom") 
Mailer.FromAddress= Request("EmailFrom")
Mailer.CC= Request("EmailFrom")
Mailer.RemoteHost = "mail-fwd"
'mailer.qmessage = true
 
 
Mailer.AddRecipient "TEST","rickardp@guestservices.com,
Mailer.AddBCC "Web Marketing Analyst","floreroc@guestservices.com"
Mailer.Subject    = "Indigo Landing Private Dining Inquiry"
Mailer.BodyText   = body
if Mailer.SendMail then
 response.Redirect("http://www.indigolanding.com/indigo_thankyouprivate.htm")
else
  Response.Write "Mail send failure. Error was " & Mailer.Response
end if
%>

Open in new window

0
RickardP_GSI
Asked:
RickardP_GSI
  • 3
  • 3
1 Solution
 
jpg526Commented:
you may try add a " symbol at the end of "rickardp@guestservices.com


Mailer.AddRecipient "TEST","rickardp@guestservices.com"
0
 
RickardP_GSIAuthor Commented:
That actually worked.  Out of curiosityi - because I have never had this problem before - what does the symbol do?
0
 
jpg526Commented:
the double quotation mark should be in pair
0
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

 
RickardP_GSIAuthor Commented:
I just don't see where the quotation marks are wrong.  Maybe I went on vacation for too long - ha
0
 
jpg526Commented:
Line 31
Mailer.AddRecipient "TEST","rickardp@guestservices.com,

rickardp@guestservices.com  -- only 1 double quote at the beginning of this string

Line 32
Mailer.AddBCC "Web Marketing Analyst","floreroc@guestservices.com"

floreroc@guestservices.com  -- there're double quote at the beginning and the end of this string
0
 
RickardP_GSIAuthor Commented:
Thank you
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: SSL Checker

Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now