Newsletter, evitare 1 campo..

[AltF4]

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?

<%

		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 
%>

[santino83]

oggetto = request.form("Oggetto")

FOR numeroCampi = 1 TO (Request.Form.Count() - 1)
campo=trim(Request.Form(numeroCampi))
   IF campo<>"" and campo<>trim(oggetto) THEN
      corpoMessaggio = corpoMessaggio & vbCrLf & Trim(Request.Form(numeroCampi))
   END IF
NEXT

[AltF4]

Ti ringrazio!

Cmq nell'attesa ho eliminato FOR NEXT e ho fatto direttamente così:

DIM corpoMessaggio, oggetto, invioA, invioDa

	
invioA 					=  RecSet("Email")
		
invioDa 					=  "info@runnersport.it"

oggetto					=   request.form("Oggetto")

corpoMessaggio				=   request.form("corpo")

Pensi che potrei avere problemi? Hoprovato e non sembra..

[AltF4]

Scusami ancora, ma adesso mi da questo errore:

error '8004020f'
/areariservata/newsletter/mail.asp, line 46


anche se le email arrivano lo stesso!

A cosa è dovuto?

<%

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

<%

DIM corpoMessaggio, oggetto, invioA, invioDa

	
invioA 					=  RecSet("Email")
		
invioDa 					=  "newsletter@prova.it"

oggetto					=	request.form("Oggetto")

corpoMessaggio				=	request.form("Corpo")

	
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 & vbCrLf & corpoMessaggio & ""
   .Send

End With
   
%>

<% 		RecSet.MoveNext
		Loop
		RecSet.Close 
%>

[santino83]

che c'è alla linea 46?

[AltF4]

Linea 46 -> .Send