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

RickardP_GSIAsked:
Who is Participating?
 
jpg526Connect With a Mentor Commented:
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
 
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
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

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.

 
jpg526Commented:
the double quotation mark should be in pair
0
 
RickardP_GSIAuthor Commented:
I just don't see where the quotation marks are wrong.  Maybe I went on vacation for too long - ha
0
 
RickardP_GSIAuthor Commented:
Thank you
0
All Courses

From novice to tech pro — start learning today.