Already a member?
Sign in
| Version | User | Scope of changes |
|---|---|---|
| Jun 29 2007, 12:16 PM EDT (current) | Anonymous | 473 words deleted |
| Jun 29 2007, 12:15 PM EDT | Anonymous | 467 words added, 22 words deleted |
Changes
Key: Additions Deletions
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/LTL400TAF_ASP.asp" --><%Dim rs1__MMColParamrs1__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs1__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs1Dim rs1_numRowsSet rs1 = Server.CreateObject("ADODB.Recordset")rs1.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs1.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs1__MMColParam, "'", "''") + "' AND DBDAY=1"rs1.CursorType = 0rs1.CursorLocation = 2rs1.LockType = 1rs1.Open()rs1_numRows = 0%><%Dim rs2Dim rs2_numRowsSet rs2 = Server.CreateObject("ADODB.Recordset")rs2.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs2.Source = "SELECT TERMINAL FROM TERMLISTOD ORDER BY TERMINAL"rs2.CursorType = 0rs2.CursorLocation = 2rs2.LockType = 1rs2.Open()rs2_numRows = 0%><%Dim rs3__MMColParamrs3__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs3__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs3Dim rs3_numRowsSet rs3 = Server.CreateObject("ADODB.Recordset")rs3.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs3.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs3__MMColParam, "'", "''") + "' AND DBDAY=2"rs3.CursorType = 0rs3.CursorLocation = 2rs3.LockType = 1rs3.Open()rs3_numRows = 0%><%Dim rsTERM__MMColParamrsTERM__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rsTERM__MMColParam = Request.Form("TERMINAL")End If%><%Dim rsTERMDim rsTERM_numRowsSet rsTERM = Server.CreateObject("ADODB.Recordset")rsTERM.ActiveConnection = MM_LTL400TAF_ASP_STRINGrsTERM.Source = "SELECT GOAL, DBTERM FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rsTERM__MMColParam, "'", "''") + "' GROUP BY GOAL, DBTERM"rsTERM.CursorType = 0rsTERM.CursorLocation = 2rsTERM.LockType = 1rsTERM.Open()rsTERM_numRows = 0%><%Dim rs4__MMColParamrs4__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs4__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs4Dim rs4_numRowsSet rs4 = Server.CreateObject("ADODB.Recordset")rs4.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs4.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs4__MMColParam, "'", "''") + "' AND DBDAY=3"rs4.CursorType = 0rs4.CursorLocation = 2rs4.LockType = 1rs4.Open()rs4_numRows = 0%><%Dim rs5__MMColParamrs5__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs5__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs5Dim rs5_numRowsSet rs5 = Server.CreateObject("ADODB.Recordset")rs5.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs5.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs5__MMColParam, "'", "''") + "' AND DBDAY=4"rs5.CursorType = 0rs5.CursorLocation = 2rs5.LockType = 1rs5.Open()rs5_numRows = 0%><%Dim rs6__MMColParamrs6__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs6__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs6Dim rs6_numRowsSet rs6 = Server.CreateObject("ADODB.Recordset")rs6.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs6.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs6__MMColParam, "'", "''") + "' AND DBDAY=5"rs6.CursorType = 0rs6.CursorLocation = 2rs6.LockType = 1rs6.Open()rs6_numRows = 0%><%Dim rs7__MMColParamrs7__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs7__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs7Dim rs7_numRowsSet rs7 = Server.CreateObject("ADODB.Recordset")rs7.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs7.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs7__MMColParam, "'", "''") + "' AND DBDAY=6"rs7.CursorType = 0rs7.CursorLocation = 2rs7.LockType = 1rs7.Open()rs7_numRows = 0%><%Dim rs8__MMColParamrs8__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs8__MMColParam = Request.Form("TERMINAL")End If%>
<!--#include file="../Connections/LTL400TAF_ASP.asp" --><%Dim rs1__MMColParamrs1__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs1__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs1Dim rs1_numRowsSet rs1 = Server.CreateObject("ADODB.Recordset")rs1.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs1.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs1__MMColParam, "'", "''") + "' AND DBDAY=1"rs1.CursorType = 0rs1.CursorLocation = 2rs1.LockType = 1rs1.Open()rs1_numRows = 0%><%Dim rs2Dim rs2_numRowsSet rs2 = Server.CreateObject("ADODB.Recordset")rs2.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs2.Source = "SELECT TERMINAL FROM TERMLISTOD ORDER BY TERMINAL"rs2.CursorType = 0rs2.CursorLocation = 2rs2.LockType = 1rs2.Open()rs2_numRows = 0%><%Dim rs3__MMColParamrs3__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs3__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs3Dim rs3_numRowsSet rs3 = Server.CreateObject("ADODB.Recordset")rs3.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs3.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs3__MMColParam, "'", "''") + "' AND DBDAY=2"rs3.CursorType = 0rs3.CursorLocation = 2rs3.LockType = 1rs3.Open()rs3_numRows = 0%><%Dim rsTERM__MMColParamrsTERM__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rsTERM__MMColParam = Request.Form("TERMINAL")End If%><%Dim rsTERMDim rsTERM_numRowsSet rsTERM = Server.CreateObject("ADODB.Recordset")rsTERM.ActiveConnection = MM_LTL400TAF_ASP_STRINGrsTERM.Source = "SELECT GOAL, DBTERM FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rsTERM__MMColParam, "'", "''") + "' GROUP BY GOAL, DBTERM"rsTERM.CursorType = 0rsTERM.CursorLocation = 2rsTERM.LockType = 1rsTERM.Open()rsTERM_numRows = 0%><%Dim rs4__MMColParamrs4__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs4__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs4Dim rs4_numRowsSet rs4 = Server.CreateObject("ADODB.Recordset")rs4.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs4.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs4__MMColParam, "'", "''") + "' AND DBDAY=3"rs4.CursorType = 0rs4.CursorLocation = 2rs4.LockType = 1rs4.Open()rs4_numRows = 0%><%Dim rs5__MMColParamrs5__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs5__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs5Dim rs5_numRowsSet rs5 = Server.CreateObject("ADODB.Recordset")rs5.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs5.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs5__MMColParam, "'", "''") + "' AND DBDAY=4"rs5.CursorType = 0rs5.CursorLocation = 2rs5.LockType = 1rs5.Open()rs5_numRows = 0%><%Dim rs6__MMColParamrs6__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs6__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs6Dim rs6_numRowsSet rs6 = Server.CreateObject("ADODB.Recordset")rs6.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs6.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs6__MMColParam, "'", "''") + "' AND DBDAY=5"rs6.CursorType = 0rs6.CursorLocation = 2rs6.LockType = 1rs6.Open()rs6_numRows = 0%><%Dim rs7__MMColParamrs7__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs7__MMColParam = Request.Form("TERMINAL")End If%><%Dim rs7Dim rs7_numRowsSet rs7 = Server.CreateObject("ADODB.Recordset")rs7.ActiveConnection = MM_LTL400TAF_ASP_STRINGrs7.Source = "SELECT * FROM TAFWORK.DOCKBID18 WHERE DBTERM='" + Replace(rs7__MMColParam, "'", "''") + "' AND DBDAY=6"rs7.CursorType = 0rs7.CursorLocation = 2rs7.LockType = 1rs7.Open()rs7_numRows = 0%><%Dim rs8__MMColParamrs8__MMColParam = "1"If (Request.Form("TERMINAL") <> "") Then rs8__MMColParam = Request.Form("TERMINAL")End If%>
