%@ 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") %>
<% 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") %>
<%
'-----------------------------------------
'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
%>
<% =objRecordSet("SCHLOG_Searchmode") %>
<% fullpercent1 = Int(((objRecordSet("numTotalSearchCount")+0.001)/numTopRecScore)*100) %> <%=objRecordSet("numTotalSearchCount")%>
<%
numLoop = numLoop +1
objRecordSet.movenext
loop
objRecordSet.close
%>
<< <% WriteString("ContentText_BackLink") %>