[x]
Posted via EE Mobile

Search, ask, and monitor your questions on the go with EE Mobile. Visit Experts Exchange from your mobile device and never be out of touch again.
Question
[x]
Attachment Details
[x]
The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

  • The Grade of the Solution
  • The Zone Rank of the Expert Providing the Solution
  • The Number of Author and Expert Comments
  • The Number of Experts Contributing
  • The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!
6.2

Problem re-using recordset in ASP page

Asked by MilburnDrysdale in Active Server Pages (ASP)

Tags: 0x800a0bcd, select, trque

Created this page a while ago (using DMX2K4) and created a bunch of duplicate recordsets. Worked okay but took forever to load. I found a reference for using .MoveFirst() command that I thought would allow me to re-use and existing recordset in a new repeat region to display data in a table. Here is the offending area of code:

  </table>
</div>
<div id="Layer6" style="position:absolute; left:10px; top:249px; width:746px; height:20px; z-index:7">
  <table border="1">
    <% While ((Repeat3__numRows <> 0) AND (NOT TROTD.EOF)) %>
     <tr>
      <td width="109"><div align="center"><strong><%=(TROTD.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TROTD.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TROTD.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("OTDELVP").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTDQ.Fields.Item("QOTDELVP").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  TROTD.MoveNext()
 Wend
  TROTD.MoveFirst()
%>

I get the following error message now:

ADODB.Recordset (0x800A0BCD)
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
/Reports/TR_HRLY_CM1.asp, line 682

line 682 is "TROTD.MoveFirst()"

Here is the entire page (apologies for it's length!)...thanks for any help!


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/LTL400TAF_ASP.asp" -->
<%
Dim TRCLM__MMColParam
TRCLM__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRCLM__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRCLM
Dim TRCLM_numRows

Set TRCLM = Server.CreateObject("ADODB.Recordset")
TRCLM.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRCLM.Source = "SELECT MOYRTXT, TERMINAL, 'CLAIMS' AS ITEM, GOAL, ACLMPERC  FROM TAFWORK.TR_CLAIM3, TAFWORK.CCPREVBUSD  WHERE TRMONTH_YEAR=MONTH_YEAR AND   '" + Replace(TRCLM__MMColParam, "'", "''") + "'=TERMINAL"
TRCLM.CursorType = 0
TRCLM.CursorLocation = 2
TRCLM.LockType = 1
TRCLM.Open()

TRCLM_numRows = 0
%>
<%
Dim TRCLMQ__MMColParam
TRCLMQ__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRCLMQ__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRCLMQ
Dim TRCLMQ_numRows

Set TRCLMQ = Server.CreateObject("ADODB.Recordset")
TRCLMQ.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRCLMQ.Source = "SELECT TERMINAL, DECIMAL(SUM(CLAIMS))/DECIMAL(SUM(REVENUE)) AS QCLMPERC  FROM TAFWORK.TR_CLAIM3, TAFWORK.CCPREVBUSD  WHERE TRQTR_YEAR=QTR_YEAR AND '" + Replace(TRCLMQ__MMColParam, "'", "''") + "'=TERMINAL  GROUP BY TERMINAL"
TRCLMQ.CursorType = 0
TRCLMQ.CursorLocation = 2
TRCLMQ.LockType = 1
TRCLMQ.Open()

TRCLMQ_numRows = 0
%>
<%
Dim TRLF__MMColParam
TRLF__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRLF__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRLF
Dim TRLF_numRows

Set TRLF = Server.CreateObject("ADODB.Recordset")
TRLF.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRLF.Source = "SELECT MOYRTXT, LOADFCMTDT.TERMINAL, 'LOAD FACTOR' AS ITEM, GOAL, SUM(WEIGHT)/SUM(RUNS) AS LOADFACT  FROM LOADFCMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE, CCMOYEAR, TRGOALS   WHERE DISP_DATE=TRDATE AND TRMONTH_YEAR=TAFWORK.CCPREVBUSD.MONTH_YEAR AND    MO_YEAR=TAFWORK.CCPREVBUSD.MONTH_YEAR AND LOADFCMTDT.TERMINAL=TRGOALS.TERMINAL AND CATEGORY='LOAD FACTOR' AND CAST(TRMONTH_YEAR AS INTEGER)>=CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=CAST(CANDATE AS INTEGER) AND  '" + Replace(TRLF__MMColParam, "'", "''") + "'=LOADFCMTDT.TERMINAL  GROUP BY MOYRTXT, LOADFCMTDT.TERMINAL, GOAL "
TRLF.CursorType = 0
TRLF.CursorLocation = 2
TRLF.LockType = 1
TRLF.Open()

TRLF_numRows = 0
%>
<%
Dim TRLFQ__MMColParam
TRLFQ__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRLFQ__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRLFQ
Dim TRLFQ_numRows

Set TRLFQ = Server.CreateObject("ADODB.Recordset")
TRLFQ.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRLFQ.Source = "SELECT TERMINAL, SUM(WEIGHT)/SUM(RUNS) AS QLOADFACT  FROM LOADFCMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE TRDATE=DISP_DATE AND TRQTR_YEAR=QTR_YEAR       AND  '" + Replace(TRLFQ__MMColParam, "'", "''") + "'=TERMINAL    GROUP BY TERMINAL"
TRLFQ.CursorType = 0
TRLFQ.CursorLocation = 2
TRLFQ.LockType = 1
TRLFQ.Open()

TRLFQ_numRows = 0
%>
<%
Dim TROTD__MMColParam
TROTD__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTD__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTD
Dim TROTD_numRows

Set TROTD = Server.CreateObject("ADODB.Recordset")
TROTD.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTD.Source = "SELECT MOYRTXT, OTDELVMTDT.TERMINAL, 'ONTIME DELV' AS ITEM, GOAL,    DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS OTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRGOALS, TRLISTDATE, CCMOYEAR  WHERE DATE=TRDATE AND TRMONTH_YEAR=MONTH_YEAR AND MONTH_YEAR=MO_YEAR  AND OTDELVMTDT.TERMINAL=TRGOALS.TERMINAL AND CATEGORY='ONTIME DELIVERY' AND CAST(TRMONTH_YEAR AS INTEGER)>=       CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=         CAST(CANDATE AS INTEGER)  AND  '" + Replace(TROTD__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL GROUP BY MOYRTXT, OTDELVMTDT.TERMINAL, GOAL"
TROTD.CursorType = 0
TROTD.CursorLocation = 2
TROTD.LockType = 1
TROTD.Open()

TROTD_numRows = 0
%>
<%
Dim TROTDQ__MMColParam
TROTDQ__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTDQ__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTDQ
Dim TROTDQ_numRows

Set TROTDQ = Server.CreateObject("ADODB.Recordset")
TROTDQ.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTDQ.Source = "SELECT OTDELVMTDT.TERMINAL, DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS QOTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(TROTDQ__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL GROUP BY OTDELVMTDT.TERMINAL"
TROTDQ.CursorType = 0
TROTDQ.CursorLocation = 2
TROTDQ.LockType = 1
TROTDQ.Open()

TROTDQ_numRows = 0
%>
<%
Dim OT8__MMColParam
OT8__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT8__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT8
Dim OT8_numRows

Set OT8 = Server.CreateObject("ADODB.Recordset")
OT8.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT8.Source = "SELECT MOYRTXT, OTLH08MTDT.TERMINAL AS TERMINAL, 'LHL 0800 ARRV' AS ITEM, GOAL,  DECIMAL(ROUND((DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/DECIMAL(SUM(OFBSDUE)),4),8,4) AS OB08PERC  FROM TAFWORK.CCPREVBUSD, TRLISTDATE, OTLH08MTDT, CCMOYEAR, TRGOALS  WHERE TRDATE=ARRV_DATE AND TRQTR_YEAR=QTR_YEAR AND TRMONTH_YEAR=MONTH_YEAR                AND TRDATE<CURRENT DATE AND TRTERMINAL=OTLH08MTDT.TERMINAL AND        CCMOYEAR.MO_YEAR=TRMONTH_YEAR AND TRGOALS.TERMINAL=TRTERMINAL AND     CATEGORY='LH0800' AND CAST(TRMONTH_YEAR AS INTEGER)>=                 CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=          CAST(CANDATE AS INTEGER)  AND '" + Replace(OT8__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL              GROUP BY OTLH08MTDT.TERMINAL, MOYRTXT, GOAL"
OT8.CursorType = 0
OT8.CursorLocation = 2
OT8.LockType = 1
OT8.Open()

OT8_numRows = 0
%>
<%
Dim OT8Q__MMColParam
OT8Q__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT8Q__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT8Q
Dim OT8Q_numRows

Set OT8Q = Server.CreateObject("ADODB.Recordset")
OT8Q.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT8Q.Source = "SELECT OTLH08MTDT.TERMINAL,                                        (DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/DECIMAL(SUM(     OFBSDUE)) AS OB08QPERC  FROM OTLH08MTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE ARRV_DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(OT8Q__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL                     GROUP BY OTLH08MTDT.TERMINAL"
OT8Q.CursorType = 0
OT8Q.CursorLocation = 2
OT8Q.LockType = 1
OT8Q.Open()

OT8Q_numRows = 0
%>
<%
Dim TRCLM1__MMColParam
TRCLM1__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRCLM1__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRCLM1
Dim TRCLM1_numRows

Set TRCLM1 = Server.CreateObject("ADODB.Recordset")
TRCLM1.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRCLM1.Source = "SELECT MOYRTXT, TERMINAL, 'CLAIMS' AS ITEM, GOAL, ACLMPERC  FROM TAFWORK.TR_CLAIM3, TAFWORK.CCPREVBUSD  WHERE TRMONTH_YEAR=MONTH_YEAR AND   '" + Replace(TRCLM1__MMColParam, "'", "''") + "'=TERMINAL"
TRCLM1.CursorType = 0
TRCLM1.CursorLocation = 2
TRCLM1.LockType = 1
TRCLM1.Open()

TRCLM1_numRows = 0
%>
<%
Dim TRCLMQ1__MMColParam
TRCLMQ1__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRCLMQ1__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRCLMQ1
Dim TRCLMQ1_numRows

Set TRCLMQ1 = Server.CreateObject("ADODB.Recordset")
TRCLMQ1.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRCLMQ1.Source = "SELECT TERMINAL, DECIMAL(SUM(CLAIMS))/DECIMAL(SUM(REVENUE)) AS QCLMPERC  FROM TAFWORK.TR_CLAIM3, TAFWORK.CCPREVBUSD  WHERE TRQTR_YEAR=QTR_YEAR AND '" + Replace(TRCLMQ1__MMColParam, "'", "''") + "'=TERMINAL  GROUP BY TERMINAL"
TRCLMQ1.CursorType = 0
TRCLMQ1.CursorLocation = 2
TRCLMQ1.LockType = 1
TRCLMQ1.Open()

TRCLMQ1_numRows = 0
%>
<%
Dim TROTD2__MMColParam
TROTD2__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTD2__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTD2
Dim TROTD2_numRows

Set TROTD2 = Server.CreateObject("ADODB.Recordset")
TROTD2.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTD2.Source = "SELECT MOYRTXT, OTDELVMTDT.TERMINAL, 'ONTIME DELV' AS ITEM, GOAL,    DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS OTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRGOALS, TRLISTDATE, CCMOYEAR  WHERE DATE=TRDATE AND TRMONTH_YEAR=MONTH_YEAR                        AND MONTH_YEAR=MO_YEAR                                               AND OTDELVMTDT.TERMINAL=TRGOALS.TERMINAL AND                         CATEGORY='ONTIME DELIVERY' AND CAST(TRMONTH_YEAR AS INTEGER)>=       CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=         CAST(CANDATE AS INTEGER)  AND  '" + Replace(TROTD2__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL                                  GROUP BY MOYRTXT, OTDELVMTDT.TERMINAL, GOAL"
TROTD2.CursorType = 0
TROTD2.CursorLocation = 2
TROTD2.LockType = 1
TROTD2.Open()

TROTD2_numRows = 0
%>
<%
Dim TROTDQ2__MMColParam
TROTDQ2__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTDQ2__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTDQ2
Dim TROTDQ2_numRows

Set TROTDQ2 = Server.CreateObject("ADODB.Recordset")
TROTDQ2.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTDQ2.Source = "SELECT OTDELVMTDT.TERMINAL, DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS QOTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(TROTDQ2__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL                           GROUP BY OTDELVMTDT.TERMINAL"
TROTDQ2.CursorType = 0
TROTDQ2.CursorLocation = 2
TROTDQ2.LockType = 1
TROTDQ2.Open()

TROTDQ2_numRows = 0
%>
<%
Dim OT81__MMColParam
OT81__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT81__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT81
Dim OT81_numRows

Set OT81 = Server.CreateObject("ADODB.Recordset")
OT81.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT81.Source = "SELECT MOYRTXT, OTLH08MTDT.TERMINAL AS TERMINAL, 'LHL 0800 ARRV' AS ITEM, GOAL,                                        DECIMAL(ROUND((DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/      DECIMAL(SUM(OFBSDUE)),4),8,4) AS OB08PERC  FROM TAFWORK.CCPREVBUSD, TRLISTDATE, OTLH08MTDT, CCMOYEAR, TRGOALS  WHERE TRDATE=ARRV_DATE AND TRQTR_YEAR=QTR_YEAR AND TRMONTH_YEAR=MONTH_YEAR                AND TRDATE<CURRENT DATE AND TRTERMINAL=OTLH08MTDT.TERMINAL AND        CCMOYEAR.MO_YEAR=TRMONTH_YEAR AND TRGOALS.TERMINAL=TRTERMINAL AND     CATEGORY='LH0800' AND CAST(TRMONTH_YEAR AS INTEGER)>=                 CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=          CAST(CANDATE AS INTEGER)  AND '" + Replace(OT81__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL              GROUP BY OTLH08MTDT.TERMINAL, MOYRTXT, GOAL"
OT81.CursorType = 0
OT81.CursorLocation = 2
OT81.LockType = 1
OT81.Open()

OT81_numRows = 0
%>
<%
Dim OT8Q1__MMColParam
OT8Q1__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT8Q1__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT8Q1
Dim OT8Q1_numRows

Set OT8Q1 = Server.CreateObject("ADODB.Recordset")
OT8Q1.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT8Q1.Source = "SELECT OTLH08MTDT.TERMINAL,(DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/DECIMAL(SUM(     OFBSDUE)) AS OB08QPERC  FROM OTLH08MTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE ARRV_DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(OT8Q1__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL                     GROUP BY OTLH08MTDT.TERMINAL"
OT8Q1.CursorType = 0
OT8Q1.CursorLocation = 2
OT8Q1.LockType = 1
OT8Q1.Open()

OT8Q1_numRows = 0
%>
<%
Dim TROTD3__MMColParam
TROTD3__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTD3__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTD3
Dim TROTD3_numRows

Set TROTD3 = Server.CreateObject("ADODB.Recordset")
TROTD3.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTD3.Source = "SELECT MOYRTXT, OTDELVMTDT.TERMINAL, 'ONTIME DELV' AS ITEM, GOAL,    DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS OTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRGOALS, TRLISTDATE, CCMOYEAR  WHERE DATE=TRDATE AND TRMONTH_YEAR=MONTH_YEAR                        AND MONTH_YEAR=MO_YEAR                                               AND OTDELVMTDT.TERMINAL=TRGOALS.TERMINAL AND                         CATEGORY='ONTIME DELIVERY' AND CAST(TRMONTH_YEAR AS INTEGER)>=       CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=         CAST(CANDATE AS INTEGER)  AND  '" + Replace(TROTD3__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL                                  GROUP BY MOYRTXT, OTDELVMTDT.TERMINAL, GOAL"
TROTD3.CursorType = 0
TROTD3.CursorLocation = 2
TROTD3.LockType = 1
TROTD3.Open()

TROTD3_numRows = 0
%>
<%
Dim TROTDQ3__MMColParam
TROTDQ3__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TROTDQ3__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TROTDQ3
Dim TROTDQ3_numRows

Set TROTDQ3 = Server.CreateObject("ADODB.Recordset")
TROTDQ3.ActiveConnection = MM_LTL400TAF_ASP_STRING
TROTDQ3.Source = "SELECT OTDELVMTDT.TERMINAL,                                          DECIMAL(SUM(BILLS_ONTIME))/DECIMAL(SUM(BILLS_MEASURED)) AS QOTDELVP  FROM OTDELVMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(TROTDQ3__MMColParam, "'", "''") + "'=OTDELVMTDT.TERMINAL                           GROUP BY OTDELVMTDT.TERMINAL"
TROTDQ3.CursorType = 0
TROTDQ3.CursorLocation = 2
TROTDQ3.LockType = 1
TROTDQ3.Open()

TROTDQ3_numRows = 0
%>
<%
Dim OT82__MMColParam
OT82__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT82__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT82
Dim OT82_numRows

Set OT82 = Server.CreateObject("ADODB.Recordset")
OT82.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT82.Source = "SELECT MOYRTXT, OTLH08MTDT.TERMINAL AS TERMINAL,                      'LHL 0800 ARRV' AS ITEM, GOAL,                                        DECIMAL(ROUND((DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/      DECIMAL(SUM(OFBSDUE)),4),8,4) AS OB08PERC  FROM TAFWORK.CCPREVBUSD, TRLISTDATE, OTLH08MTDT, CCMOYEAR, TRGOALS  WHERE TRDATE=ARRV_DATE AND TRQTR_YEAR=QTR_YEAR AND TRMONTH_YEAR=MONTH_YEAR                AND TRDATE<CURRENT DATE AND TRTERMINAL=OTLH08MTDT.TERMINAL AND        CCMOYEAR.MO_YEAR=TRMONTH_YEAR AND TRGOALS.TERMINAL=TRTERMINAL AND     CATEGORY='LH0800' AND CAST(TRMONTH_YEAR AS INTEGER)>=                 CAST(EFFDATE AS INTEGER) AND CAST(TRMONTH_YEAR AS INTEGER)<=          CAST(CANDATE AS INTEGER)  AND '" + Replace(OT82__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL              GROUP BY OTLH08MTDT.TERMINAL, MOYRTXT, GOAL"
OT82.CursorType = 0
OT82.CursorLocation = 2
OT82.LockType = 1
OT82.Open()

OT82_numRows = 0
%>
<%
Dim OT8Q2__MMColParam
OT8Q2__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  OT8Q2__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim OT8Q2
Dim OT8Q2_numRows

Set OT8Q2 = Server.CreateObject("ADODB.Recordset")
OT8Q2.ActiveConnection = MM_LTL400TAF_ASP_STRING
OT8Q2.Source = "SELECT OTLH08MTDT.TERMINAL,                                        (DECIMAL(SUM(OFBSDUE))-DECIMAL(SUM(OFBSDUELATE)))/DECIMAL(SUM(     OFBSDUE)) AS OB08QPERC  FROM OTLH08MTDT, TAFWORK.CCPREVBUSD, TRLISTDATE  WHERE ARRV_DATE=TRDATE AND TRQTR_YEAR=QTR_YEAR AND '" + Replace(OT8Q2__MMColParam, "'", "''") + "'=OTLH08MTDT.TERMINAL                     GROUP BY OTLH08MTDT.TERMINAL"
OT8Q2.CursorType = 0
OT8Q2.CursorLocation = 2
OT8Q2.LockType = 1
OT8Q2.Open()

OT8Q2_numRows = 0
%>
<%
Dim TRQUE__MMColParam
TRQUE__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRQUE__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRQUE
Dim TRQUE_numRows

Set TRQUE = Server.CreateObject("ADODB.Recordset")
TRQUE.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRQUE.Source = "SELECT MOYRTXT, RESP_TERM, 'QUEUES' AS ITEM,                          1-(DECIMAL(AVG(QUEUE_BILLS))/DECIMAL(MAX(TOT_BILLS))) AS QUEUE_PERC,  AVG(TRGOALS.GOAL) AS GOAL  FROM QUEUESMTDT, TAFWORK.CCPREVBUSD, TRGOALS  WHERE QUEUESMTDT.MONTH_YEAR=TAFWORK.CCPREVBUSD.MONTH_YEAR AND                 CATEGORY='QUEUES' AND CAST(TAFWORK.CCPREVBUSD.MONTH_YEAR AS INTEGER)>=        CAST(EFFDATE AS INTEGER) AND CAST(TAFWORK.CCPREVBUSD.MONTH_YEAR AS INTEGER)   <=CAST(CANDATE AS INTEGER)  AND TRGOALS.TERMINAL=QUEUESMTDT.RESP_TERM  AND '" + Replace(TRQUE__MMColParam, "'", "''") + "'=RESP_TERM                 GROUP BY RESP_TERM, MOYRTXT"
TRQUE.CursorType = 0
TRQUE.CursorLocation = 2
TRQUE.LockType = 1
TRQUE.Open()

TRQUE_numRows = 0
%>
<%
Dim TRQUEQ__MMColParam
TRQUEQ__MMColParam = "1"
If (Request.Form("TERMINAL") <> "") Then
  TRQUEQ__MMColParam = Request.Form("TERMINAL")
End If
%>
<%
Dim TRQUEQ
Dim TRQUEQ_numRows

Set TRQUEQ = Server.CreateObject("ADODB.Recordset")
TRQUEQ.ActiveConnection = MM_LTL400TAF_ASP_STRING
TRQUEQ.Source = "SELECT RESP_TERM,                                                    1-(DECIMAL(AVG(QUEUE_BILLS))/DECIMAL(MAX(TOT_BILLS))) AS QUEUE_PERC  FROM QUEUESMTDT, TAFWORK.CCPREVBUSD, TRLISTDATE                      WHERE SNAPDATE=TRDATE AND TRQTR_YEAR=TAFWORK.CCPREVBUSD.QTR_YEAR  AND '" + Replace(TRQUEQ__MMColParam, "'", "''") + "'=RESP_TERM           GROUP BY RESP_TERM                                                 "
TRQUEQ.CursorType = 0
TRQUEQ.CursorLocation = 2
TRQUEQ.LockType = 1
TRQUEQ.Open()

TRQUEQ_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
TRCLM_numRows = TRCLM_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
TRLF_numRows = TRLF_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
TROTD_numRows = TROTD_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
TROTD_numRows = TROTD_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
OT8_numRows = OT8_numRows + Repeat5__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index

Repeat6__numRows = -1
Repeat6__index = 0
TRCLM1_numRows = TRCLM1_numRows + Repeat6__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index

Repeat7__numRows = -1
Repeat7__index = 0
TROTD2_numRows = TROTD2_numRows + Repeat7__numRows
%>
<%
Dim Repeat8__numRows
Dim Repeat8__index

Repeat8__numRows = -1
Repeat8__index = 0
OT81_numRows = OT81_numRows + Repeat8__numRows
%>
<%
Dim Repeat9__numRows
Dim Repeat9__index

Repeat9__numRows = -1
Repeat9__index = 0
TROTD3_numRows = TROTD3_numRows + Repeat9__numRows
%>
<%
Dim Repeat10__numRows
Dim Repeat10__index

Repeat10__numRows = -1
Repeat10__index = 0
OT82_numRows = OT82_numRows + Repeat10__numRows
%>
<%
Dim Repeat11__numRows
Dim Repeat11__index

Repeat11__numRows = -1
Repeat11__index = 0
TRQUE_numRows = TRQUE_numRows + Repeat11__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Towne Rewards - Hourly Terminal - Current Month Report</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
body,td,th {
      font-family: Arial, Helvetica, sans-serif;
      font-size: 12px;
}
body {
      margin-left: 0px;
      margin-top: 0px;
}
.style1 {
      color: #DE2338;
      font-weight: bold;
}
.style2 {
      font-size: 18px;
      font-style: italic;
      font-weight: bold;
}
.style3 {
      font-size: 12px;
      font-weight: bold;
      color: #DE2338;
}
.style4 {
      font-size: 14px;
      font-weight: bold;
}
.style5 {
      color: #D82238;
      font-weight: bold;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body onLoad="MM_preloadImages('images/truck_home2.gif')">
<div id="Layer1" style="position:absolute; left:220px; top:0px; width:325px; height:93px; z-index:1"><img src="images/townerewards.gif" width="325" height="85"></div>

<div id="Layer2" style="position:absolute; left:232px; top:103px; width:332px; height:41px; z-index:2">
  <form name="form1" method="post" action="">
    <select name="TERMINAL" id="TERMINAL">
      <option value="Select Terminal From List Below" selected>Select Terminal From List Below</option>
      <option value="ATL">ATL</option>
      <option value="CLE">CLE</option>
      <option value="CMH">CMH</option>
      <option value="CVG">CVG</option>
      <option value="DAY">DAY</option>
      <option value="DTW">DTW</option>
      <option value="EVV">EVV</option>
      <option value="FWA">FWA</option>
      <option value="GRR">GRR</option>
      <option value="IND">IND</option>
      <option value="JFK">JFK</option>
      <option value="LEX">LEX</option>
      <option value="MBS">MBS</option>
      <option value="MKE">MKE</option>
      <option value="MSP">MSP</option>
      <option value="ORD">ORD</option>
      <option value="PHL">PHL</option>
      <option value="SBN">SBN</option>
      <option value="SDF">SDF</option>
      <option value="TOL">TOL</option>
      <option value="TVC">TVC</option>
    </select>
    <input type="submit" name="Submit" value="Submit">
  </form>
</div>
<div id="Layer3" style="position:absolute; left:10px; top:180px; width:654px; height:40px; z-index:3">
  <table width="710" border="1">
    <tr bgcolor="#E4E4E4">
      <td width="109"><div align="center"><strong>Month</strong></div></td>
      <td width="111"><div align="center"><strong>Terminal</strong></div></td>
      <td width="100"><div align="center"><strong>Category</strong></div></td>
      <td width="100"><div align="center"><strong>Goal</strong></div></td>
      <td width="125"><div align="center"><strong>Current Month</strong></div></td>
      <td width="125"><div align="center"><strong>Current Quarter </strong></div></td>
    </tr>
    <% While ((Repeat1__numRows <> 0) AND (NOT TRCLM.EOF)) %>
    <tr>
      <td><div align="center"><strong><%=(TRCLM.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td><div align="center" class="style1"><%=(TRCLM.Fields.Item("TERMINAL").Value)%></div></td>
      <td><div align="left"><strong><%=(TRCLM.Fields.Item("ITEM").Value)%></strong></div></td>
      <td><div align="center"><%=FormatPercent(Cstr((TRCLM.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td><div align="center"><%=FormatPercent(Cstr((TRCLM.Fields.Item("ACLMPERC").Value)),2,-2,-2,-2)%></div></td>
      <td><div align="center"><%=FormatPercent(Cstr((TRCLMQ.Fields.Item("QCLMPERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  TRCLM.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer5" style="position:absolute; left:316px; top:290px; width:136px; height:25px; z-index:5">
  <div align="center" class="style2">Driver</div>
</div>
<div id="Layer4" style="position:absolute; left:10px; top:225px; width:746px; height:20px; z-index:6">
  <table border="1">
    <% While ((Repeat2__numRows <> 0) AND (NOT TRLF.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(TRLF.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center"><span class="style3"><%=(TRLF.Fields.Item("TERMINAL").Value)%></span></div></td>
      <td width="100"><strong><%=(TRLF.Fields.Item("ITEM").Value)%></strong></td>
      <td width="100"><div align="center"><%=(TRLF.Fields.Item("GOAL").Value)%></div></td>
      <td width="125"><div align="center"><%=(TRLF.Fields.Item("LOADFACT").Value)%></div></td>
      <td width="125"><div align="center"><%=(TRLFQ.Fields.Item("QLOADFACT").Value)%></div></td>
    </tr>
    <%
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  TRLF.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer6" style="position:absolute; left:10px; top:249px; width:746px; height:20px; z-index:7">
  <table border="1">
    <% While ((Repeat3__numRows <> 0) AND (NOT TROTD.EOF)) %>
     <tr>
      <td width="109"><div align="center"><strong><%=(TROTD.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TROTD.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TROTD.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("OTDELVP").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTDQ.Fields.Item("QOTDELVP").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  TROTD.MoveNext()
 Wend
  TROTD.MoveFirst()
%>
  </table>
</div>
<div id="Layer5" style="position:absolute; left:316px; top:154px; width:136px; height:25px; z-index:5">
  <div align="center" class="style2">Dock</div>
</div>
<div id="Layer7" style="position:absolute; left:10px; top:316px; width:746px; height:36px; z-index:8">
  <table width="710" border="1">
    <tr bgcolor="#E4E4E4">
      <td width="109"><div align="center"><strong>Month</strong></div></td>
      <td width="111"><div align="center"><strong>Terminal</strong></div></td>
      <td width="100"><div align="center"><strong>Category</strong></div></td>
      <td width="100"><div align="center"><strong>Goal</strong></div></td>
      <td width="125"><div align="center"><strong>Current Month </strong></div></td>
      <td width="125"><div align="center"><strong>Current Quarter </strong></div></td>
    </tr>
      <% While ((Repeat4__numRows <> 0) AND (NOT TROTD.EOF)) %>
   <tr>
      <td width="109"><div align="center"><strong><%=(TROTD.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TROTD.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TROTD.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTD.Fields.Item("OTDELVP").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTDQ.Fields.Item("QOTDELVP").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  TROTD.MoveNext()
Wend
 
%>
  </table>
</div>
<div id="Layer8" style="position:absolute; left:10px; top:361px; width:746px; height:24px; z-index:9">
  <table width="710" border="1">
    <% While ((Repeat5__numRows <> 0) AND (NOT OT8.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(OT8.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(OT8.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(OT8.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((OT8.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT8.Fields.Item("OB08PERC").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT8Q.Fields.Item("OB08QPERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  OT8.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer9" style="position:absolute; left:10px; top:385px; width:753px; height:24px; z-index:10">
  <table border="1">
    <% While ((Repeat6__numRows <> 0) AND (NOT TRCLM1.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(TRCLM1.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TRCLM1.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TRCLM1.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TRCLM1.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TRCLM1.Fields.Item("ACLMPERC").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TRCLMQ1.Fields.Item("QCLMPERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  TRCLM1.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer10" style="position:absolute; left:10px; top:457px; width:761px; height:33px; z-index:11">
  <table width="710" border="1">
    <tr bgcolor="#E4E4E4">
      <td width="109"><div align="center"><strong>Month</strong></div></td>
      <td width="111"><div align="center"><strong>Terminal</strong></div></td>
      <td width="100"><div align="center"><strong>Category</strong></div></td>
      <td width="100"><div align="center"><strong>Goal</strong></div></td>
      <td width="125"><div align="center"><strong>Current Month</strong></div></td>
      <td width="125"><div align="center"><strong>Current Quarter</strong></div></td>
    </tr>
    <% While ((Repeat7__numRows <> 0) AND (NOT TROTD2.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(TROTD2.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TROTD2.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TROTD2.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TROTD2.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTD2.Fields.Item("OTDELVP").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTDQ2.Fields.Item("QOTDELVP").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  TROTD2.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer5" style="position:absolute; left:316px; top:431px; width:136px; height:25px; z-index:5">
  <div align="center" class="style2">Maintenance</div>
</div>
<div id="Layer11" style="position:absolute; left:230px; top:84px; width:305px; height:18px; z-index:12">
  <div align="center" class="style4">Current Month &amp; Quarter Summary </div>
</div>
<div id="Layer12" style="position:absolute; left:10px; top:502px; width:779px; height:20px; z-index:13">
  <table border="1">
    <% While ((Repeat8__numRows <> 0) AND (NOT OT81.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(OT81.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(OT81.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(OT81.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((OT81.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT81.Fields.Item("OB08PERC").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT8Q1.Fields.Item("OB08QPERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat8__index=Repeat8__index+1
  Repeat8__numRows=Repeat8__numRows-1
  OT81.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer13" style="position:absolute; left:10px; top:580px; width:756px; height:45px; z-index:14">
  <table width="710" border="1">
    <tr bgcolor="#E4E4E4">
      <td width="109"><div align="center"><strong>Month</strong></div></td>
      <td width="111"><div align="center"><strong>Terminal</strong></div></td>
      <td width="100"><div align="center"><strong>Category</strong></div></td>
      <td width="100"><div align="center"><strong>Goal</strong></div></td>
      <td width="125"><div align="center"><strong>Current Month </strong></div></td>
      <td width="125"><div align="center"><strong>Current Quarter </strong></div></td>
    </tr>
    <% While ((Repeat9__numRows <> 0) AND (NOT TROTD3.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(TROTD3.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(TROTD3.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TROTD3.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TROTD3.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTD3.Fields.Item("OTDELVP").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TROTDQ3.Fields.Item("QOTDELVP").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat9__index=Repeat9__index+1
  Repeat9__numRows=Repeat9__numRows-1
  TROTD3.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer5" style="position:absolute; left:316px; top:554px; width:136px; height:25px; z-index:5">
  <div align="center" class="style2">Office</div>
</div>
<div id="Layer14" style="position:absolute; left:10px; top:649px; width:783px; height:23px; z-index:15">
  <table border="1">
    <% While ((Repeat11__numRows <> 0) AND (NOT TRQUE.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(TRQUE.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style5"><%=(TRQUE.Fields.Item("RESP_TERM").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(TRQUE.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((TRQUE.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TRQUE.Fields.Item("QUEUE_PERC").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((TRQUEQ.Fields.Item("QUEUE_PERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat11__index=Repeat11__index+1
  Repeat11__numRows=Repeat11__numRows-1
  TRQUE.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer15" style="position:absolute; left:10px; top:625px; width:756px; height:24px; z-index:16">
  <table border="1">
    <% While ((Repeat10__numRows <> 0) AND (NOT OT82.EOF)) %>
    <tr>
      <td width="109"><div align="center"><strong><%=(OT82.Fields.Item("MOYRTXT").Value)%></strong></div></td>
      <td width="111"><div align="center" class="style1"><%=(OT82.Fields.Item("TERMINAL").Value)%></div></td>
      <td width="100"><div align="left"><strong><%=(OT82.Fields.Item("ITEM").Value)%></strong></div></td>
      <td width="100"><div align="center"><%=FormatPercent(Cstr((OT82.Fields.Item("GOAL").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT82.Fields.Item("OB08PERC").Value)),2,-2,-2,-2)%></div></td>
      <td width="125"><div align="center"><%=FormatPercent(Cstr((OT8Q2.Fields.Item("OB08QPERC").Value)),2,-2,-2,-2)%></div></td>
    </tr>
    <%
  Repeat10__index=Repeat10__index+1
  Repeat10__numRows=Repeat10__numRows-1
  OT82.MoveNext()
Wend
%>
  </table>
</div>
<div id="Layer16" style="position:absolute; left:19px; top:16px; width:75px; height:75px; z-index:17"><a href="home_new.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Home','','images/truck_home2.gif',1)"><img src="images/truck_home1.gif" alt="Home" name="Home" width="60" height="52" border="0"></a></div>
<div id="Layer17" style="position:absolute; left:230px; top:133px; width:341px; height:19px; z-index:18; font-weight: bold; color: #DE2338;">***This report will update every Thursday</div>
</body>
</html>
<%
TRCLM.Close()
Set TRCLM = Nothing
%>
<%
TRCLMQ.Close()
Set TRCLMQ = Nothing
%>
<%
TRLF.Close()
Set TRLF = Nothing
%>
<%
TRLFQ.Close()
Set TRLFQ = Nothing
%>
<%
TROTD.Close()
Set TROTD = Nothing
%>
<%
TROTDQ.Close()
Set TROTDQ = Nothing
%>
<%
OT8.Close()
Set OT8 = Nothing
%>
<%
OT8Q.Close()
Set OT8Q = Nothing
%>
<%
TRCLM1.Close()
Set TRCLM1 = Nothing
%>
<%
TRCLMQ1.Close()
Set TRCLMQ1 = Nothing
%>
<%
TROTD2.Close()
Set TROTD2 = Nothing
%>
<%
TROTDQ2.Close()
Set TROTDQ2 = Nothing
%>
<%
OT81.Close()
Set OT81 = Nothing
%>
<%
OT8Q1.Close()
Set OT8Q1 = Nothing
%>
<%
TROTD3.Close()
Set TROTD3 = Nothing
%>
<%
TROTDQ3.Close()
Set TROTDQ3 = Nothing
%>
<%
OT82.Close()
Set OT82 = Nothing
%>
<%
OT8Q2.Close()
Set OT8Q2 = Nothing
%>
<%
TRQUE.Close()
Set TRQUE = Nothing
%>
<%
TRQUEQ.Close()
Set TRQUEQ = Nothing
%>
[+][-]07/18/05 10:09 PM, ID: 14472508Accepted Solution

View this solution now by starting your 30-day free trial. Setting up your free trial is quick, easy, and secure. We will return you to this solution, unlocked, when you're done.

About this solution

Zone: Active Server Pages (ASP)
Tags: 0x800a0bcd, select, trque
Sign Up Now!
Solution Provided By: CreativeLightning
Participating Experts: 5
Solution Grade: A
 
[+][-]07/18/05 12:08 PM, ID: 14469224Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 12:18 PM, ID: 14469309Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]07/18/05 12:32 PM, ID: 14469447Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 12:35 PM, ID: 14469474Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 01:03 PM, ID: 14469712Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]07/18/05 01:13 PM, ID: 14469796Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 01:59 PM, ID: 14470252Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]07/18/05 02:10 PM, ID: 14470359Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 02:11 PM, ID: 14470374Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 04:56 PM, ID: 14471437Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 06:33 PM, ID: 14471927Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 08:53 PM, ID: 14472320Author Comment

Often, when Experts are collaborating with members who have asked questions, they will request additional information about the problem. Askers respond with an author comment like this one.

Start your 30-day free trial to view this Author Comment or ask the Experts your question.

 
[+][-]07/18/05 09:38 PM, ID: 14472433Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 10:10 PM, ID: 14472517Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/18/05 10:14 PM, ID: 14472531Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
[+][-]07/19/05 12:52 AM, ID: 14472994Expert Comment

At Experts Exchange, members can ask their questions to thousands of technology professionals, also known as Experts. Experts compete and collaborate to answer those questions by leaving comments like this one.

Start your 30-day free trial to view this Expert Comment or ask the Experts your question.

 
 
Loading Advertisement...
20091111-EE-VQP-92