<% 'on error resume next if session("pres") = "" then session("pres")=1 set geoip = Server.CreateObject("GeoIPCOM.GeoIP") hostname = Request.ServerVariables("REMOTE_ADDR") geoip.loadDataFile("C:\Program Files\GeoIP\GeoIPDemo.dat") country_code = geoip.country_code_by_name(hostname) country_name = geoip.country_name_by_name(hostname) set Command1 = Server.CreateObject("ADODB.Command") Command1.ActiveConnection = "DRIVER=SQL Server;SERVER=192.168.10.100;UID=sa;APP=Microsoft Open Database Connectivity;WSID=192.168.10.100;DATABASE=STARTITACCESSI;Address=192.168.10.100,1433" Command1.Commandtext = "INSERT INTO Fpcredit (clienthost, data, ora, country_code, country_name) VALUES ('"& hostname & "', CONVERT(DATETIME, '"& date &"', 105), '"& time &"', '"& country_code &"', '"& country_name &"')" Command1.CommandType = 1 Command1.CommandTimeout = 0 Command1.Prepared = true Command1.Execute() end if response.redirect("default.htm") %>
FP Credit - società per il recupero crediti
F.P. Credit s.n.c.
- via Rimini, 7 - 59100 Prato - tel. 0574/36.617 / 36.941 - fax 0574/48.43.10 - P.Iva 01702580976
credits