<% ' - - - - - - - - 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 = "Info" ' 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 %> SM6BGP
Information

Aktuella gagg-fq:

29,130 MHz FM, smal eller bredbandig är en humörfråga,
dagligen på icke förutbestämda tidpunkter.

3,635 MHz SSB vid exkursioner i grannskapen under dagtid,
gärna mobilt eller portabelt.

1,967 MHz SSB oftast kvälltid när räckvidden behöver utökas.
1967 var året när Chevrolet
lanserade sin nya modell Camaro,
varför det känns helt naturligt att
vi valde denna frekvens!

Dementi:

Vi vill härmed å det bestämdaste dementera de envisa rykten att lekar och tipspromenader skulle förekomma på nästa meeting, ingenting kan vara mer felaktigt!

Ej heller får fotbollar, golfklubbor etc. bringas till närområdet.


Samtliga inbjudna hälsas välkomna!

ÖB