sSQL = " SELECT weekendingEmp.WeekEnding, " & _
	" weekendingEmp.EmployeeID, " & _
	" Employees.EmployeeName, " & _
	" Sum(Hours.Hours) AS SumOfHours, " & _
	" Employees.BaseWeekHours, " & _
	" Employees.Current " & _
	" FROM (weekendingEmp LEFT JOIN Hours ON (weekendingEmp.EmployeeID = Hours.EmployeeID) " & _
	" AND (weekendingEmp.WeekEnding = Hours.WeekEnding)) " & _
	" INNER JOIN Employees ON weekendingEmp.EmployeeID = Employees.EmployeeID " & _
	" GROUP BY weekendingEmp.WeekEnding, " & _
	" weekendingEmp.EmployeeID, " & _
	" Employees.EmployeeName, " & _
	" Employees.BaseWeekHours, " & _
	" Employees.Current "& _
	" HAVING ((..some condition..) AND (Sum(Hours.Hours)<[BaseWeekHours]) AND ((Employees.Current) = True)) " & _
	" ORDER BY weekendingEmp.WeekEnding DESC; "

 Dim sRpt, sPath, sXML, sXSL, sRedirectTo
  Dim sMDB, sAppName, objAcc, objQry, sQry, sSQL
  Dim dteStart, dteEnd, sFormat, iFrmt, sMsg
   
  Const fmtASP = 4
  Const fmtHTM = 0
  Const acExpRpt = 3
  Const acUTF8 = 0
  
  ' Set the name of the Access XP report and fmt file
  sRpt = Request("Report")
  ' If missing, run Report
  If sRpt = "" Then sRpt = "Report"

  sFormat = Request("Format")
  If sFormat = "" Then sFormat = "asp"

  ' Assume that Access XP database file is in the same 
  ' web folder as the ASP page.  Determine the path 
  ' and use it to set the XML and XSL file names.
  sMDB = Server.MapPath("/test/Time_Track2002.mdb")
  Response.Write "Database: '" & sMDB & "'"
  ' Response.End
  sPath = Left(sMDB, Len(sMDB) - Len("Time_Track2002.mdb"))
  sXML = sPath & sRpt & ".xml"
  sXSL = sPath & sRpt & ".xsl"
    
  ' Create Access XP Application Object and open it.
  sAppName = "Access.Application.10"
  Set objAcc = Server.CreateObject(sAppName)
  objAcc.OpenCurrentDatabase sMDB

 sSQL = " SELECT weekendingEmp.WeekEnding, " & _
	" weekendingEmp.EmployeeID, " & _
	" Employees.EmployeeName, " & _
	" Sum(Hours.Hours) AS SumOfHours, " & _
	" Employees.BaseWeekHours, " & _
	" Employees.Current " & _
	" FROM (weekendingEmp LEFT JOIN Hours ON (weekendingEmp.EmployeeID = Hours.EmployeeID) " & _
	" AND (weekendingEmp.WeekEnding = Hours.WeekEnding)) " & _
	" INNER JOIN Employees ON weekendingEmp.EmployeeID = Employees.EmployeeID " & _
	" GROUP BY weekendingEmp.WeekEnding, " & _
	" weekendingEmp.EmployeeID, " & _
	" Employees.EmployeeName, " & _
	" Employees.BaseWeekHours, " & _
	" Employees.Current "& _
	" HAVING (((weekendingEmp.WeekEnding)>DateAdd(""ww"",-30,Now())) AND ((Sum(Hours.Hours))<[BaseWeekHours] Or (Sum(Hours.Hours)) Is Null) AND ((Employees.Current) = On)) " & _
	" ORDER BY weekendingEmp.WeekEnding DESC; " 
         
  sQry = "TimesheetQryIntranet"
  
  Set objQry = objAcc.DBEngine(0)(0).QueryDefs(sQry)
  objQry.SQL = sSQL
  Set objQry = Nothing
  
    sRedirectTo = sRpt & ".asp"
    iFrmt = fmtASP

  objAcc.ExportXML acExpRpt,sRpt,sXML,,sXSL,,,iFrmt
  
  objAcc.CloseCurrentDatabase
  objAcc.Quit
  Set objAcc = Nothing

  Response.Redirect sRedirectTo