<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% 'SELECT OID, OPeopleID, ODate, OBottlesReturned, OBottlesOrdered FROM tblorders 'SELECT PeopleID, PeopleName, PeopleEmail, PeopleOrderMilk, PeopleOrderButter, PeopleOrderCream FROM tblpeople 'SELECT OID, OPeopleID, ODate, OBottlesReturned, OBottlesOrdered FROM tblorders 'SELECT PeopleID, PeopleName, PeopleEmail, PeopleOrderMilk, PeopleOrderButter, PeopleOrderCream FROM tblpeople "SELECT t1.OPeopleID, t1.ODate, t1.OBottlesReturned, t2.PeopleID, t2.PeopleName, t2.PeopleEmail, "&_ "t2.PeopleOrderMilk, t2.PeopleOrderButter, t2.PeopleOrderCream "&_ "FROM tblorders AS t1 INNER JOIN tblpeople AS t2 ON t1.OPeopleID = t2.PeopleID" Dim sDate, SDay, sOrderDate Const SClosedOrder = 4 sDate = Date() 'sDate = "2/9/2013" Response.write sDate & "
" sDay=WeekDay(sDate) 'sDay=7 Response.write sDay & " - weekday Sunday 1 to Saturday 7
" If cint(sDay) < SClosedOrder Then sOrderDate=DateAdd("d",(SClosedOrder-sDay),sDate) response.write sOrderDate & " date before Wed
" Else sOrderDate=DateAdd("d",(sDay-SClosedOrder),sDate) response.write sDay & " - date after Wed
" Select Case sDay Case 5 sOrderDate = DateAdd("d",6,sDate) Case 6 sOrderDate = DateAdd("d",5,sDate) Case 7 sOrderDate = DateAdd("d",4,sDate) End Select response.write sOrderDate & " - Order Date
" End If %>