I want to be able to add a date variable in vbs and send a file based on this variable

I want to be able to set the variable newDate in a vbs script and to be able to send this file as an attachment.

set newDate=%date:~4,2%-%date:~7,2%-%date:~10%
'Sending a text email using authentication against a remote SMTP server
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
Const cdoAnonymous = 0
' Use basic (clear-text) authentication.
Const cdoBasic = 1
' Use NTLM authentication
Const cdoNTLM = 2 'NTLM
'Send attachments
Dim objEmail,AddAttch
Set oShell = CreateObject("wscript.shell")
Set objEmail = CreateObject("Sec.Message")
objEmail.From = "no-reply@noreply.com"
objEmail.To = "<my email removed>"
objEmail.Subject = "Export with Error - Sec"
objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _ ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.AddAttachment "c:\oracle\exports_error\export_db_sec_%newDate%.log"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "<Ip address here>"
objEmail.Configuration.Fields.Update objEmail.Send
objMessage.AddAttachment "c:\oracle\exports_error\export_db_sec_%newDate%.log"
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = _
cdoBasic
objEmail.Configuration.Fields.Update objEmail.Send

This script is giving this error:

C:\oracle\admin\secmonit\scripts\send_export_error.vbs(16, 38) Microsoft VBScrip
t compilation error: Invalid character


C:\oracle\admin\secmonit\scripts>send_export_error.vbs
Microsoft (R) Windows Script Host Version 5.6
Copyright (C) Microsoft Corporation 1996-2001. All rights reserved.

C:\oracle\admin\secmonit\scripts\send_export_error.vbs(16, 38) Microsoft VBScrip
t compilation error: Invalid character