invio email una sola volta

[lupo1978]

Salve,come posso fare affinche' questo script mi invii la email solamente la prima volta che si entra in quella pagina e non tutte le volte che ci si logga?

if (Recordset2.Fields.Item("crediti").Value)=>100 AND (Recordset2.Fields.Item("crediti").Value) <150then
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.From = "SMTP.rossi.COM"
Mail1.To = EMAIL
Mail1.Subject = "RAGGIUNTA QUOTA 100 CREDITI!"
Mail1.TextBody = "CONGRATULAZIONI "
Mail1.Send
Set Mail1 = Nothing
END IF
grazie

[deivnet]

Tieniti una variabile di sessione... a 0 prima del log a 1 dopo il log e la controlli nel tuo script

[lupo1978]

scusami ma non ho capito,mi puo fare un esempio?

[deivnet]

Quando fai il log setti Session("invioMail") = 0 appena fai l'invio la imposti a Session("invioMail") = 1

Tutte le volte che entri nella pagina dell'invio controlli :
se Session("invioMail") = 0 invii la mail
se Session("invioMail") = 1 non invii la mail

[lupo1978]

ma il cambio lo devo fare manualmente?sai perche'e' una pagina di log dove l'utente viene informato di una certo fatto che gli e' accaduto,quindi se fatto manualmente non mi e' di aiuto perche' svantagerebbe alcuni utenti a scapito di altri perche' magari uno sarebbe informato e l'altro no......

[manubox98]

Quando l'utente si logga ha la variabile Session("invioMail") = 0
e nel momento in cui la mail è stata inviata la imposti Session("invioMail") = 1 prima dell'END IF
poi prima di tutto effettui un controllo se la variabile è unguale a 1 o a 0:

if Session("invioMail") = 0 then
  if (Recordset2.Fields.Item("crediti").Value)=>100 AND Recordset2.Fields.Item("crediti").Value) <150 then
    Set Mail1 = Server.CreateObject("CDO.Message")
    Mail1.From = "SMTP.rossi.COM"
    Mail1.To = EMAIL
    Mail1.Subject = "RAGGIUNTA QUOTA 100 CREDITI!"
    Mail1.TextBody = "CONGRATULAZIONI "
    Mail1.Send
    Set Mail1 = Nothing
    Session("invioMail") = 1
  END IF
end if

[lupo1978]

cosi come ho scitto non me la invia neache la prima volta:
if Session("MAIL.SEND") = 0 then
if (Recordset2.Fields.Item("crediti").Value)=>150 AND (Recordset2.Fields.Item("crediti").Value) <200then
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.From = "SMTP.rossi.COM"
Mail1.To = EMAIL
Mail1.Subject = "RAGGIUNTA QUOTA 150 CREDITI!"
Mail1.TextBody = "CONGRATULAZIONI "
Set Mail1 = Nothing
Session("MAIL.SEND") = 1
END IF
END IF

[X_Gold*]

Originariamente inviato da lupo1978
cosi come ho scitto non me la invia neache la prima volta:
if Session("MAIL.SEND") = 0 then
if (Recordset2.Fields.Item("crediti").Value)=>150 AND (Recordset2.Fields.Item("crediti").Value) <200then
Set Mail1 = Server.CreateObject("CDO.Message")
Mail1.From = "SMTP.rossi.COM"
Mail1.To = EMAIL
Mail1.Subject = "RAGGIUNTA QUOTA 150 CREDITI!"
Mail1.TextBody = "CONGRATULAZIONI "
Set Mail1 = Nothing
Session("MAIL.SEND") = 1
END IF
END IF

<%
if Session("MAIL.SEND") = "" then
if (Recordset2.Fields.Item("crediti").Value)=>150 AND (Recordset2.Fields.Item("crediti").Value) <200then 
Set Mail1 = Server.CreateObject("CDO.Message") 
Mail1.From = "SMTP.rossi.COM"
Mail1.To = EMAIL
Mail1.Subject = "RAGGIUNTA QUOTA 150 CREDITI!"
Mail1.TextBody = "CONGRATULAZIONI "
Set Mail1 = Nothing
Session("MAIL.SEND") = 1
END IF
END IF 
%>

e cosi' ?

[lupo1978]

NO,NON INVIA NIENTE neache la prima volta....

[lupo1978]

gold_x purtroppo non manda niente,mi puoi aiutare?grazie mille