CDONTS，并从邮件存储在DB

Question

我有一个旧的应用程序，使用发送邮件CDONTS在传统的ASP。

现在，我想存储在数据库中发送的每封邮件的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>" 

我已删除您发布的姓名和电子邮件地址，根据需要更换。