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.