newsletter ASP CDOSYS

[tommy84]

questo è il pezzo di codice dove è specificata questa variabile...

<%
  Dim rsNews, recipients, strCount
  Set rsNews = Server.CreateObject("ADODB.Recordset")
  strSQL = "SELECT * FROM newsLetter WHERE confirm = 'yes';"
  rsNews.Open strSQL, objConn, adOpenForwardOnly, adLockOptimistic, adCmdText
  strCount = 0
  If Not rsNews.EOF Then
    Do While Not rsNews.EOF
      recipients = recipients & rsNews("email") & ","
      strCount = strCount + 1
      rsNews.MoveNext
    Loop
    recipients = Left(recipients,Len(recipients)-1)
  End If
  rsNews.Close
  Set rsNews = Nothing
  
  If Request.Form("action") = "" Then
%> 

<%
  Else
    Dim mailObj, cdoMessage, cdoConfig, addrList, strEmailMsg, subject
    Dim strEmail
    
    strEmail = Request.Form("recipients")
    subject = request.form("nwsubject")
    'send email so subscriber can confirm
    strEmailMsg = Replace(Request.Form("msg"),Chr(13) & Chr(10),"
")
    If Request.Form("version") = "html" Then
      strEmailMsg = strEmailMsg & strFooter
    Else
      strEmailMsg = Replace(strEmailMsg & strFooter,"
",Chr(13) & Chr(10))
    End If 

Dopo di questo controllo ci sta il pezzo di codice che invia CDOSYS