Ciao Moreno,
scusami ma proprio non riesco a capire perchè, avendo tutti i riferimenti apparentemente "OK" non riesco a farlo funzionare. Ti riepilogo il tutto.
Ho bisogno di far cliccare su un link che se collegato ad un'immagine deve redirigere l'utente ad un certo indirizzo. se non c'e collegamento deve andare ad una pagina di istruzioni.
se l'utente viene reindirizzato, lo script deve registrare il click nella pagina Clicks e deve inviare una notifica a me ed all'utente
Quello che ho:
- Tabella Clicks con campo "link_pp" dove ho un indirizzo http://...;
- Tabella PrimaPagina con campo "link" dove ho lo stesso indirizzo ed il campo NomeFoto dove ho l'immagine se il link deve reindirizzare l'utente;
- Lo script dove l'utente fa il click nella mia home;
- La pagina redirect_pp.asp che dovrebbe registrare il click nella tabella e mandare notifica del click a me ed alla variabile PPmail presente nella tabella Clicks;
- Lo script della home che è il seguente:
<%
rsPrimapagina__Param1 = "ZF02"
rsPrimapagina.Close()
rsPrimapagina.Source = "SELECT NomeFoto, Link FROM Primapagina WHERE dati='ok' and Posizione = '" + Replace(rsPrimapagina__Param1, "'", "''") + "'"
rsPrimapagina.Open()
%>
<% If NOT rsPrimapagina.EOF Then %>
<a href="redirect_pp.asp?link_pp=<%=Server.URLEncode(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a>
<%Else %>
<%
NomeFoto = "../images/sagoma2.gif": Link = "http://www.miosito.com/a_off_p02.html"
If NOT rsPrimapagina.EOF Then
If rsPrimapagina.Fields.Item("NomeFoto").Value <> "" Then NomeFoto = rsPrimapagina.Fields.Item("NomeFoto").Value
If rsPrimapagina.Fields.Item("Link").Value <> "" Then Link = rsPrimapagina.Fields.Item("Link").Value
End If
%>
<a href="redirect_pp.asp?link_pp=<%=Server.URLEncode(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a><strong>
<%End If %>
</strong></div></td>
<td width="180" background="Images/P02_01.jpg" class="Cellette"><div align="center" class="Cella_Foto">
<div align="center">
-----------------------------------------------------------------------
e la pagina redirect_pp.asp che è la seguente:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><!-- Inserisci questo tag nell'intestazione <head> o appena prima del tag di chiusura </body> -->
<script type="text/javascript" src="https://apis.google.com/js/plusone.js">
{lang: 'it'}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Documento senza titolo</title>
<!--redirect.asp-->
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows 2000 Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
id = request.queryString("id")
if len(id) > 0 and isNumeric(id) then
set conn = server.createObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mapPath("\mdb-database\Easy.mdb")
sql = "SELECT link_url, link_id, link_name, link_sk, link_offerte, link_offerte2, link_offerteLM, link_mail, link_pp, comune, pr, PPmail FROM clicks WHERE link_id = " & pp
set rs = conn.execute(sql)
if not rs.eof then
pp = rs("link_pp")
codice = rs("link_id")
nome = rs("link_name")
comune = rs("comune")
pr = rs("pr")
PPmail = rs("PPmail")
conn.execute("UPDATE clicks SET link_click = link_click + 1 WHERE link_id = " & id)
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
end if
if len(url) > 0 then
DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo
'* voce da modificare con il proprio indirizzo email
invioA = "clicks@easytouritalia.com"
invioA = "PPmail"
'* voce da modificare con un indirizzo email che funga da mittente:
'* in caso di errore riceverete notifica a questo indirizzo un MAILER-DAEMON
'* dato che cdosys supporta questa notifica
invioDa = "info@miosito.com"
'------------fine modifiche necessarie------------------
nomeDominio = Request.ServerVariables("HTTP_HOST")
indirizzoIp = Request.ServerVariables("REMOTE_ADDR")
modulo = Request.ServerVariables("HTTP_REFERER")
browserSistemaOperativo = Request.ServerVariables("HTTP_USER_AGENT")
'*aggiungo il messaggio relativo alla url cliccata
corpoMessaggio = "URL cliccata: " & mail
corpoMessaggio = corpoMessaggio & " Struttura: " & codice & " - " & nome & " sita in " & comune & " (" & pr & ")"
'* creo gli oggetti cdosys sul server e li gestisco
DIM iMsg, Flds, iConf
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds(cdoSendUsingMethod) = cdoSendUsingPort
Flds(cdoSMTPServer) = "smtp.aruba.it"
Flds(cdoSMTPServerPort) = 25
Flds(cdoSMTPAuthenticate) = cdoAnonymous ' 0
Flds.Update
With iMsg
Set .Configuration = iConf
.To = invioA
.From = Request.Form("email")
.Sender = invioDa
.Subject = " Click di Redirect_PP!!! " & nomeDominio
.TextBody = " Questi i dati relativi al click di Redirect_PP " & modulo & " da utente con indirizzo IP " & indirizzoIp & " browser e sistema operativo " & browserSistemaOperativo & vbCrLf & corpoMessaggio & ""
.Send
End With
response.redirect url
else
response.write "Nessun indirizzo disponibile"
end if
%>
<% Response.Redirect Request.QueryString("link_pp") %>
</head>
<body>
</body></html>
