CDONTS TO和From邮件存储在DB中

时间:2011-09-01 19:05:44

标签: asp-classic cdonts

我有一个旧的应用程序,它使用经典ASP中的CDONTS发送邮件。

现在,我想存储数据库中发送的每封邮件的tofrom地址。

Dim a="' & 'FirstName LastName'<emailaddress>'"
trixMail.From= a
Dim b =  "anotheremailaddress"
trixMail.To = b 

a =TrixMail.From

b= TrixMail.To
Dim MM_query  
Dim MM_editCmd
MM_query =  "Insert into Logmail(FromEmail,ToEmail) values('"+a+"', '"+b+"')"

Set MM_editCmd = Server.CreateObject("ADODB.Command")
MM_editCmd.ActiveConnection = MM_dbConn_STRING
MM_editCmd.CommandText = MM_query
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

所以,这就是我正在做的事情。但是,我收到错误说

  

第i行声明的预期结束我声明变量'a'。

那么,你能让我知道我哪里出错吗?

1 个答案:

答案 0 :(得分:0)

这一行是问题所在:

Dim a="' & 'FirstName LastName'<emailaddress>'"

更改为

Dim a: = """FirstName LastName"" <emailaddress>"

Dim a
a = """FirstName LastName"" <emailaddress>"

我删除了您发布的姓名和电子邮件地址,并根据需要进行了替换。