VB compilation error - Expected end of statement - help with syntax!

[siocodes]

I know I am so close on this, but I cannot see what the syntax fix is. I am sending two e-mails via one asp page; one to the gift giver and one to the recipient...I originally had the message text in the YourMail.TextBody = equation, but kept getting syntax errors so have since moved my message body to another section. Nonetheless, I'm still having problems. I am calling mytxt from the virtual conn.asp file.

When I submit my form, I get the error:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/cards/sent.asp, line 179

I'd greatly appreiciate help seeing what I'm not.... thanks!!

[code]
<%
RS.Close
Set RS = NOTHING
Conn.Close
Set Conn = NOTHING
mytxt2=mytxt2&postID

msgbody = ""
msgbody = msgbody & mytxt & vbcrlf&_
msgbody = msgbody & mytxt1 & VBCrLf & VBCrLf&_
msgbody = msgbody & mytxt2 & VBCrLf & VBCrLf&_
msgbody = msgbody & "The gift page will tell you more details about your gift." & VBCrLf & VBCrLf&_
msgbody = msgbody & "We invite you to get our monthly e-newsletter for more recipes. Click here to join:" & VBCrLf&_
msgbody = msgbody & "http://www.emailprodiver.com/signup.php" & VBCrLf & VBCrLf&_
msgbody = msgbody & "Cheers!" & VBCrLf&_
msgbody = msgbody & "Your friends at Business" & VBCrLf & VBCrLf & "www.mydomain.com" & VBCrLf & "Questions? E-mail us at [e-mail]" & VBCrLf & "or toll-free: 1-877-555-1212" & VBCrLf&_

LINE 179 --> Dim YourMail
Set YourMail = Server.CreateObject("CDO.Message")
YourMail.From = f
YourMail.To = t
YourMail.Bcc = "[e-mail]"
YourMail.Subject = "Gift subscription from " &fn
YourMail.TextBody = msgbody


YourMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
YourMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'Server port
YourMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
YourMail.Configuration.Fields.Update
YourMail.Send
set YourMail=nothing

msgbody = ""
msgbody = msgbody & "Thank you!" & VBCrLf&_
msgbody= msgbody & "Your e-card has been successfully sent to " &t & VBCrLf & VBCrLf&_
msgbody= msgbody & "You can view a copy of your e-card here:" & VBCrLf&_
msgbody= msgbody & mytxt2 & VBCrLf & VBCrLf&_
msgbody= msgbody & "Cheers!" & VBCrLf & VBCrLf&_
msgbody= msgbody & "Your friends at Business" & VBCrLf & VBCrLf & "www.mydomain.com" & VBCrLf & "Questions? E-mail us at [e-mail]" & VBCrLf & "or toll-free: 1-877-555-1212" & VBCrLf&_

Dim TheirMail
Set TheirMail = Server.CreateObject("CDO.Message")
TheirMail.From = "Business <[e-mail]>"
TheirMail.To = f
TheirMail.Bcc = "[e-mail]"
TheirMail.Subject = "E-Card Confirmation"
TheirMail.TextBody = msgbody


TheirMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
TheirMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'Server port
TheirMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
ObjMail.Configuration.Fields.Update
TheirMail.Send
set TheirMail=nothing


%>
[/CODE}

[JamieHowarth0]

Hi siocodes,

Try commenting out the Dim line and tell us what happens.

Best regards,

medicineworker

[siocodes]

Thanks, medicineworker. That does just causes a problem with the Server.CreateObject line.... I know there's something wrong with the syntax of the Text.Body of the message. I have all sorts of characters in there, but I do the same in another page (? and / and words like "if")

Here's the latest message code (I keep playing with it). Is there a way I don't know about to deliniate copy (vs. code) in the TextBody= statement?

    Dim ObjMail
    Set ObjMail = Server.CreateObject("CDO.Message")
    ObjMail.From = f
    ObjMail.To = t
    ObjMail.Subject = "XXXX gift subscription from " &fn
    ObjMail.TextBody = "I have given you a subscription to XXXX" & vbcrlf&_
    mytxt1 & VBCrLf & VBCrLf&_
    mytxt2 & VBCrLf & VBCrLf&_
    "We hope you enjoy your subscription to XXXX." & VBCrLf & VBCrLf&_
    "Cheers!" & VBCrLf&_
    "Your friends at XXX" & VBCrLf & VBCrLf & "www.mydomain.com" & VBCrLf & "Questions? E-mail us at [e-mail]" & VBCrLf & "or toll-free: 1-877-555-1212" & VBCrLf&_
 
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'Server port
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
  ObjMail.Configuration.Fields.Update
    ObjMail.Send
  set ObjMail=nothing
 

[siocodes]

Actually, now my problem is that I'm getting a Type Mismatch in the line "I have given you a s"

Thanks, medicineworker. That does just causes a problem with the Server.CreateObject line.... I know there's something wrong with the syntax of the Text.Body of the message. I have all sorts of characters in there, but I do the same in another page (? and / and words like "if")

Here's the latest message code (I keep playing with it). Is there a way I don't know about to deliniate copy (vs. code) in the TextBody= statement?

    Dim ObjMail
    Set ObjMail = Server.CreateObject("CDO.Message")
    ObjMail.From = f
    ObjMail.To = t
    ObjMail.Subject = "XXXX gift subscription from " &fn
    ObjMail.TextBody = "I have given you a subscription to XXXX" & vbcrlf&_
    mytxt1 & VBCrLf & VBCrLf&_
    mytxt2 & VBCrLf & VBCrLf&_
    "We hope you enjoy your subscription to XXXX." & VBCrLf & VBCrLf&_
    "Cheers!" & VBCrLf&_
    "Your friends at XXX" & VBCrLf & VBCrLf & "www.mydomain.com" & VBCrLf & "Questions? E-mail us at [e-mail]" & VBCrLf & "or toll-free: 1-877-555-1212" & VBCrLf&_
 
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of remote SMTP server
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"
'Server port
  ObjMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
  ObjMail.Configuration.Fields.Update
    ObjMail.Send
  set ObjMail=nothing
 

[siocodes]

I figured it out myself. It was just line breaks in my msg body code string. I don't know why that would really matter, but it did.

And, fini!

[JamieHowarth0]

Hi siocodes,

Great job for getting it working yourself, thanks for telling us what your problem was too!

Did you get round it by using Chr(32) or by putting vbCrLf as opposed to vbcrlf (lower-case)?

medicineworker

[Nicodemas]

negative... the problem was this:

VBCrLf & "or toll-free: 1-877-555-1212" & VBCrLf&_
 
LINE 179 --> Dim YourMail
 

The "&_" was expecting create a concatenation, but you Dim'd a variable instead.

if you remove the "&_", it wouldn't render that error.

[manusamoa]

I also found the same problem, and it was in the body of the script. I used a formatting editor (Notepad++) to edit script and found a call that was not formatted correctly. Once I fixed that, it ran fine. Thanks Nicodemas for the help.