寄往和寄出邮件以存储在数据库中

Question

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

现在，我想保存to和from数据库中发送的每个邮件地址。

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

所以，这就是我正在做的。 但是，我得到一个错误的说法

我在声明变量'a'的那一行预期的语句结尾。

所以，你能让我知道我要去哪里了吗？

Answer 1

这行是问题所在：

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

改成

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

要么

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

我已经删除了您发布的名称和电子邮件地址，请根据需要替换。