Ciao a tutti,

ho il seguente script che fa parte di una serie di 15 script.
da parte ho uno script che registra il click in una tabella e mi manda notifica del click. vorrei integrare il primo script col secondo ma assolutamente non so come fare. c'è qualcuno che mi può dare una mano?
1° script *****************
<div align="center" class="Cella_Foto"><strong>
<%
Dim rsPrimapagina__Param1
rsPrimapagina__Param1 = "ZF01"
%>
<strong>
<%
Dim rsPrimapagina
Dim rsPrimapagina_cmd
Dim rsPrimapagina_numRows

Set rsPrimapagina_cmd = Server.CreateObject ("ADODB.Command")
rsPrimapagina_cmd.ActiveConnection = MM_Regioni_STRING
rsPrimapagina_cmd.CommandText = "SELECT NomeFoto, Link FROM Primapagina WHERE dati='ok' and Posizione = '" + Replace(rsPrimapagina__Param1, "'", "''") + "'"
rsPrimapagina_cmd.Prepared = true
rsPrimapagina_cmd.Parameters.Append rsPrimapagina_cmd.CreateParameter("param1", 200, 1, 255, rsPrimapagina__Param1) ' adVarChar

Set rsPrimapagina = rsPrimapagina_cmd.Execute
rsPrimapagina_numRows = 0
%>
</strong>
<% If NOT rsPrimapagina.EOF Then %>
<a href="<%=(rsPrimapagina.Fields.Item("Link").Value)%>" target="_blank"><img src="<%=(rsPrimapagina.Fields.Item("NomeFoto").Value)%>" 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="<%=(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a><strong>
<%End If %>

</strong></strong></div>

2° script *****************

<%
if rsAnagrafica.Fields.Item("Web_w").Value <> "" AND Not IsNull(rsAnagrafica.Fields.Item("Web_w").Value) then
tmpURL = rsAnagrafica.Fields.Item("Web_w").Value
set connx = server.createObject("ADODB.Connection")
connx.open MM_Regioni_STRING
sqlx = "SELECT link_id FROM clicks WHERE link_url = '" & tmpURL & "'"
set rsx = connx.execute(sqlx)
if not rsx.eof then
response.write ("<a href=""redirect.asp?id=" & rsx("link_id") & """ target=""_blank""><strong>Web</strong></a>")
else
response.write("N.P.")
end if
rsx.close
set rsx = nothing
connx.close
set connx = nothing
else
response.write("N.P.")
end if
%>

ciao Moreno,

quello che segue è quello che ho modificato e relativo allo script ma non accade nulla:

<%
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="<%=(rsPrimapagina.Fields.Item("Link").Value)%>" target="_blank"><img src="<%=(rsPrimapagina.Fields.Item("NomeFoto").Value)%>" border="0" /></a>
<%Else %>
<%
NomeFoto = "../images/sagoma2.gif": Link = "http://www.easytouritalia.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_url=<%=Server.URLEncode(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a>
<%End If %>
</strong></div></td>
<td width="180" background="Images/P02_01.jpg" class="Cellette"><div align="center" class="Cella_Foto">
<div align="center">

non succede ancora niente
<%
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_url=<%=Server.URLEncode(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a>
<%Else %>
<%
NomeFoto = "../images/sagoma2.gif": Link = "http://www.easytouritalia.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_url=<%=Server.URLEncode(Link)%>"><img src="<%=(NomeFoto)%>" border="0" /></a>
<%End If %>
</strong></div></td>
<td width="180" background="Images/P02_01.jpg" class="Cellette"><div align="center" class="Cella_Foto">
<div align="center">

---

Modificato da GuidoC il 06 novembre 2013 19.20 -

con la sola stringa <% Response.Redirect Request.QueryString("link_url") %> mi rimanda alla pagina a_off_p02.html

con il resto delle script fa la stessa cosa.

Quella che segue è la pagina di redirect:

<%@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" -->

<% Response.Redirect Request.QueryString("link_url") %>

<%
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 = " & id
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(pp) > 0 then



DIM corpoMessaggio, numeroCampi, invioA, invioDa, nomeDominio, indirizzoIp, modulo, browserSistemaOperativo

'* voce da modificare con il proprio indirizzo email

invioA = "clicks@miosito.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 pp
else
response.write "Nessun indirizzo disponibile"
end if

%>

</head>

<body>
</body></html>