Conta Cllick

[andreathedove]

Ciao ragazzi come state ??????

allora il mio piccolos cript è questo
______________________

<%@ language=VBScript %>
<%

'IN CASO DI ERRORI LA PAGINA NON SI BLOCCA MA CONTINUA

On Error Resume Next

'VIENE PRESO L'ID DELLA STRINGA DEL LINK

nome = request.querystring("e")

' PRENDE I DATI DELL'ID RICHIESTO

'Connessione al database
Set cn = Server.CreateObject("ADODB.Connection")

'Apertura database specificando l'url del db
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("prova.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

'Comando SQL che permette di trovare l'id
stSQL = "SELECT * FROM partner where nome like '"& nome &"'"

rs.Open stSql, cn, 3, 3

'aggiornamento database
Conn.Execute "UPDATE its SET its = its + 1 WHERE e='" & url & "'"


'Memorizza nella variabile URL l'indirizzo web della pagina
url = rs("url")


'CHIUSURA CONNESSIONE

rs.close
Set rs = nothing
cn.close
Set cn = nothing
Conn.Close
Set Conn= Nothing

Response.Redirect url

%>

Il mio db prova.mdb ha i seguenti cmapi:

id, name, url, its

mentre il links sara del genere:

http://www.allinonenet.it/aon.asp?e=(servizio scelto)

Servizio scelto:

ad esempio se la pagian da caricare è https://www.mrw.it io agggancio a ...e=servizi webmaster

Servizi webmaster si trova nel cmapo name il quale prende l'url da url...

IL CONTA CLICK NN MI FUNZIONA ODVE SBAGLIO ?

CIAO E GRAZIE

 

[jan267]

ciao, posta l`errore che ti da!

 

[andreathedove]

Ciauzzzzzzzzzz

bhe valiuuuuuuuuuuuuu nn mi da nessun errore il codice asp, mi carica la pagina esterna ma nn mi conta i clicks, il database rimane bianco nel campo its e nn ce sta nemmeno lo zero...

 

[jan267]

Prova cosi`:

<%
Dim nome
nome = Request.QueryString("e")
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & server.MapPath("prova.mdb")

Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from its where e like "& nome
rs.Open sql, conn, 3, 3
url=rs("url")+1
rs.update

url=rs("link")
RS.Close
Set RS = Nothing

conn.Close
Set conn=Nothing
response.redirect (nome)
%>

Ciao!

 

[andreathedove]

mi da errore

E R R O R E

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'e like'.

/aon.asp, line 13

 

[jan267]

aon.asp?e=quello_che_è dovrebbe andare in teoria... !

 

[andreathedove]

!!!!!!!!!!

HTTP://WWW.ALLINONENET.IT/AON.ASP?E=METEO

E MI DA L'ERRORE

 

[jan267]

vabbe` lascia stare il codice che ti ho dato io, dal codice che hai postato tu:
<%
...
Conn.Execute "UPDATE its SET its = its + 1 WHERE e='" & url & "'"
...
%>
devi dire che roba e` "url" !
ciau

 

[andreathedove]

!!!

scusa il codice è cosi ho devo sostituire qualche cosa ?

e poi nel campo its del db come lo devo impostare ?

 

[jan267]

Scusami una cosa.. scaricatene uno di script per contare i click!
Ora ho da lavorare ciauz

 

[lukeonweb]

http://www.lukeonweb.net/tip.asp?lang=Asp&id=B_03

 

[andreathedove]

Sorry

grazie mille lo script me lo sono fatto da solo...
cmq grazie mille................

 

[lukeonweb]

quello che cucini a casa tua ha sempre un sapore migliore... anche se fa schifo non te la puoi prendere con nessuno

 

[peppoweb]

Perle di poesia . . .

 

[lukeonweb]

eheheh

 

[andreathedove]

luke ??????????????????

Originally posted by lukeonweb
quello che cucini a casa tua ha sempre un sapore migliore... anche se fa schifo non te la puoi prendere con nessuno

luke quella frase era per me ????????????????
il tuo script è fantastico e lo userò nnte la prendere

cipe e ciapete

 

[jan267]

vuol dire che e` meglio che te li fai da solo gli script
(ma se non riesci... te li scarichi )

 

[lukeonweb]

volevo solo dire che la cosa migliore è farsi gli script da se, così fai esattamente quello che vuoi ed in più cresci professionalmente