Contaclick pagine singole

Qualcosa ho fatto dopo tante prove : Ho creato un db con il nome di contaclick.mdb e la relativa pagina di nome click.mdb.Ho impostato la tabella e quando clicco sul link mi porta alla pagina che io devo monitorare ma quando ritorno indietro non aumenta il numero di visite.Forse ho sbagliato qualche cosa se qualcuno di voi mi puo aiutare gli sarei molto grato. Queste sono le due tabelle che ho creato :
contaclick.asp (nome database)

Codice:

<!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> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>contaclick</title> </head> <% ID=request.QueryString("ID") If ID = "" then Response.Write("<h3><center>ID non valorizzato</center></h3>") Response.End End If ' Controllo se il link alla pagina click è nella forma click?ID=numero, altrimenti mostro il messagio di errore ID non valorizzato Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb") Set rs = Server.CreateObject("ADODB.Recordset") strSQL = "UPDATE click SET Click = Click + 1 WHERE ID =1;" cn.Execute(strSQL) ' Aggiorno il campo Click di 1 ogni volta che il link in riferimento all'ID viene premuto contaclick.asp?ID=1 incrementa il contatore dell'ID N" 1 strSQL="SELECT * FROM click where ID = 1;" rs.Open strSQL,cn if rs.EOF then response.write("<h3><center>Si sono verificati problemi durante la lettura della base dati</center></h3>") response.write("<h3><center>Il record <font color=""#0000FF""> 1 non esiste.</center></h3>") response.end end if ' Controllo se l'ID esiste, se non esiste mostro un messaggio d'errore e il N" dell'ID inesistente Set cn = nothing Set rs = nothing Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb") Set rs = cn.Execute("Select * from click WHERE ID=1;") Do While Not rs.EOF response.redirect("http://www.polisportivavigo.altervista.org/vigonovo-legnaro 0-0.html") rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set Cn= Nothing ' redirect alla URL inserita nel campo Link %> <body> </body> </html>

click.asp(nome tabella)

Codice:

<!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> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>click</title> </head> <body> <a href="http://vigonovo-legnaro.html/click.asp?ID=1">vigonovo-legnaro 0-0</a> <% Set cn = Server.CreateObject("ADODB.Connection") cn.Open "driver={Microsoft Access Driver (*.mdb)};" & "dbq="&Server.MapPath("database.mdb/contaclick.mdb") Set rs = cn.Execute("Select * from click WHERE Link="http://www.polisportivavigo.altervista.org/vigonovo-legnaro 0-0.html") ' inserire la URL presente nel DB nel campo Link Do While Not rs.EOF Response.write "Questa pagina é stata visitata ("0") volte" rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close Set cn= Nothing %> </body> </html>

Il mio sito che sto costruendo si chiama:polisportivavigo.altervista.org
vi ringrazio anticipatamente

Il DB è composto cosi:
ID:Contatore
Click:Numerico
Link:Testo
Titolo:Testo
Descrizione:Testo

Alla voce link ho scritto l'indirizzo della pagina da monitorare in questo caso :http://www.polisportivavigo.altervis...gonovo-legnaro 0-0.html
Alla voce Titolo ho scritto il nome della pagina: vigonovo-legnaro 0-0

Mi viene un dubbio,ma quste due pagine devo metterle complete su ogni link da controllare?Io le ho messe dove ci sono tutte le altre
:incavolat:incavolat