Radio Rud Beacon - Sorted by km

Reports sorted by km, grouped by call/band

<% ' - - - - - - - - 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 = "Fyren_popup_km" 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 %>

<% ' - - - - - öppna tabellen beacon och visa i fallande datumordning 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 strSQL = "SELECT * From fyren WHERE dist_km > 1 GROUP BY callsign, band ORDER BY dist_km DESC" objRS.open strSQL, objConn Dim bandcol Do While Not objRS.EOF bandcol = "#E9E9E9" If objRS("band") = "0.5" Then bandcol = "#CFD5CF" ' grå End If If objRS("band") = "3.5" Then bandcol = "#BDDEFF" ' mörk-blå End If If objRS("band") = "10" Then bandcol = "#D4EAFF" ' mellan-blå End If If objRS("band") = "24" Then bandcol = "#EAF5FF" ' ljus-blå End If %> <% objRS.MoveNext Loop %> <% objConn.Close Set objConn=Nothing %>

CALL	NAME	DATE	UTC	MHZ	RST	LOC	MAP	KM	REMARK
<%=objRS("callsign")%>	<%=objRS("name")%>	<%=objRS("date")%>	<%=objRS("time")%>	<%=objRS("band")%>	<%=objRS("rst")%>	<%=objRS("locator")%>	<% If Len (objRS("locator")) = 6 Then%> &band=<%=objRS("band")%>&callsign=<%=objRS("callsign")%>&dist_km=<%=objRS("dist_km")%>&name=<%=objRS("name")%>&date=<%=objRS("date")%>&time=<%=objRS("time")%>&rst=<%=objRS("rst")%>" target="_new"> <% End If %>	<%=objRS("dist_km")%>	<%=objRS("remark")%>