<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--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" -->
<%
pp = Request.QueryString("link_pp")

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_pp = '" & Replace(pp, "'", "''") & "'"
set rs = conn.execute(sql)
if not rs.eof then
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 = " & codice)
end if
rs.close
set rs = nothing

conn.close
set conn = nothing


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

'* voce da modificare con il proprio indirizzo email

invioA = "[email protected]"
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 = "[email protected]"

'------------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
%>