asked on
<!--#include file="db/database_read.inc"-->
<head>
<!--#include file="Include/meta.asp"-->
</head>
<%
Task = Request.querystring("Task")
%><form method="get" action="statistics.asp" data-ajax="false">
<fieldset class="ui-field-contain">
<label for="Task">Number of tasks recieved</label>
<select name="Task" id="Task">
<option value="">Choose</option>
<option value="7">Last week</option>
<option value="31">Last month</option>
<option value="91">3 months</option>
<option value="182">6 months</option>
<option value="273">9 months</option>
<option value="365">12 months</option></select>
</fieldset>
<input type="submit" data-inline="true" value="Submit" data-ajax="false">
</form><%
Dim objconn,objRSM,strSQL
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open strConnect
strSQL = "SELECT concat(Status, ' = ' , Count(Status )) as Numrecords FROM Tasks WHERE DateDiff("d",DateR,Date())> '" & Task & "' group by Status order by Status ASC"
set objRSM = objconn.Execute(strSQL)
do while objRSM.eof = false
Records = (objRSM("Numrecords"))
response.write "<br>" & Records & "<br>"
objRSM.movenext
loop
%>