<!--#include virtual="/appDB/db_connection.asp" -->
<!--#include virtual="/appDB/functions.asp" -->
<%
On Error Resume Next
Function PadDate(rVal)
	padchar = 2 
	padlength = padchar - Len(rVal)
	IF padlength > 0 THEN
		padstring = ""
		for x = 1 to padlength
		 padstring = padstring & "0"
		next
	END IF
	PadDate = padstring & rVal
End Function
Function fetchDataViewData(nDataDays,c)
	retData = ""
	nDataDays=CInt(nDataDays)
	sDate = dateAdd("d",-nDataDays,now())
	for d = 1 to nDataDays+1
		retData = retData & chr(34) & year(sDate) & "-" & month(sDate) & "-" & day(sDate) & "," & fetchDataViewDailyData(sDate,c) & "\n" & chr(34) & " +"
		sDate = dateAdd("d",1,sDate)
	next
	fetchDataViewData = left(retData,len(retData)-2)
End Function

Function fetchDataViewDailyData(dtf,c)
	td = year(dtf) & "-" & PadDate(month(dtf)) & "-" & PadDate(day(dtf))
	retval = "0.00"
	SET rsFDVDD = dbCBK.Execute("SELECT SUM(bookingTOTAL) AS dayTotal FROM cbk_bookings WHERE `companyID`='"&c&"' AND `journeyDATE` LIKE '%"&td&"%' limit 1")
	IF rsFDVDD.eof THEN
		retval="0.00"
	END IF
	DO WHILE NOT rsFDVDD.eof
		retval=rsFDVDD("dayTotal")
	rsFDVDD.MoveNext
	loop
	rsFDVDD.Close
	SET rsFDVDD = Nothing
	IF (retval <> "") THEN
		fetchDataViewDailyData=formatNumber(CCur(retval),2)
	ELSE
		fetchDataViewDailyData="0.00"
	END IF
End Function
Function fetchbt(ndays,c)
	xDate = now()
	btretval="0.00"
	baretval="0.00"
	odays=Cint(ndays)
	ndays=Cint(ndays)+1
	sDate = dateAdd("d",-ndays,xDate)
		sfDate = year(sDate) & "-" & PadDate(month(sDate)) & "-" & PadDate(day(sDate))
	eDate = dateAdd("d",1,xDate)
		efDate = year(eDate) & "-" & PadDate(month(eDate)) & "-" & PadDate(day(eDate))
	SET rsBT = dbCBK.Execute("SELECT SUM(bookingTOTAL) AS periodTotal, AVG(bookingTOTAL) AS periodAvg FROM cbk_bookings WHERE `companyID`='"&c&"' AND `journeyDATE` > '"&sfDate&"' AND `journeyDATE` < '"&efDate&"' limit 1")
	IF rsBT.eof THEN
		btretval="0.00"
		baretval="0.00"
	END IF
	DO WHILE NOT rsBT.eof
		btretval=rsBT("periodTotal")
		baretval=rsBT("periodAvg")
	rsBT.MoveNext
	loop
	rsBT.Close
	SET rsBT = Nothing
	IF btretval <> "" AND IsNumeric(CCur(btretval)) THEN
		btretval=formatNumber(btretval,2)
	ELSE
		btretval="0.00"
	END IF
	IF baretval <> "" AND IsNumeric(CCur(baretval)) THEN
		baretval=formatNumber(baretval,2)
	ELSE
		baretval="0.00"
	END IF

	vstring="var btG" & odays & "='" & btretval & "';" & " var baG" & odays & "='" & baretval & "';"
	fetchbt=vstring
End Function
%>

<%=fetchDataViewData("30","1")%>

<%
IF Err.Number <> 0 THEN response.write(Err.Description) END IF
%>