<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> Milk Group :: Check Email <% Dim oDBConn, rsQuest,iPID,iOrderDate,iOrderLastDate, iTotalOrderAmount, iTotalBottles, iTotalCream, iTotalButter Dim SClosedOrder Const Monday =2 Const Tuesday =3 Const Wednesday =4 Const Thursday =5 Const Friday =6 SClosedOrder = Thursday iPID = session("PeopleID") iOrderDate = CheckOrderDate() iOrderLastDate = (FormatDateTime(DateAdd("d",(-2),iOrderDate),1)) iOrderLastDateNoOrder = DateAdd("d",-1,iOrderDate) 'Response.write "Order Date: "&FormatDateTime(iOrderDate,1)&"
" 'Response.write "Last Order Date: "&iOrderLastDate&"
" 'Response.write "Last Date No Order: "&FormatDateTime(iOrderLastDateNoOrder,1)&"
" const iMilkCost = 4.25 const iGasDonation = 1.25 const iCreamCost = 8 const iButterCost = 10 Set oDBConn = Server.CreateObject("ADODB.Connection") oDBConn.Open sDBCONNSTR 'get list of members Set rsQuest = GetUserList() %>
<% 'response.write Date() & ", " & iOrderLastDateNoOrder& "
" If DateValue(Date()) = DateValue(iOrderLastDateNoOrder) Then %>

You will be able to update the number of bottles returned after tomorrow.

<% Else %>

Check your email address to update the number of bottles you have returned.
This is the email address that is used to send out group messages. Then enter the number of bottles you returned and click the "Update Bottles Returned" button at the bottom of the page

<% End If %> <% If session("errormsg") <> "" Then response.write "

" &session("errormsg") & "

" session("errormsg") = "" End If %>
<% 'write out the header for the main table with div sections for printing WriteTableHeader 'check memberlist and write out lines for each if rsQuest.eof then response.write "Email not found, please try again
" Else Do While Not rsQuest.eof WriteDetailRow rsQuest.MoveNext Loop WriteTableFooter End If %> <% %>
<% Sub WriteTableHeader() 'Response.write "All bottles returned should be entered by: "&iOrderLastDate&"
" Response.write "
"&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf End Sub Sub WriteDetailRow() 'PeopleID, PeopleName, PeopleEmail, PeopleOrderMilk, PeopleOrderButter, PeopleOrderCream Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf End Sub Sub WriteTableFooter() 'iTotalBottles, iTotalCream, iTotalButter Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write ""&vbcrlf Response.write "
NamePlease
Check off
When
Paid		CreamButterMilkCostGas
Donation		TotalBottles
Returned		 
"&rsQuest("PeopleName")&" "&CalculateCream(Cint(rsQuest("PeopleOrderCream")))&""&CalculateButter(Cint(rsQuest("PeopleOrderButter")))&""&rsQuest("PeopleOrderMilk")&""&CalculateMilk(Cint(rsQuest("PeopleOrderMilk"))) &""&CalculateGas(Cint(rsQuest("PeopleOrderMilk")),Cint(rsQuest("PeopleZeroPrice"))) &""&CalculateTotal(Cint(rsQuest("PeopleOrderMilk")),Cint(rsQuest("PeopleOrderCream")),Cint(rsQuest("PeopleOrderButter")),Cint(rsQuest("PeopleZeroPrice")))&"" GetBottlesReturned int(rsQuest("PeopleID")),int(rsQuest("PeopleOrderMilk")),iOrderDate Response.write " 
  "&iTotalCream&""&iTotalButter&""&iTotalBottles&"  $"&FormatNumber(iTotalOrderAmount,2)&"  
" Response.write "" Response.write "
"&vbcrlf Response.write "
"&vbcrlf End Sub Function CalculateMilk(iBottles) ' const iMilkCost = 4.25 CalculateMilk = "$"&FormatNumber(iBottles*iMilkCost,2) End Function Function CalculateGas(iBottles,bFree) ' const iGasDonation = 1.25 If bFree <> 1 then CalculateGas = "$"&FormatNumber(iBottles*iGasDonation,2) Else CalculateGas = "$0.00" End If End Function Function CalculateButter(iBottles) ' const iGasDonation = 1.25 If iBottles = 0 Then CalculateButter = "" Else CalculateButter = "$"&FormatNumber(iBottles*iButterCost,2) End If End Function Function CalculateCream(iBottles) ' const iGasDonation = 1.25 If iBottles = 0 Then CalculateCream = "" Else CalculateCream = "$"&FormatNumber(iBottles*iCreamCost,2) End If End Function Function CalculateTotal(iBottles,iCream,iButter,bFree) ' const iGasDonation = 1.25 If bFree <> 1 then iBottlesAmount=(iBottles*iMilkCost) + (iBottles*iGasDonation) iCreamAmount=iCream*iCreamCost iButterAmount=iButter*iButterCost iTotalCost=iBottlesAmount+iCreamAmount+iButterAmount iTotalOrderAmount=iTotalOrderAmount+iTotalCost iTotalBottles=iTotalBottles+iBottles iTotalCream=iTotalCream+iCream iTotalButter=iTotalButter+iButter CalculateTotal = "$"&FormatNumber(iTotalCost,2) Else iTotalBottles=iTotalBottles+iBottles iTotalCream=iTotalCream+iCream iTotalButter=iTotalButter+iButter CalculateTotal = "$0.00" End If End Function %>