Summary Reports Received

Summary Reports Received

Updated: %=FormatDateTime(Now(), 1)%>   %=FormatDateTime(Now(), 3)%> ET

%'This ASP page returns data to the user in a table format'The query is staticdim cndim rsdim strSQL'Build query stringstrSQL = "select rno, r_name, srf_submit_dt "strSQL = strSQL & "from audit_rpt_component a, recipient r "strSQL = strSQL & "where r.rno_id=a.rno_id and comp_desc='SRF Received' "strSQL = strSQL & "and a.fy_end=r.fy_end and datediff(day, srf_submit_dt, getdate()) > -1 "strSQL = strSQL & "and datediff(day, srf_submit_dt, getdate()) 180 "strSQL = strSQL & "and archive='NO' "strSQL = strSQL & "order by rno;"'Create objectsset cn = server.CreateObject("ADODB.Connection")set rs = server.CreateObject("ADODB.Recordset")'Open connectioncn.Open Application("AIMS_ConnectionString"), _ Application("AIMS_RuntimeUserName"), _ Application("AIMS_RuntimePassword")'Open recordset with read-only and forward-only cursorrs.Open strSQl, cnrs.MoveFirst'Loop through the records and build the HTML tabledo while not rs.EOF %> % rs.MoveNextloop'Close objectsrs.Closecn.Closeset cn = nothingset rs = nothing%>

Number	Recipient	SRF Submitted
%= " " & rs.Fields("rno") %>	%= " " & rs.Fields("r_name") %>	%= " " & rs.Fields("srf_submit_dt") %>