<%
' - - - - - - - - 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 = "QRP" ' 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
%>
<%
' - - - - - - - - dra igång lite slumpade bilder på qrp-sidan - - - - - - -
Dim bilder, startbild
Dim bildtext(19)
bilder = 19
startbild = 501
bildtext(1) = "Old classic crystal, model FT-243 with a modern crystal embedded, a HC-18 crystal"
bildtext(2) = "FT-243 crystal, one old classic..."
bildtext(3) = "Michigan Mighty Mite with tank coil for 80 meter band, equipped with a 2N2219A transistor for pure QRPP"
bildtext(4) = "Michigan Mighty Mite, connections for antenna, cw-key and 12 volt dc"
bildtext(5) = "Tank coil 80 meter band for Michigan Mighty Mite"
bildtext(6) = "QRPP, just a simple oscillator equipped with a 2N2219A transistor, output about 25 mW"
bildtext(7) = "Tank coil 12 meter band for Michigan Mighty Mite"
bildtext(8) = "Tank coil 150 meter band for Michigan Mighty Mite"
bildtext(9) = "Michigan Mighty Mite with tank coil for 150 meter band, equipped with a 2N2219A transistor for pure QRPP"
bildtext(10) = "Michigan Mighty Mite with tank coil for 30 meter band"
bildtext(11) = "Michigan Mighty Mite with tank coil for 30 meter band"
bildtext(12) = "Michigan Mighty Mite with tank coil for 30 meter band"
bildtext(13) = "Michigan Mighty Mite with tank coil for 30 meter band"
bildtext(14) = "Some basic hardware on a wooden plate during test period..."
bildtext(15) = "Plexi-glas tube on a 8 pin radio tube connector, a perfect ground for tank coils..."
bildtext(16) = "A brick full of lovely old crystals, model FT-243!"
bildtext(17) = "12 meter tank coil for Michigan Mighty Mite under construction."
bildtext(18) = "A happy web-master SM6BGP with his first little Michigan Mighty Mite for 80 meter band!"
bildtext(19) = "Michigan Mighty Mite with a modulation transformator from a cb-radio, sounds ok!"
randomize timer
slumptal = int(rnd*bilder)+startbild
If slumptal = Session("slumpkoll") Then
slumptal = int(rnd*bilder)+startbild
End If
slumptaltext = slumptal - 500
%>
Experience
the joy of oscillation!
<% Response.Write(bildtext(slumptaltext))%>
This
little pearl have been used in each of our Michigan Mighty Mites transmitters.
There is not complete agreement on what constitutes QRP power. While most QRP
enthusiasts agree that for CW; AM; FM; and data modes, the transmitter output
power should be 5 watts (or less), the maximum output power for SSB (single
sideband) is not always agreed upon. Some believe that the power should be no
more than 10 watts peak envelope power (PEP), while others strongly hold that
the power limit should be 5 watts. QRPers are known to use even less than five
watts, sometimes operating with as little as 100 milliwatts or even less.
Extremely low power,1 watt and below, is often referred to by hobbyists as QRPP.
Some
links to Michigan Mighty Mite transmitters...
