<% db = "Driver={MySQL ODBC 5.1 Driver};Server=localhost;Database=165086-statistik;User=165086_ka49853;Password=norrboda3902;Option=3;" Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open (db) this_ref = "stadsvapen.ÖREGRUND.SE" this_ip = Request.ServerVariables("remote_addr") this_ua = Request.ServerVariables("http_user_agent") ' statistikanropet SQL = "INSERT INTO stats (stat_referer,stat_ip,stat_ua) VALUES ('" & this_ref & "','" & this_ip & "','" & this_ua & "')" Set RSht = Connection.Execute(SQL) f=request("file") this_type=request("type") version=request("version") ' nedladdningsstatistiken SQL = "INSERT INTO downloads (ip,dl_type,dl_version) VALUES ('" & this_ip & "','" & this_type & "','" & version & "')" Set RSht = Connection.Execute(SQL) Connection.Close f = "http://stadsvapen.öregrund.se/logos/" & f response.redirect(f) %>