Codice

1) Nella pagina "mail-inc.asp" incollare la seguente procedura:

''''''''''''''''AGiSoft NOTIFICA COMMENTO


 Sub DoNotify(subject, message, destinatario)


Dim oCn, oRs, rSQL, myMail, data, n, HTML

Dim tipo, oDom, bHtml

Dim sDest, iCounter, iCluster, sSender, sRecipient

n=0

iCluster = iSendNewsLetterCluster

data = Now()

   Set oCn = DBConnexion(DB_MAIN)

tipo = "standard"

If tipo = "standard" then

'Standard format (default) is pure text

HTML = message

bHtml = true

End If

   If len(HTML) > 0 Then

If destinatario = "webmaster" then

rSQL = "SELECT uEmail from users WHERE (uROLE=" & ROLE_ADMIN & " or uROLE=" & ROLE_ADMINISTRATOR & ") AND uValid=1"

Else

rSQL = "SELECT uEmail from users WHERE uNewsletter=1 AND uValid=1"

End If

Set oRs = DBRecordSet(oCn, rSQL)

iCounter = 0

sDest = ""

sSender = GLOBAL_ACCOUNTS_EMAIL

sRecipient = GLOBAL_ACCOUNTS_EMAIL

While Not oRs.EOF

if len(sDest) > 0 then

sDest = sDest & ","

end if

sDest = sDest & oRs("uEmail")

iCounter = iCounter + 1

if iCounter >= iCluster then

iCounter = 0

myMail = SendMailExtended(sSender, sRecipient, "", sDest, subject, HTML, bHtml, 1)

sDest = ""

end if

n =  n + 1

oRs.MoveNext

Wend

if len(sDest) > 0 then

myMail = SendMailExtended(sSender, sRecipient, "", sDest, subject, HTML, bHtml, 1)

sDest=""

end if

oRs.Close

Set oRs = Nothing

oCn.close

Set oCn = Nothing

Else

ReleaseObjects

End If

End Sub

2)  Nella pagina "comments-inc.asp" alla riga 233 sotto a:

Case CATEGORY_TYPE_IMAGES
rSQL = ""

inserire la seguente riga:

DoNotify "NOMESITO - Commento ad una foto", "L'utente " & sAuthor & " ha commentato una foto nel sito NOMESITO.<br />Voto assegnato alla voto: " & iRate & "<br /><br /><a href=""" & Request.ServerVariables("HTTP_REFERER") & """ target=""_blank"">Clicca qui</a> per leggere il commento e rispondere.", "tutti"

3) Nella pagina "images.asp" includere il file "mail-inc.asp":

<!-- #include file="includes/mail-inc.asp" -->