I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4
GuidoC
GuidoC
il 12 novembre 2013 alle 22:34
120 messaggi dal 25 settembre 2006
Ciao Moreno,

da gran professionista non ho conservato i riferimenti su come era la riga 3490 e non ricordo come doveva essere. ho controllato più volte ed i percorsi per l'immagine sembrano corretti. quello che segue è il codice della redirect_pp.asp

- - -

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


<%
pp = request.queryString("link_pp")

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_url = '" & Replace(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

url = rs("url")



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@easytouritalia.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>
GuidoC
RispondiQuoting
BrightSoul
BrightSoul
il 13 novembre 2013 alle 00:30
11.886 messaggi dal 09 febbraio 2002
Contributi
Enjoy learning and just keep making
RispondiQuoting
GuidoC
GuidoC
il 13 novembre 2013 alle 05:17
120 messaggi dal 25 settembre 2006
ora mi dà

error '8004020f'
/redirect_pp.asp, line 75
GuidoC
RispondiQuoting
BrightSoul
BrightSoul
il 13 novembre 2013 alle 20:52
11.886 messaggi dal 09 febbraio 2002
Contributi
ciao Guido,
ok, quello è un errore che si verifica al .Send, in fase di invio della mail. Dal vademecum Aruba vedo che il tuo codice probabilmente è corretto, dunque sul server dovrebbe funzionare. Tu questo errore lo stai avendo in locale?

ciao,
Moreno
Enjoy learning and just keep making
RispondiQuoting
GuidoC
GuidoC
il 13 novembre 2013 alle 20:57
120 messaggi dal 25 settembre 2006
no, dal server
GuidoC
RispondiQuoting
BrightSoul
BrightSoul
il 13 novembre 2013 alle 21:28
11.886 messaggi dal 09 febbraio 2002
Contributi
Guarda, se ne parla sul forum Aruba:
http://community.aruba.it/cgi-bin/ultimatebb.cgi?ubb=get_topic;f=22;t=010610#000000
E' una questione strettamente legata alle loro politiche. L'amministratore per esempio dice che se hai abilitato l'antispam devi autenticarti, anziché usare la modalità cdoAnonymous.

E' un post di quasi 10 anni fa, spero che sia ancora valido, altrimenti senti aruba o scrivi nel loro forum.

Quindi per ora prova fornire il tuo nome utente e la password. Sono i dati che usi anche dal tuo client di posta per ricevere e spedire messaggi. Ecco un esempio di codice per autenticarsi con CDO.
https://manage.grabweb.in/knowledgebase/434/Microsoft-CDO-SMTP-Authentication-mail-script.html

ciao
Enjoy learning and just keep making
RispondiQuoting
GuidoC
GuidoC
il 15 novembre 2013 alle 08:34
120 messaggi dal 25 settembre 2006
Ciao Moreno,

non so se te lo avevo già inviato. con il seguente script io già faccio questa operazione ma non riesco a farla funzionare per quello di cui ho fatto il primo post:

<%
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
%>
GuidoC
RispondiQuoting
GuidoC
GuidoC
il 21 novembre 2013 alle 12:13
120 messaggi dal 25 settembre 2006
Ciao Moreno,

ho cercato di modificare lo script, puoi dargli un occhio?

<%
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.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>
<%End If %>
<%
if rsPrimapagina.Fields.Item("Link").Value <> "" AND Not IsNull(rsPrimapagina.Fields.Item("Link").Value) then
tmpURL = rsPrimapagina.Fields.Item("Link").Value
set connx = server.createObject("ADODB.Connection")
connx.open MM_Regioni_STRING
sqlx = "SELECT link_id FROM clicks WHERE link_pp = '" & tmpURL & "'"
set rsx = connx.execute(sqlx)
' if not rsx.eof then
response.write ("<a href=""redirect_pp.asp?id=" & rsx("link_id") & """ target=""_blank""><strong>Offerta 1</strong></a>")
' else
' response.write("Non Pervenuta")
' end if
' rsx.close
' set rsx = nothing
' connx.close
' set connx = nothing
'else
' response.write("Non Pervenuta")
end if
%>
GuidoC
RispondiQuoting
1 2 3 4

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.