Radio Rud - Övrigt

<% ' - - - - - - - - logga besökarna i tabellen [ip_logger] - - - - - - - Dim objConn, strSQL Dim objRS Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=radiorud.se.mysql;DATABASE=radiorud_se;UID=radiorud_se;PWD=pkEq5c9u" objConn.Open strIpnummer = Request.ServerVariables("REMOTE_ADDR") strDatumTid = Now strVisitSida = "Övrigt-Visa 10/12" ' ladda variabel med sidan som besöks... strSQL = "SELECT * From ip_logger WHERE 1=2" ' Öppna Recordset och utför SQL-strängen, skriv ipnr, datum och sida till loggen objRS.open strSQL, objConn, 1, 2 objRS.AddNew objRS("ip_nummer")= strIpnummer objRS("datum_tid")= strDatumTid objRS("visit_sida")= strVisitSida objRS.Update objConn.Close Set objConn=Nothing %> <% ' - - - - - - - - kontroll mot reject-tabellen, ny kod 2011-05-02 Usama Bin Ladin dödad inatt!!! - - - - - - - Dim reject, url Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=radiorud.se.mysql;DATABASE=radiorud_se;UID=radiorud_se;PWD=pkEq5c9u" objConn.Open strIpnummer = Request.ServerVariables("REMOTE_ADDR") strSQL = "SELECT * From reject WHERE active = 'YES'" ' Öppna Recordset och utför SQL-strängen objRS.open strSQL, objConn, 1, 2 Do While Not objRS.EOF If objRS("ipnumber")= strIpnummer Then reject = "YES" objRS("used") = objRS("used") + 1 url = objRS("url") objRS.Update End If objRS.MoveNext Loop objConn.Close Set objConn=Nothing If reject = "YES" Then Response.Redirect url End If %> <% ' If strIpnummer = "195.198.217.6" Then ' Response.Redirect "http://www.dooria.se" ' End If %> <% ' 2013-01-30 mod. från 10 lodräta till 12 i 3 kolumner Dim ix,startpic,endpic,pekare Dim bildtext(12) endpic = Session("maxpic") 'startpic = endpic - 11 (användes vid loopning av bilderna) 'pekare = 1 bild01 = endpic - 11 bild02 = endpic - 10 bild03 = endpic - 9 bild04 = endpic - 8 bild05 = endpic - 7 bild06 = endpic - 6 bild07 = endpic - 5 bild08 = endpic - 4 bild09 = endpic - 3 bild10 = endpic - 2 bild11 = endpic - 1 bild12 = endpic bildtext01 = Session("maxpic_01") bildtext02 = Session("maxpic_02") bildtext03 = Session("maxpic_03") bildtext04 = Session("maxpic_04") bildtext05 = Session("maxpic_05") bildtext06 = Session("maxpic_06") bildtext07 = Session("maxpic_07") bildtext08 = Session("maxpic_08") bildtext09 = Session("maxpic_09") bildtext10 = Session("maxpic_10") bildtext11 = Session("maxpic_11") bildtext12 = Session("maxpic_12") %>

	Radio Rud - We span the globe...

<% Response.Write (bildtext01) %>	<% Response.Write (bildtext02) %>	<% Response.Write (bildtext03) %>


<% Response.Write (bildtext04) %>	<% Response.Write (bildtext05) %>	<% Response.Write (bildtext06) %>


<% Response.Write (bildtext07) %>	<% Response.Write (bildtext08) %>	<% Response.Write (bildtext09) %>


<% Response.Write (bildtext10) %>	<% Response.Write (bildtext11) %>	<% Response.Write (bildtext12) %>