Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
Solved
Adding Datediff to staistics page
Posted on 2016-09-07
I had this question after viewing Displaying number of records depdning on table contents - classic asp.
I'm trying to give my users the ability to see how many tasks had a certain status within a user defined timeframe. My code deosn't work and I've given up. Been googling by I'm a complete nuthead when it comes to programming. Any help appreciated.
I'm trying to give my users the ability to see how many tasks had a certain status within a user defined timeframe. My code deosn't work and I've given up. Been googling by I'm a complete nuthead when it comes to programming. Any help appreciated.
<!--#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
%>
2 Comments
Active today
you may try query such as below:
SELECT concat(Status, ' = ' , Count(Status )) as Numrecords FROM Tasks
where DateDiff(current_date(), DateR) > 31
group by Status order by Status ASC
...
if Task = "" Then
strSQL = "SELECT concat(Status, ' = ' , Count(Status )) as Numrecords FROM Tasks group by Status order by Status ASC"
else
strSQL = "SELECT concat(Status, ' = ' , Count(Status )) as Numrecords FROM Tasks WHERE DateDiff(current_date(), DateR) > " & Task & " group by Status order by Status ASC"
end if
set objRSM = objconn.Execute(strSQL)
...
Worked like a charm - as it always does when you are involved :-)
I have a real challenge for you here:
https://www.experts-exchange.com/questions/28966125/Getting-ID-after-log-in-timed-out-Classic-asp.html?anchor=a41777693#a41777693
I have a real challenge for you here:
https://www.experts-exchange.com/questions/28966125/Getting-ID-after-log-in-timed-out-Classic-asp.html?anchor=a41777693#a41777693
Featured Post
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :)
To start, I want to make sure everyone understands the importance of utilizing p…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in:
http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html
and
http://www.experts-exchange.com/Programming…
Did you know PowerShell can save you time with SaaS platforms? Simply leverage RESTfulAPIs to build your own PowerShell modules. These will kill repetitive tickets and tabs, using the command Invoke-RestMethod.
Tune into this webinar to learn how…
Watch the video to know the process of migration of Exchange or Office 365 mailboxes in absence of MS Outlook. It is an eminent tool which can easily migrate Public, Archive user mailboxes from one another Exchange server and Office 365. Kernel Migr…
Suggested Courses
Course of the Month9 days, 15 hours left to enroll
606 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.