Salve, tempo fa ho realizzato una semplice newsletter, anche con il Vs. aiuto. Ora ho aggiunto il campo "oggetto" che servirà come oggetto della newsletter di volta in volta.

Come faccio però ad evitare che l'oggetto venga ripetuto anche nel corpo del messaggio?

codice:


<%

		Set RecSet = Server.CreateObject("ADODB.Recordset")
		Visa = "SELECT Email FROM Newsletter"
		RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
		<%	Do Until RecSet.EOF %>

<%

DIM corpoMessaggio, oggetto, numeroCampi, invioA, invioDa

	'* voce da modificare con il proprio indirizzo email
	
invioA 						=  RecSet("Email")
		
invioDa 					=  "info@prova.it"

oggetto						=	request.form("Oggetto")

corpoMessaggio				=	""

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
   IF NOT Request.Form(numeroCampi) = "" THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Trim(Request.Form(numeroCampi))
   END IF
NEXT


	
DIM iMsg, Flds, iConf

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it" 
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update

With iMsg
   Set .Configuration = iConf
   .To = invioA
   .From = invioDa
   .Sender = invioDa
   .Subject = oggetto
   .TextBody = "Newsletter " & vbCrLf & corpoMessaggio & ""
   .Send

End With
   
%>

<% 		RecSet.MoveNext
		Loop
		RecSet.Close 
%>