<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="true"
' Catalog=""
' Schema=""
Dim MM_JXECM_STRING
MM_JXECM_STRING = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\web2\contactmanagement\database\web Contact Management.mdb"
%>

The header is just a .jpg with our company's logo.  And as I said in the very first communication, there isn't any code that says DateAdd.  You have the whole program!  Now do you know why I'm so confused?  I thought you would know something I didn't!  Please tell me you do!!

I wasn't shouting, shouting would be in all caps...I was just over-extended and not feeling well.  That's the problem with writing...you don't get the jist of a person's emotions.  And to top it off, I just now realized I had the wrong code.  That's the other thing with this person's work...Too many .asp files too closely named!  Here is the real code.  I'm sorry for the confusion and the accidental screaming.  :-)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


<!--#include file="Connections/JXECM.asp" -->

<%

Function amtWorkDays(end_date, start_date)

          amtWorkDays = 0
            myworkstartdate = start_date
            myworkenddate = end_date
            myworkstartdate = CDate(myworkstartdate)
            myworkenddate = CDate(myworkenddate)
            mytempworkday = myworkstartdate

            do until mytempworkday = myworkenddate
            
                  mydaycase = Weekday(mytempworkday)
                  select case mydaycase
            
                  case 1,7      
                         mytempworkday = DateAdd("D", 1, mytempworkday)
                  case else
                        mytempworkday = DateAdd("D", 1, mytempworkday)       
                        amtWorkDays = amtWorkDays + 1
                  end select
            loop
End Function



%>


<%
' note: if either date entered by the user is invalid,
'     the call to CDate will fail with an error.
firstDate   = Request.Form("startdate")
if firstDate <>  "" then firstDate   = CDate( Request.Form("startdate") )
lastDate    = Request.Form("enddate")
if lastDate <> "" then lastDate    = CDate( Request.Form("enddate") )
callbranch  = Request.Form("branch")
calltype    = Request.Form("CallType")   ' need to change the code for this criteria
issuetype   = Request.form("issuetype") ' need to add code for this criteria
issuestatus = Request.Form("issuestatus")  ' need to add code for this criteria
respond     = Request.Form("Respond")        ' need to add code for this criteria

Dim rsCalls
Dim rsCalls_numRows
Dim sQuery

Set rsCalls = Server.CreateObject("ADODB.Recordset")
rsCalls.ActiveConnection = MM_JXECM_STRING

sQuery = "SELECT  tblCSI.CallType, tblCSI.Response, tblCSI.IssueStatus  , tblCSI.CallType ,  tblCSI.Tocsi, tblCSI.RespondDate, tblCSI.Respondent, tblCSI.CSICODE, tblCSI.Issue, tblCSI.IssueDate, tblCSI.CustomerID, tblCSI.IssueType,Employee.EmployeeName, tblCSI.Branch,  CustName.CustName, CustName.CompPhone FROM Employee RIGHT JOIN( tblCSI INNER JOIN CustName ON CustName.ContactID = tblCSI.CustomerID) ON Employee.EmployeeName = CustName.SlsmnName WHERE tblCSI.CSIID is not null " ' eliminate join to the Code Table by Albert
'sQuery = "SELECT  Code.CSICode, Code.Description, tblCSI.CallType, tblCSI.Response, tblCSI.IssueStatus  , tblCSI.CallType ,  tblCSI.Tocsi, tblCSI.RespondDate, tblCSI.Respondent, tblCSI.CSICODE, tblCSI.Issue, tblCSI.IssueDate, tblCSI.CustomerID, tblCSI.IssueType,Employee.EmployeeName, Employee.Branch,  CustName.CustName, CustName.CompPhone FROM Employee RIGHT JOIN(Code INNER JOIN ( tblCSI INNER JOIN CustName ON CustName.ContactID = tblCSI.CustomerID)ON Code.CSICode = tblCSI.CSICODE) ON Employee.EmployeeName = CustName.SlsmnName WHERE tblCSI.CSIID is not null " ' Added before the above query By Albert
'sQuery = "SELECT Calls.YourName, Calls.Notes, Calls.CallDate, Code.CSICode, Code.Description, tblCSI.CallType, tblCSI.Response, tblCSI.IssueStatus  , tblCSI.CallType ,  tblCSI.Tocsi, tblCSI.RespondDate, tblCSI.Respondent, tblCSI.CSICODE, tblCSI.Issue, tblCSI.IssueDate, tblCSI.CustomerID, tblCSI.IssueType, Employee.EmployeeName, Employee.Branch, CustName.CustName, CustName.CompPhone FROM  Code INNER JOIN ((Employee INNER JOIN (CustName INNER JOIN Calls ON CustName.ContactID = Calls.ContactID)  ON (Employee.EmployeeName = CustName.SlsmnName) AND (Employee.EmployeeName = Calls.YourName)) INNER JOIN tblCSI ON CustName.ContactID = tblCSI.CustomerID) ON Code.CSICode = tblCSI.CSICODE  WHERE tblCSI.CSIID is not null " commented by Albert
'sQuery = "SELECT Calls.YourName, Calls.Notes, Calls.CallDate, Code.CSICode, Code.Description, tblCSI.CallType, tblCSI.Response, tblCSI.Tocsi, tblCSI.RespondDate, tblCSI.Respondent, tblCSI.CSICODE, tblCSI.Issue, tblCSI.IssueDate, tblCSI.CustomerID, tblCSI.IssueType, Employee.EmployeeName, Employee.Branch, CustName.CustName, CustName.CompPhone FROM  Code INNER JOIN ((Employee INNER JOIN (CustName INNER JOIN Calls ON CustName.ContactID = Calls.ContactID)  ON (Employee.EmployeeName = CustName.SlsmnName) AND (Employee.EmployeeName = Calls.YourName)) INNER JOIN tblCSI ON CustName.ContactID = tblCSI.CustomerID) ON Code.CSICode = tblCSI.CSICODE  WHERE"

'==================== Kriteria query ===========================

'
if callbranch <> "" and callbranch <> "-1" then
 sQuery = sQuery & " AND tblCSI.Branch = '"& callbranch  &"' "
end if

if respond <> "" and respond <> "-1" then
 sQuery = sQuery & " AND tblCSI.Tocsi = '"& respond  &"' "
end if

if issuetype <> "" and issuetype <> "-1" then
 sQuery = sQuery & " AND tblCSI.IssueType = '"& issuetype  &"' "
end if

if issuestatus <> "" and issuestatus <> "-1" then
 sQuery = sQuery & " AND tblCSI.IssueStatus = '"& issuestatus  &"' "
end if

if calltype <> "" and calltype <> "-1" then
 sQuery = sQuery & " AND tblCSI.CallType = '"& calltype  &"' "
end if

if firstDate <> "" and lastDate = "" then
 'sQuery = sQuery & " AND Calls.CallDate = '"& firstDate  &"' " commented by Albert
 sQuery = sQuery & " AND tblCSI.IssueDate = '"& firstDate  &"' " ' added by Albert
end if

if firstDate = "" and lastDate <> "" then
 'sQuery = sQuery & " AND Calls.CallDate = '"& lastDate  &"' " commented by Albert
  sQuery = sQuery & " AND tblCSI.IssueDate = '"& lastDate &"' " ' added by Albert
end if

if firstDate <> "" and lastDate <> "" then
 'sQuery = sQuery & " AND Calls.CallDate BETWEEN #" & firstDate & "# AND #" & lastDate & "# " commented by Albert
  sQuery = sQuery & " AND tblCSI.IssueDate BETWEEN #" & firstDate & "# AND #" & lastDate & "# "
end if


'========================= end kriteria query ============================
 sQuery = sQuery & " ORDER BY tblCSI.IssueDate DESC"



rsCalls.Source = sQuery

'Kelly- I added the next three lines of code. I'll show the results to you. JZ

dim query
Query = rsCalls.Source
'Response.Write Query
'Response.End
'**********************

rsCalls.CursorType = 0
rsCalls.CursorLocation = 2
rsCalls.LockType = 1
rsCalls.Open()

rsCalls_numRows = 0
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsCalls_numRows = rsCalls_numRows + Repeat1__numRows

'Dim ResponseTime = RespondDate - IssueDate
%>
<html>
<head>
<title>CSI Report</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<!--#include file="header.inc"-->
<br>
<%
 if Request.Form("cbWeb") = "Web" then
  GenHTML()
 end if
 if Request.Form("cbExcel") = "Excel" then
  CreateXlsFile()
 end if
 
%>
<% Function GenHTML() %>
<table width="1700" border="1" align="center" cellspacing="0">
  <tr bgcolor="#0099FF">
    <td colspan="13"> <div align="Center"><strong>CSI Report</strong></div></td>
  </tr>
  <tr bgcolor="#CCCCCC">
    <td width="42" nowrap><font size="-1"><strong>Branch</strong></font></td>
    <td width="54" nowrap><font size="-1"><strong>Customer</strong></font></td>
    <td width="35" nowrap><font size="-1"><strong>Phone</strong></font></td>
    <td width="52" nowrap><font size="-1"><strong>Call Type</strong></font></td>
    <td width="22" nowrap><font size="-1"><strong>To</strong></font></td>
    <td width="58" nowrap><font size="-1"><strong>Issue Type</strong></font></td>
      <td width="57" nowrap><font size="-1"><strong>Issue Date</strong></font></td>
      <td width="506" nowrap><font size="-1"><strong>Issue</strong></font></td>
      <td width="63" nowrap><font size="-1"><strong>Code #</strong></font></td>
      <td width="111" nowrap><font size="-1"><strong>Respondent</strong></font></td>
      <td width="80" nowrap><font size="-1"><strong>Response Date</strong></font></td>
      <td width="80" nowrap><font size="-1"><strong>Response Time</strong></font></td>
      <td width="570" nowrap><font size="-1"><strong>Response</strong></font></td>
      </tr>
  <%
  If Not rsCalls.EOF Or Not rsCalls.BOF Then
While ((Repeat1__numRows <> 0) AND (NOT rsCalls.EOF))
%>
  <%
  responsetime = 0
   if rsCalls.Fields.Item("RespondDate").Value <> ""   and  rsCalls.Fields.Item("IssueDate").Value <> "" then
              responsetime =  amtWorkDays( rsCalls.Fields.Item("RespondDate").Value ,rsCalls.Fields.Item("IssueDate").Value )
       end if
  %>
  <tr>
    <td nowrap width="42"><font size="-1"><%=(rsCalls.Fields.Item("Branch").Value)%>&nbsp;</font></td>
    <td nowrap width="54"><font size="-1"><%=(rsCalls.Fields.Item("CustName").Value)%>&nbsp;</font></td>
    <td nowrap width="35"><font size="-1"><%=(rsCalls.Fields.Item("CompPhone").Value)%>&nbsp;</font></td>
    <td nowrap width="52"><font size="-1"><%=(rsCalls.Fields.Item("CallType").Value)%>&nbsp;</font></td>
    <td nowrap width="22"><font size="-1"><%=(rsCalls.Fields.Item("Tocsi").Value)%>&nbsp;</font></td>
    <td nowrap width="58"><font size="-1"><%=(rsCalls.Fields.Item("IssueType").Value)%>&nbsp;</font></td>
    <td nowrap width="57"><font size="-1"><%=(rsCalls.Fields.Item("IssueDate").Value)%>&nbsp;</font></td>
    <td nowrap width="506"><font size="-1"><%=(rsCalls.Fields.Item("Issue").Value)%>&nbsp;</font></td>
    <td nowrap width="63"><font size="-1"><%=(rsCalls.Fields.Item("CSICODE").Value)%>&nbsp;</font></td>
    <td nowrap width="111"><font size="-1"><%=(rsCalls.Fields.Item("Respondent").Value)%>&nbsp;</font></td>
    <td nowrap width="80"><font size="-1"><%=(rsCalls.Fields.Item("RespondDate").Value)%>&nbsp;</font></td>
    <td nowrap width="80"><font size="-1"><%=responsetime%>&nbsp;</font></td>
    <td nowrap width="570"><font size="-1"><%=(rsCalls.Fields.Item("Response").Value)%>&nbsp;</font></td>
     
  </tr>
  <% %>
  <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsCalls.MoveNext()
Wend
End If ' end Not rsCalls.EOF Or NOT rsCalls.BOF
%>
  <tr>
    <% If rsCalls.EOF And rsCalls.BOF Then %>
    <td colspan="13" width="720">No
      Info Available</td>
    <% End If ' end rsCalls.EOF And rsCalls.BOF %>
  </tr>
</table>
<% end function


Function CreateXlsFile()

Set rsExcel = Server.CreateObject("ADODB.Recordset")
rsExcel.ActiveConnection = MM_JXECM_STRING

rsExcel.CursorType = 0
rsExcel.CursorLocation = 2
rsExcel.LockType = 1

rsExcel.Source = sQuery
rsExcel.Open()

      Dim xlWorkSheet
      Dim xlApplication
      Set xlApplication=CreateObject("Excel.Application")
      xlApplication.Visible=False
      xlApplication.Workbooks.Add
      Set xlWorksheet=xlApplication.Worksheets(1)
      t=0
      
t=t+1
            xlWorksheet.Cells(1,t).Value="Branch"
            xlWorksheet.Cells(1,t).Interior.ColorIndex=6
t=t+1
            xlWorksheet.Cells(1,t).Value="Customer"
            xlWorksheet.Cells(1,t).Interior.ColorIndex=6
t=t+1
            xlWo