<%
' - - - - - - - - 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 = "Lönåsa höjd" ' 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
Gamla
bilder tagna på och från tornen vid Lönåsa höjd i Öxabäck.
Bilderna
förmedlade via Olof Leandersson i Rud som tjänstgjorde i tornet till höger
mellan 1946-48 som brandbevakare, och erhöll 8 kr för en 12-timmarsdag,
observera telefon, gradskiva och karta. Bilden med utsikten är tagen av Olof från detta torn som byggdes i början av kriget och är det finare
med den lilla boden med fönster i toppen. Detta torn blåste
ned i början av femtiotalet. Bilden med det bredare tornet med den läskiga
stegen användes av Lantmäteriet på senare delen av 50-talet
i samband med uppmätningar för kartor. Det stod ca 100 m väster
om resterna efter brandbevakningstornet och på platsen finns en triangelpunktsskylt
på marken än idag. Detta sista torn blåste ned på 60-talet.
Platsen för tornen ligger 238 meter över havet och tornen var ca 20 meter
höga.
Alla uppgifter via Olof Leandersson i Rud, Öxabäck, Juni 2008.
