<% dim totalPledged, receivedThisWeek, receivedToDate, pledgedToDate, d d=weekday(date) TOTALPLEDGED = formatCurrency(570721, 2) jtfDate = cdate(#12/18/05#) receivedThisWeek = formatCurrency(572.40, 2) receivedToDate = formatCurrency(586592.10, 2) percentageReceived = formatPercent(receivedToDate/TOTALPLEDGED,2) select case d case 1 'sun pledgeDate = date() case 2 'mon pledgeDate = DateAdd("d",6,date()) case 3 'tues pledgeDate = DateAdd("d",5,date()) case 4 'wed pledgeDate = DateAdd("d",4,date()) case 5 'thur pledgeDate = DateAdd("d",3,date()) case 6 'fri pledgeDate = DateAdd("d",2,date()) case 7 'sat pledgeDate = DateAdd("d",1,date()) end select pledgeDate = DateAdd("ww",-2,pledgeDate) %>
Report
Total Pledged: <% response.write(TOTALPLEDGED) %>
Received to Date: <% response.Write(receivedToDate) %>
Amount suprassed: <% response.Write(formatCurrency(TOTALPLEDGED - receivedToDate)) %>
Percentage Received: <% response.Write(percentageReceived) %>