<%@ LANGUAGE="VBSCRIPT" %> <% Server.ScriptTimeOut = 1800 'equal to half an hour %> <% PageStrings = "359, 1600, 1602, 1603, 1604, 1605, 1606" %> <% strInterface = "bk" %> <% '=============================================== ' Parodia Internet Recruitment Software ' ©1998-2004 Cactusoft Ltd. www.parodia.net '=============================================== ' All rights reserved. ' Use of this code is covered by the terms and ' conditions in the license agreement. No ' unauthorized duplication or distribution is ' permitted. Cactusoft's copyright notices must ' remain in the ASP sections of the code. '=============================================== '----------------------------------------------- 'VIEW CLICK THROUGHS AND APPLICATIONS FOR MONTH '----------------------------------------------- Dim numMonth1, numMonth2, numYear1, numYear2 numMonth1 = Trim(Request.Querystring("m")) numMonth2 = numMonth1+1 numYear1 = Trim(Request.Querystring("y")) numYear2 = numYear1 If numMonth2>12 then numMonth2=Int(numMonth2-12) numYear2=Int(numYear1+1) End if strSearchType = Trim(Request.Querystring("type")) if strSearchType<>"" then strSearchTypeQuery=" SCHLOG_Type='" & SQLSafe(strSearchType) & "' AND" Dim tmpDate1, tmpDate2 tmpDate1=CStr("01 "&MonthName(numMonth1)&" "&numYear1) tmpDate2=CStr("01 "&MonthName(numMonth2)&" "&numYear2) %> <% =GetString("Config_headtitle") %>
<% '----------------------------------------- 'SHOW SEARCH MODE '----------------------------------------- strQuery = "SELECT SCHLOG_Searchmode, Count(*) As numTotalSearchCount FROM tblCactusSearchLog WHERE " & strSearchTypeQuery& " SCHLOG_Date>" & strDateDelimiter & ReverseFormatYear(tmpDate1) & strDateDelimiter & " AND SCHLOG_Date<" & strDateDelimiter & ReverseFormatYear(tmpDate2) & strDateDelimiter & " GROUP BY SCHLOG_Searchmode ORDER BY Count(*) DESC" Call ExecuteSQL(strQuery,numCursorType,objRecordSet) if objRecordSet.RecordCount>0 then numTopRecScore = objRecordSet("numTotalSearchCount") do while numLoop<100 AND not objRecordSet.EOF %> <% numLoop = numLoop +1 objRecordSet.movenext loop objRecordSet.close %>
<% WriteString("PageTitle_JobStatsGeneral") %>
<% WriteString("ContentText_AllSearches") %>  -  <% WriteString("ContentText_ShortSearches") %>  -  <% WriteString("ContentText_PowerSearches") %>
<% WriteString("ContentText_TotalSearches") %> <% '----------------------------------------- 'COUNT TOTAL '----------------------------------------- strQuery = "SELECT COUNT(SCHLOG_ID) AS numTotalSearchCount FROM tblCactusSearchLog WHERE " & strSearchTypeQuery& " SCHLOG_Date>=" & strDateDelimiter & ReverseFormatYear(tmpDate1) & strDateDelimiter & " AND SCHLOG_Date<" & strDateDelimiter & ReverseFormatYear(tmpDate2) & strDateDelimiter Call ExecuteSQL(strQuery,numCursorType,objRecordSet) On Error Resume Next numTotalSearchCount = objRecordSet("numTotalSearchCount") objRecordSet.close response.write(numTotalSearchCount) %>

<% WriteString("ContentText_SearchModeSelected") %>
<% =objRecordSet("SCHLOG_Searchmode") %>  <% fullpercent1 = Int(((objRecordSet("numTotalSearchCount")+0.001)/numTopRecScore)*100) %> <%=objRecordSet("numTotalSearchCount")%>

<< <% WriteString("ContentText_BackLink") %>