<%@ LANGUAGE="VBSCRIPT" %> <% strScript = "/spotter.asp" %> <% 'get_info fld_qthID = 0 fld_userID = 1 fld_bandID = 2 fld_modeID = 3 fld_heard = 4 fld_distance = 5 fld_signal = 6 fld_call2 = 7 fld_freq = 8 fld_date = 9 fld_qth = 10 fld_qso_type = 11 strSQL = "SELECT qthID,userID,bandID,modeID,heard,distance,signal,call2,freq,date,qth,qso_type FROM QSL ORDER BY date desc" 'strSQL = "SELECT * FROM QSL WHERE date LIKE '" & date & "'" Set spots = get_rs(strSQL, 0, 1) if NOT spots.eof then arSpots = spots.getrows spots.close end if set spots = nothing %> Welcome to the KB4OID Dx Spotter -

<% if IsArray(arspots) then %> <% for i = 0 to ubound(arSpots,2) qso_type = arSpots(fld_qso_type,i) if trim(qso_type) = "" then qso_type = 0 %>

<% = arspots(fld_date,i) %>(<%=i%>)

<% if qso_type = 0 then %> <% end if %>

Submitted by: <% = arUsers(arspots(fld_userID,i)) %>

Call: <% = arspots(fld_call2,i) %> QTH: <% = arSpots(fld_QTH,i) %>

Band: <% = arBands(arspots(fld_bandID,i)) %> Freq: <% = arspots(fld_freq,i) %>

Mode: <% = arModes(arspots(fld_modeID,i)) %> Signal: <%=arspots(fld_signal,i) %>
Heard: <% = arSpots(fld_heard,i) %> Est. Distance: <%=arspots(fld_distance,i) %>

<% next else %>
No records found

<% end if %>