Solved

Microsoft VBScript compilation error '800a0409'

Posted on 2009-07-01
6
1,071 Views
Last Modified: 2012-08-14
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
Comment
Question by:RickardP_GSI
  • 3
  • 3
6 Comments
 
LVL 4

Expert Comment

by:jpg526
ID: 24754962
you may try add a " symbol at the end of "rickardp@guestservices.com


Mailer.AddRecipient "TEST","rickardp@guestservices.com"
0
 

Author Comment

by:RickardP_GSI
ID: 24754998
That actually worked.  Out of curiosityi - because I have never had this problem before - what does the symbol do?
0
 
LVL 4

Expert Comment

by:jpg526
ID: 24755054
the double quotation mark should be in pair
0
Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

 

Author Comment

by:RickardP_GSI
ID: 24755091
I just don't see where the quotation marks are wrong.  Maybe I went on vacation for too long - ha
0
 
LVL 4

Accepted Solution

by:
jpg526 earned 250 total points
ID: 24755179
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
 

Author Closing Comment

by:RickardP_GSI
ID: 31598785
Thank you
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

I met Paul Devereux (@pdevereux) today when I responded to his tweet asking “Anybody know how to automate adding files from disk to a folder in #outlook  ?”.  I replied back and told Paul that using automation, in this case scripting, to add files t…
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script.  Many of these have come from the web or adaptations from snippets I find on the Web.  Periodically I add to them when I come…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

706 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now