ciao flavio sai che sto lavorando a questo mod per vedere la bandierina in active user , ok il mod e nato per un database in Acces , ok per il db lo traformo in mysql lunica cosa e modificare il file dunque in Active_user.asp alla linea 293 a 310 ce questa querry ed e formata per db acces come vedi almeno credo !! '####### Country flag active users ######### ip= rsAG("AU_IP")
Set RSip = Server.CreateObject("ADODB.Recordset") MySql1="Select * from Country Where IP_FROM<=" & IPnumber & " AND IP_TO>=" & IPnumber & ";" 'RSip.Open (MySql), my_conn5, 3, 3 set RSip = my_conn5.execute (MySql1) if rsip.eof then country="Unknown" bandiera="Unknown" else country=rsip("Country") bandiera=rsip("Country2") end if '####### Country flag active users ######### e dovrei cambiarla per farla andare in MYSQl .
poi me lo avevi gia corretto ce il file che richiama il db e a questa chiamata .
%> <% dbf=Server.MapPath("/mdb-database/ip-to-country.mdb")' change connection database set my_conn5= Server.CreateObject("ADODB.Connection")
si come me lo avevi coretto questo funzionava solo che poi ho dovuto rimetterlo come prima appunto per la chiamta in alto del laltro file , al massimo per la modifica della chiamata del db mi mandi un pm come laltra volta che come un pisquano ho eliminato !!
Set RSip = Server.CreateObject("ADODB.Recordset") MySql1="Select * FROM COUNTRY Where IP_FROM<=" & IPnumber & " AND IP_TO>=" & IPnumber & ";" 'RSip.Open (MySql), my_conn5, 3, 3 set RSip = my_conn5.execute (MySql1) if rsip.eof then country="Unknown" bandiera="Unknown" else country=rsip("COUNTRY") bandiera=rsip("COUNTRY2") end if '####### Country flag active users #########
Aggiungi a preferiti
(anche qui:
1 ospite.)
Spedito - 22/05/2009 : 19:13:50
~
Invii: 
Spedito - 22/05/2009 : 20:05:49
