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