Modificare il file: \iwgallery\includes\inc_mail.asp

<% Function MailPassword(strTo, strName, strPassword) Dim PasswordMail Set PasswordMail = Server.CreateObject("CDONTS.NewMail") PasswordMail.From = strPageTitle & "<" & strAdminEmail & ">" PasswordMail.To = strTo PasswordMail.Subject = "La tua Password" PasswordMail.Body = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL PasswordMail.Send() Set PasswordMail = Nothing End Function %> <% Function MailRegister(strTo, strName, strPassword) Dim RegisterMail Set RegisterMail = Server.CreateObject("CDONTS.NewMail") RegisterMail.From = strPageTitle & "<" & strAdminEmail & ">" RegisterMail.To = strTo RegisterMail.Subject = "Il tuo nuovo Account su " & strPageTitle RegisterMail.Body = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Conserva questi dati: se il tuo account verrà approvato dall'Amministratore, riceverai una E-mail di conferma e potrai effettuare il Login " & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL RegisterMail.Send() Set RegisterMail = Nothing End Function %> <% Function MailRegistered(strTo, strName, strPassword) Dim RegisterMail Set RegisterMail = Server.CreateObject("CDONTS.NewMail") RegisterMail.From = strPageTitle & "<" & strAdminEmail & ">" RegisterMail.To = strTo RegisterMail.Subject = "Il tuo nuovo Account su " & strPageTitle RegisterMail.Body = "Grazie per aver usato " & strPageTitle & ". Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL RegisterMail.Send() Set RegisterMail = Nothing End Function %> <% Function MailApprove() Dim ApproveMail Set ApproveMail = Server.CreateObject("CDONTS.NewMail") ApproveMail.From = strPageTitle & "<" & strAdminEmail & ">" ApproveMail.To = strAdminEmail ApproveMail.Subject = "Richiesta di approvazione" ApproveMail.Body = "Un nuovo Utente si è registrato su " & strPageTitle & " e richiede l'approvazione." & vbnewline & vbnewline & "Saluti," & vbnewline & strPageTitle & vbnewline & strURL & "/admin" ApproveMail.Send() Set ApproveMail = Nothing End Function %> <% Function MailApproved(strTo, strName, strPassword) Dim ApprovedMail Set ApprovedMail = Server.CreateObject("CDONTS.NewMail") ApprovedMail.From = strPageTitle & "<" & strAdminEmail & ">" ApprovedMail.To = strTo ApprovedMail.Subject = "Il tuo Account su " & strPageTitle & " è stato approvato!" ApprovedMail.Body = "L'Amministratore di " & strPageTitle & " ha confermato la tua registrazione: adesso puoi effettuare il Login!" & vbnewline & vbnewline & "Ecco i dati relativi al tuo Account: " & vbnewline & vbnewline & "Login: " & strName & vbnewline & "Password: " & strPassword & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL ApprovedMail.Send() Set ApprovedMail = Nothing End Function %> <% Function MailPicture(strSender, strFile) Dim PictureMail Set PictureMail = Server.CreateObject("CDONTS.NewMail") PictureMail.From = strPageTitle & "<" & strAdminEmail & ">" PictureMail.To = strAdminEmail PictureMail.Subject = "Nuova immagine su " & strPageTitle PictureMail.Body = "L'Utente " & strSender & " ha uploadato l'immagine " & strFile & " per l'approvazione" & vbnewline & vbnewline & "Saluti," & vbnewline & strPageTitle & vbnewline & strURL & "/admin" PictureMail.Send() Set PictureMail = Nothing End Function %> <% Function MailPictured(strTo, strName, strFile, strCat) Dim PicturedMail Set PicturedMail = Server.CreateObject("CDONTS.NewMail") PicturedMail.From = strPageTitle & "<" & strAdminEmail & ">" PicturedMail.To = strTo PicturedMail.Subject = "Il tuo File su " & strPageTitle & " è stato approvato!" PicturedMail.Body = "L'Amministratore di " & strPageTitle & " ha approvato il file " & strFile & " nella categoria " & strCat & vbnewline & vbnewline & "Saluti, " & vbnewline & strPageTitle & vbnewline & strURL PicturedMail.Send() Set PicturedMail = Nothing End Function %>

[Íàçàä]