<%@ language = vbscript%>
<% Option Explicit %>
<% Response.Expires = 0 %>
<%
Dim RobTextFile
Dim RobFSO
Dim RobACT
Dim RobSampleText
Dim RobStrToShow
Dim RobQSONo
Dim RobFind
Dim RobLastDate
Dim RobFound
Dim CallStr
Dim LoggedCall
Dim CallStrStart
Dim CallStrEnd
Dim CallStrToSearch
Dim MyCallsign
'==========================================================
'================ ENTER YOUR CALLIGN BELOW =================
'==========================================================
MyCallSign = "K5LAD"
'==========================================================
'========================== NOTES =========================
'==========================================================
'===Your ADI File must be the same callsign (mycall.adi)===
'===The ADI file must be in the same folder as this page===
'==========================================================
'==========================================================
%>
<%
If Request("RobAction") = "SearchLog" Then
If ucase(Request("MyCall")) <> "" and not isnull(ucase(Request("MyCall"))) then
SearchLog
Else
Response.Write "
No callsign entered
"
End If
End If
Sub LatestDetail()
'On Error Resume Next
RobFound=False
RobQSONo = 0
'==============================
On Error Resume Next
RobTextFile=MyCallsign & ".adi"
set RobFSO = createobject("scripting.filesystemobject")
set RobACT = RobFSO.opentextfile(server.mappath(RobTextFile))
If Err.Number <> 0 then
Response.Write "
!!! Log file " & RobTextFile & " not found !!!
"
Exit Sub
End If
Do Until (Err.Number = 62)
RobFind=instr(RobSampleText," "" then
RobStrToShow = Left(RobStrToShow,instr(RobStrToShow," <"))
RobStrToShow = CLng(Right(Trim(RobStrToShow),8))
RobStrToShow = DateSerial(Left(RobStrToShow,4), Mid(RobStrToShow,5,2), Right(RobStrToShow,2))
RobLastDate = RobStrToShow
End If
RobStrToShow = ""
RobFind=instr(RobSampleText," "" then
RobStrToShow = Left(RobStrToShow,instr(RobStrToShow," <"))
RobStrToShow = Right(Trim(RobStrToShow),6)
RobStrToShow = Left(RobStrToShow,2) & ":" & Mid(RobStrToShow,3,2)
RobLastTIME = RobStrToShow
RobQSONo=RobQSONo+1
End If
RobStrToShow = ""
RobSampleText = RobACT.readline
Loop
set RobFSO = Nothing
set RobACT = Nothing
Err.Number = 0
If RobQSONo>0 then
Response.Write "
The log contains " & RobQSONo & " QSOs. Last QSO logged is at " & RobLastTime & " GMT on " & RobLastDate & "
"
Else
Response.Write "
There are no QSOs in the log at the moment
"
End if
End Sub
Sub SearchLog ()
RobFound = False
RobTextFile= MyCallsign & ".adi"
set RobFSO = createobject("scripting.filesystemobject")
set RobACT = RobFSO.opentextfile(server.mappath(RobTextFile))
CallStr = ucase(Request("MyCall"))
%>
<%
If Len(Trim(CallStr)) > 2 then
On Error Resume Next
RobFound=False
Do Until (Err.Number = 62)
RobFind=instr(RobSampleText,"0 then
If RobFound=False Then%>