<%@ LANGUAGE="VBSCRIPT" %> Search Results! <% Dim SqlJunk Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("SEARCH") SqlJunk = "SELECT * FROM PACKAGE" If Request.Form("TypeSearch") = "LADING" Then SqlJunk = SqlJunk & " WHERE LADING = '" & Request.Form("DaInBox") & "'" End If If Request.Form("TypeSearch") = "REFERENCE" Then SqlJunk = SqlJunk & " WHERE REFERENCE = '" & Request.Form("DaInBox") & "'" End If If Request.Form("TypeSearch") = "WINPRO" Then SqlJunk = SqlJunk & " WHERE WINPRO = '" & Request.Form("DaInBox") & "'" End If Set rsGlobalWeb = Server.CreateObject("ADODB.Recordset") rsGlobalWeb.Open SqlJunk, dbGlobalWeb, 3 %> <% If rsGlobalWeb.BOF and rsGlobalWeb.EOF Then%>

We did not find a match!

<%Else%> <%If Not rsGlobalWeb.BOF Then%>

Here are the results of your search:

<% Do While Not rsGlobalWeb.EOF %> <%If rsGlobalWeb("ADDRESS2")= "" Then %> <%Else %> <%End If %> <%If rsGlobalWeb("STATUS")= "" Then %> <%Else %> <%End If %> <% EXIT DO%> <% rsGlobalWeb.MoveNext Loop %>
SHIPPER NUMBER:

<%=rsGlobalWeb("LADING")%>

REFERENCE NUMBER:

<%=rsGlobalWeb("REFERENCE")%>

WINDSOR PRO:

<%=rsGlobalWeb("WINPRO")%>

CONSIGNEE:

<%=rsGlobalWeb("CONSIGNEE")%>

ADDRESS:

<%=rsGlobalWeb("ADDRESS1")%>

ADDRESS:

<%=rsGlobalWeb("ADDRESS2")%>

CITY:

<%=rsGlobalWeb("CITY")%>

STATE:

<%=rsGlobalWeb("STATE")%>

ZIP:

<%=rsGlobalWeb("ZIP")%>

PIECES:

<%=rsGlobalWeb("PIECES")%>

WEIGHT:

<%=rsGlobalWeb("WEIGHT")%>

DELIVERY STATUS:

<%=rsGlobalWeb("STATUS")%>

ARRIVAL DATE:

<%=rsGlobalWeb("RECVDATE")%>

DELIVERY DATE:

<%=rsGlobalWeb("DELDATE")%>

DELIVERY TIME:

<%=rsGlobalWeb("TIME")%>

SIGNED FOR BY:

<%=rsGlobalWeb("SIGN")%>

<%End If%> <%End If%> <% rsGlobalWeb.Close dbGlobalWeb.Close %>