con questo codice:

codice:
<%

if Request.QueryString("flag")="" then
%>

<script language="JavaScript">

  function Informazioni() {
    var Divisione=navigator.userAgent;
    var Parti=Divisione.substring(Divisione.indexOf('(')+1,Divisione.lastIndexOf(')'));
    var Parti=Parti.split(';');

        Larghezza=screen.width;
        Altezza=screen.height; 
        Colori1=screen.colorDepth;
        Colori2=Math.pow(2,Colori1);
        SistemaOperativo=Parti[2];
        
        LinguaOS=navigator.systemLanguage;
        NomeBrowser=navigator.appName;
        VersioneBrowser=Parti[1];
        LinguaBrowser=navigator.userLanguage;
        Proveider=Parti[3];
		PaginaPrecedente=history.back();
		Cpu=navigator.cpuClass;

        location.href="index2.asp?cpu="+Cpu+"&altezza="+Altezza+"&larghezza="+Larghezza+"&Colori1="+Colori1+"&Colori2="+Colori2+"&so="+SistemaOperativo+"&los="+LinguaOS+"&nb="+NomeBrowser+"&vb="+VersioneBrowser+"&lb="+LinguaBrowser+"&Prov="+Proveider+"&PP="+PaginaPrecedente+"&flag=ok"
}

document.onload=Informazioni();

</script>

<%
  end if

  'Inizializzo le variabili necessarie
  NomeFile=""
  ValoreDB=0
  Contatore=""
  IP=""
  Data=""
  Ora=""
  TipoOS=""
  VideoX=""
  VideoY="" 
  PaginaP="" 
  Browser=""
  VersioneB=""
  LinguaB=""
  LinguaS=""
  ColoreA=""
  ColoreB="" 
  Prov=""
  Processore=""
  

  Randomize
  Valore = int((4 * Rnd)+1)
  NomeFile= "Tessuto" & Valore & ".gif"
  
  If Session("Counter")="" then 'devo controllare se nel db persiste il record con ID = 1

	  'Assegno un valore alle variabili!
	  IP=Request.ServerVariables("REMOTE_ADDR")
	  Data=Date()
	  Ora=Time()
	  TipoOS=Request.querystring("so")
	  VideoX=Request.querystring("Larghezza")
	  VideoY=Request.querystring("altezza")
	  PaginaP=Request.querystring("PP")   
	  Browser=Request.querystring("nb")
	  VersB=Request.querystring("vb")
	  LinguaB=Request.querystring("lb")
	  LinguaS=Request.querystring("los")
	  ColoreA=Request.querystring("colori1")
	  ColoreB=Request.querystring("colori2")
	  Prov=Request.querystring("Prov")
	  Processore=Request.querystring("cpu")
	  
	  'Response.write(IP) 
	  'Response.write(Data) 
	  'Response.write(Ora) 
	  'Response.write(TipoOS)  
	  'Response.write(VideoX)   
	  'Response.write(VideoY) 
	  'Response.write(PaginaP) 
	  'Response.write(Browser) 
	  'Response.write(VersB)  
	  'Response.write(LinguaB) 
	  'Response.write(LinguaS) 
	  'Response.write(ColoreA)   
	  'Response.write(ColoreB) 
	  'Response.write(Prov) 
	  'Response.write(Processore)   
	  'Response.end()
    
    function formatta_sql(mia_stringa)
      formatta_sql=replace(mia_stringa,"'","''",1,-1)
    End function

    'apro la connessione con il db
    set myConn = server.CreateObject("ADODB.Connection")
    dim strConnDb
    strConnDb = ""
    strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = G:/Progetti Lavori/Web Project/Da Fare/Tessuti/tessuti1.mdb"
    'strConnDb = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & server.mappath("/mdb-database/tessuti1.mdb")
    myConn.Open(strConnDb)

    'Registro le informazioni recuperate dal sistema!
	dim strSqlInsertSondaggio 
	strSqlInsertSondaggio = ""
	strSqlInsertSondaggio = "insert into Statistiche (IndirizzoIP,Giorno,Tempo,RisX,RisY,Provenienza,Browser,VersioneB,LBrowser,LinguaOS,Colori1,Colori2,Proveider,Cpu,Sistema) values (':1:',':2:',':3:',':4:',':5:',':6:',':7:',':8:',':9:',':10:',':11:',':12:',':13:',':14:',':15:')"
	'strSqlInsertSondaggio = "insert into Statistiche (IndirizzoIP,Giorno,Tempo,RisX,RisY,Provenienza,Browser,VersioneB,LBrowser,LinguaOS,Colori1,Colori2,Proveider,Cpu,Sistema) values  ('"& IP &"','"& Data &"','"& Ora &"','"& VideoX &"','"& VideoY &"','"& Paginap &"','"& Browser &"','"& VersB &"','"& LinguaB &"','"& LinguaS &"','"& ColoreA &"','"& ColoreB &"','"& Prov &"','"& Processore &"','"& TipoOS &"')"
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":1:",formatta_sql(IP)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":2:",formatta_sql(Data)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":3:",formatta_sql(Ora)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":4:",formatta_sql(VideoX)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":5:",formatta_sql(VideoY)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":6:",formatta_sql(PaginaP)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":7:",formatta_sql(Browser)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":8:",formatta_sql(VersB)) 
    strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":9:",formatta_sql(LinguaB)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":10:",formatta_sql(LinguaS)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":11:",formatta_sql(ColoreA)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":12:",formatta_sql(ColoreB)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":13:",formatta_sql(Prov)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":14:",formatta_sql(Processore)) 
	strSqlInsertSondaggio = replace(strSqlInsertSondaggio,":15:",formatta_sql(TipoOS))	
	
	response.Write(strSqlInsertSondaggio)
	response.end()
	
	myConn.Execute strSqlInsertSondaggio
al response.write che mi mette a video i valori appaiono tutti quelli presenti e soprattutto tutti quelli che devono essere registrati.

però quando vado a vedere nel db gli unici valori registrati sono l'indirizzo Ip, la data e l'ora, che sono poi anche gli unici 3 valori che recupero dal server, mentre tutti quelli recuperati dalla funzione js non vencono scritti nonostante la query appena prima della fase di execute li contenga... qualche suggerimento?

Grazie