500kHz.se by SM6BGP

<% ' - - - - - - - - logga besökarna i tabellen [ip_logger] - - - - - - - Dim objConn, strSQL Dim objRS Dim chk ' nytt 2010-06-07 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=500khz.se.mysql;DATABASE=500khz_se;UID=500khz_se;PWD=JuReEMhN" objConn.Open strIpnummer = Request.ServerVariables("REMOTE_ADDR") strDatumTid = Now strVisitSida = "Index, nya" ' 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=500khz.se.mysql;DATABASE=500khz_se;UID=500khz_se;PWD=JuReEMhN" 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 %> <% ' - - - - - förvisa vissa generella ip-nummer ### START ### 195.140.173.201 If left(strIpnummer,7) = "123.125" Then ' china, troligen proxy Response.Redirect "http://www.500khz.se/abuse.asp" End If If left(strIpnummer,7) = "112.246" Then ' china, troligen proxy Response.Redirect "http://www.500khz.se/abuse.asp" End If If left(strIpnummer,10) = "208.80.193" Then ' canada, proxy Response.Redirect "http://www.500khz.se/abuse.asp" End If If left(strIpnummer,11) = "217.237.148" Then ' germany, dial up proxy Response.Redirect "http://www.500khz.se/abuse.asp" End If ' - - - - - förvisa vissa generella ip-nummer ### STOPP ### %> <% ' - - - - - - - - läs och uppdatera besöksräknaren [counter] - - - - - - - Dim raknare Dim welcome Session.Timeout = 10 Set objConn = Server.CreateObject("ADODB.Connection") Set objRS = Server.CreateObject("ADODB.Recordset") objConn.ConnectionString="DRIVER={MySQL};SERVER=500khz.se.mysql;DATABASE=500khz_se;UID=500khz_se;PWD=JuReEMhN" objConn.Open strSQL = "SELECT * FROM counter WHERE posttyp = 'A'" ' hämta data objRS.open strSQL, objConn, 1 , 2 raknare=objRS("ctr") If strIpnummer <> Session("usercheck") Then ' ### kontroll av sessionsvariabel, varar 10 minuter ### raknare=objRS("ctr")+1 welcome = "welcome.wav" Else welcome = "" End If objRS("ctr")= raknare objRS.Update objConn.Close Set objConn=Nothing Session("usercheck") = strIpnummer ' ###ladda sessionsvariabel med ip-nummer, varar 10 minuter ### %>

This web-page was created and dedicated to the great medium wave band and you are visitor # <%Response.Write(raknare)%> to this page.<%response.write(Application("visitors"))%>

All pictures and text is created by SM6BGP/Gunnar and it is all free to copy, no need for correspondence
before you catch it. This web page has no commercial value, I am doing this just for fun.
This page is also free from cookies.

Simple woodie PA with one mosfet

Contact: E-mail

SM6BGP - Gunnar Ivarsson, Andra Hedakersgatan 16, SE-511 58 Kinna, Sweden
Member of SSA and SK6RUD - Radio Rud of Sweden
INFINEON - SPW47N60C3 - MOSFET, N, COOLMOS, TO-247
2010 SM6BGP