|
<%
if(String(sCall)!="")
{
filePath = Server.MapPath("DB/ri0cm.mdb");
oConn = Server.CreateObject("ADODB.Connection");
oConn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +filePath);
oRs = oConn.Execute("SELECT CALL,[BAND],MODE FROM LOG WHERE (CALL='"+sCall+"') ORDER BY [BAND] DESC, MODE;");
oRn = oConn.Execute("SELECT Count(ID) AS SUM1 FROM LOG WHERE (CALL='"+sCall+"')");
if(oRs.EOF)
{
Response.Write(" Sorry, no QSO were found. ");
}
else
{
sWord=(oRn.Fields("SUM1")==1)?"was":"were";
Response.Write("| "+oRn.Fields("SUM1")+" QSO "+sWord+" found: | ");
while(!oRs.EOF)
{
Response.Write("| "+oRs.Fields("CALL")+" | "+oRs.Fields("BAND")+" | "+oRs.Fields("MODE")+" | ");
oRs.MoveNext();
}
Response.Write("
");
}
}
%>
If
you haven't found your QSOs - contact the person below to clarify the situation:
Eugene RZ3EC -
(Eugene Shelkanovtcev, P.O.Box 70, Orel, 302028, RUSSIA)
e-mail: rz3ec@rekom.ru |
