<% 'Session.Timeout = 60 'Minutes Dim cn Dim rs Dim rsItems Dim rsShipment Dim strSQL Dim strSQLItems Dim strShipment dim i dim strHost Dim strPassword Dim txtPassword Dim txtUserID Dim rsPassword Dim ContainerNo 'txtPassword = CStr(trim(Request.Form("hidPassword") & "")) 'txtUserID = CStr(trim(Request.Form("hidUserID") & "")) 'ContainerNo = CStr(trim(Request.Form("ContainerNo") & "")) 'Response.write("
hidContainerNo =" & ContainerNo) Set cn = SERVER.CreateObject("ADODB.Connection") cn.ConnectionTimeout = 600 cn.Open "Shipment" strSQL = "SELECT DISTINCT ContainerNo FROM Shpts WHERE " & _ "(ContainerNo NOT IN (SELECT ContainerNo FROM Shpts WHERE Shpts.ReleaseListDate IS NOT NULL))" 'response.write("aici=" & strSQL) 'response.end 'strSQL = "SELECT ContainerNo FROM Shipment ORDER BY ContainerNo " 'strSQLItems = "SELECT FileNo FROM Shpts UNION SELECT FileNoSub FROM ShptsSub ORDER BY FileNo " 'strShipment = "SELECT * FROM Shipment, Shpts WHERE ( Shipment.ContainerNo = Shpts.ContainerNo ) AND ( trim(right(Ucase(Shpts.FileNo), 8)) = '" & trim(right(Ucase(txtFileNo), 8)) & "' ) " 'strShipment = "SELECT ContaineNo FROM Shipment, Shpts WHERE ( Shipment.ContainerNo = Shpts.ContainerNo ) AND ( trim(right(Ucase(Shpts.FileNo), 8)) = '" & trim(right(Ucase(txtFileNo), 8)) & "' ) " 'strShipment = "SELECT ContaineNo FROM Shpts WHERE ( Shpts.FileNo = FileNo)" ' Shpts.ContainerNo ) AND ( trim(right(Ucase(Shpts.FileNo), 8)) = '" & trim(right(Ucase(txtFileNo), 8)) & "' ) " 'strShipment = "SELECT ContaineNo FROM Shpts WHERE ( Shpts.FileNo = FileNo)" 'response.write("aici=" & strShipment) set rs = cn.Execute (strSQL) 'set rsItems = cn.Execute (strSQLItems) 'set rsShipment = cn.Execute(strShipment) %>
                               
          670 Orly Tel: (514) 633-6336
          Dorval (Quebec)  Fax: (514) 633-6666
          Canada - H9P 1E9  E-Mail: translist@listransport.ca
ADMINISTRATION
  |HOME|  |HELP|  |AIDE| 
Release Change Password
Change Data  View Archive
Please enter your / Veuillez entre votre:
User ID. ID Utilisateur 
Password Mot de passe