Problema Mail

[Girogio]

Ciao ragazzi!!!!
Avrei un piccolissimo problemino (per voi).
Mi sono accorto provando la mia pagina newsletters sul web che nonostante abbia dentro il codice di tale pagine un controllo (if not objRec.eof then) e poi response write...anche se presente l'utente mi spedisce lo stesso la mail.
In questo caso la mail non dovrebbe partire ma invece la mia parte ugualmente.
Mi sapreste dire dove sbaglio.....sbaglierò sicuro in qualche condizione ossia else o end if...ma non riesco a trovare il modo per farla funzionare mi potreste dare una mano????
Vi posto parte del codice che fà il controllo se esite l'utente e poi manda la mail...

objRec.Open sql, objConn, 3, 3
  
 if not objRec.eof then
        response.write("

Utente già iscritto!</p>")
   response.write("

L'indirizzo E-mail è già presente nel nostro Database,
 si prega di ritornare indietro ed inserire un indirizzo corretto.</p>")
 
   
   else
        'crea nuovo record
        objRec.AddNew
        objRec("email")= ***
		objRec("guid")= guid
        objRec.Update
        response.write("

Benvenuto e grazie per esserti iscritto!</p>")
	   
	
	 end if
    'chiudo e distruggo recordset e connessione
    objRec.Close
    Set objRec = Nothing

    objConn.Close
    Set objConn = Nothing	
		
  
 
 else
         'codice non corretto
         response.write ("

Attenzione, il codice di controllo non è stato inserito correttamente</p>")
         response.write ("

Controllare di avere i cookie abilitati</p>")
end if
	
else
    response.write(messaggio)
end if


	Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.To = Request.form("++l")
objMail.From = "++++++"
objMail.Subject = "Conferma di iscrizione"
objMail.TextBody = "Benvenuto" 
ObjMail.Send() 
Set objMail = Nothing

%>

Grazie ragazzi!!!

[Mems]

objRec.Open sql, objConn, 3, 3
 
inviaEmail = false
 
 if not objRec.eof then
        response.write("

Utente già iscritto!</p>")
   response.write("

L'indirizzo E-mail è già presente nel nostro Database,
 si prega di ritornare indietro ed inserire un indirizzo corretto.</p>")
 
   
   else
        inviaEmail = true
        'crea nuovo record
        objRec.AddNew
        objRec("email")= ***
		objRec("guid")= guid
        objRec.Update
        response.write("

Benvenuto e grazie per esserti iscritto!</p>")
	   
	
	 end if
    'chiudo e distruggo recordset e connessione
    objRec.Close
    Set objRec = Nothing

    objConn.Close
    Set objConn = Nothing	
		
  
 
 else
         'codice non corretto
         response.write ("

Attenzione, il codice di controllo non è stato inserito correttamente</p>")
         response.write ("

Controllare di avere i cookie abilitati</p>")
end if
	
else
    response.write(messaggio)
end if

if inviaEmail then
	Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.To = Request.form("++l")
objMail.From = "++++++"
objMail.Subject = "Conferma di iscrizione"
objMail.TextBody = "Benvenuto" 
ObjMail.Send() 
Set objMail = Nothing

end if
%>

[Roby_72]

Il codice è eseguito in maniera sequenziale a meno di impiego di SUB.
Ora visto che tu non le usi, la parte dell'invio della email la devi mettere dove serve... non dove ti pare.
Quindi:

objRec.Open sql, objConn, 3, 3
  
 if not objRec.eof then
        response.write("

Utente già iscritto!</p>")
   response.write("

L'indirizzo E-mail è già presente nel nostro Database,
 si prega di ritornare indietro ed inserire un indirizzo corretto.</p>")
 
   
   else
        'crea nuovo record
        objRec.AddNew
        objRec("email")= ***
		objRec("guid")= guid
        objRec.Update
        response.write("

Benvenuto e grazie per esserti iscritto!</p>")

	Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.To = Request.form("++l")
objMail.From = "++++++"
objMail.Subject = "Conferma di iscrizione"
objMail.TextBody = "Benvenuto" 
ObjMail.Send() 
Set objMail = Nothing 	   
	
	 end if
    'chiudo e distruggo recordset e connessione
    objRec.Close
    Set objRec = Nothing

    objConn.Close
    Set objConn = Nothing	
		
  
 
 else
         'codice non corretto
         response.write ("

Attenzione, il codice di controllo non è stato inserito correttamente</p>")
         response.write ("

Controllare di avere i cookie abilitati</p>")
end if
	
else
    response.write(messaggio)
end if
%>

Roby

[Girogio]

Ok capito!!!

Ricevere risposte da tutti e due è un vero piacere....infondo siete coloro che mi hanno, diciamo così, svezzato all'asp!!! Mems è colui che ancora ci prova, più di tutti....

Grazie tante!!!

[Mems]

Ci provo in che senso?
Mica sei donna...

[Girogio]

:quote: