Report utenti che cliccano su link inviato tramite mailing list

[bibuz]

Salve ragazzi,
Ho la necessità di sapere quali utenti aderiscono ad un'iniziativa inviata a loro tramite mailing list.
In pratica io dovrei inviare ai clienti una mail con sopra un link che porti ad una pagina publicitaria.
Io vorrei sapere quali sono gli utenti che cliccano sul link per visualizzare la publicità.

Lo script per la mailng ce l'ho ed è questo:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<% 
'Mi collego al db ed estraggo gli indirizzi email 
Dim rs, conn, sql 
Set rs = Server.CreateObject("ADODB.Recordset") 
conn = "DSN=mailingInfo;" 
sql = "SELECT mail FROM mailing" 
rs.Open sql, conn 

'Inserisco dentro la variabile bcc tutti i destinatari 
x = 0 
do until rs.eof 
x = x + 1 
if x = 1 then 
bcc = rs("mail") 
else 
bcc = bcc & ", " & rs("mail") 
end if 
rs.moveNext 
loop 
rs.close 
Set rs = Nothing 

'Invio l'email 
Dim miaMail 
Set Config = CreateObject("CDO.Configuration") 

Set Fields = Config.Fields 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx@yyyy.it" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456" 
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.server.net" 
Fields.Update 
Set MiaMail = CreateObject("CDO.Message")
Set MiaMail.Configuration = Config 

miaMail.From = "xxxx@yyyyy.it" 
miaMail.To = "xxxxxxx@yyyyyyy.it" 

miaMail.bcc = bcc 

miaMail.Subject = "Oggetto della mail" 
miaMail.TextBody = "Test Messaggio"
miaMail.Send 

Set miaMail = Nothing 
%>

Avete per caso qualche idea su come poter fare?

Grazie in anticipo.

[supermac]

nel link che metti nel testo della mail aggiungi un parametro tipo "?p=1"

nella pagina linkata controlli se c'è il parametro annesso con un request("p") e se c'è fai incrementare un contatore che puoi mettere in un db o anche in un file di testo

[bibuz]

Si ma in questo modo lui riesce a dirmi chi dei destinatari della mail ha effettutato il click??

A Io dovrei sapere chi ha effettuato il click no il totale assoluto.

Ciao e grazie per l'interessamento.

[^ohiaia^]

In questo modo ogni utente che visiterà il link aggiungerà "1" al db...
conti i click... come volevi...

[bibuz]

Aspetta, non devo contare i click totali.....

Devo sapere se il cliente Rossi ha cliccato oppure no, se il cliente Bianchi ha cliccato puure no.

Nel modo da voi suggerito ho paura che io registro solo i click ma senza sapere da chi sono stati effettuati.

Un'esempio potrebbe essere l'invio della mail con notifica di lettura:
tramite la notifica tu sai chi apre e chi no la mail da te inviata.

Io invece dovrei sapere chi clicca e chi no sul link del messaggio da me inviato.

[^ohiaia^]

...fai in modo che nel link ci sia anche la variabile che contiene il nick...
ricavala e salva anche lei nel DB...
dov'è il problema?

[bibuz]

Ciao, ci ho lavorato sopra dopo i tuoi suggerimenti e sono arrivato a questo punto:

<%
oggetto=request.form("oggetto")
priorita=request.form("priorita")
testo=request.form("testo")
dim dove
dove="driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("database/mailingList.mdb")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nome,mail FROM mailing"
rs.Open stmsql,dove
do while not rs.EOF
Dim miaMail
Set Config = CreateObject("CDO.Configuration")

Set Fields = Config.Fields
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxxxx@yyyyyy"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345"
Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.zzzzzzzz.net"
Fields.Update
Set MiaMail = CreateObject("CDO.Message")
Set MiaMail.Configuration = Config

danome="Pippo"
damail="<xxxxxx@yyyyyyyyy.it>" ' Qui il nostro indirizzo e-mail tra < >
dachi=chr(34) & danome & chr(34) & damail
miaMail.From= dachi
miaMail.HtmlBody=testo & rs("nome")
miaMail.To=chr(34) & rs("nome") & chr(34) &"<"& rs("mail")&">"
miaMail.Subject=oggetto
miaMail.Send
set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = NOTHING
%>

Allora questa è la pagina di invio.
In questo modo mi invia il messaggio a tutti i destinatari con scritto sul corpo anche il nome di ogni utente collegato a quella mail. (Poi la posizione del nome nel progetto definitivo verrà messa all'inizio, ora è solo per provare.

Ora vorrei fare in modo che cliccando sul nome vado a visulizzare la pagina degli publicitaria, così da memorizzare effettivamente chi l'ha vista e chi no.

Questo passaggio sono riuscito ad effettuarlo ma non riesco a riportare il link all'interno del corpo della mail perchè mi da errore di sintassi:
Il link nella pagina di test che ho in linea è il seguente (Vi posto la parte iniziale):

<a href="eventi.asp?nome=<%=(rsMail.Fields.Item("nome").Value)%>" target="_self">

il problema è che no riesco ad inserie questo link all'interno del corpo della mail (Dove è segnata in rosso)

Ho provato in più modi ma ho mi da errore di sintassi o il link non passa il parametro.

[^ohiaia^]

forse non ho capito bene ... ma ho sostituito rs("nome") con l'inizio del link...

miaMail.HtmlBody=testo & "<a href=""eventi.asp?nome="& rs("nome") &""" target=""_self"">"

[bibuz]

Ho inserito il codice ed ora il risultato è questo

miaMail.HtmlBody=testo & "" & rs("nome") & 

Al momento dell'invio però mi restituisce il seguente errore:

Microsoft VBScript compilation error '800a03ee' 

Expected ')' 

/testMailing/invioMail_5.asp, line 30 

miaMail.HtmlBody=testo & "" & rs("nome") & 

E' un problema di sintassi.

[^ohiaia^]

Mi sembra che ti sia dimenticato le virgolette nel testo... "</a>" ...

miaMail.HtmlBody=testo & "" & rs("nome") & ""

boh... prova