<%@ LANGUAGE="VBSCRIPT" %> Search Results! <% Dim SqlJunk Request.QueryString("PRONUM") Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("SEARCH") SqlJunk = "SELECT * FROM PACKAGE" SqlJunk = SqlJunk & " WHERE WINPRO = '" & Request.QueryString("PRONUM") & "'" 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("SIGN")= "" Then Else %> <%End If %> <%If rsGlobalWeb("OSDNUM")= "" Then Else %> <%End If %> <% 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")%>

ORDER RECEIVED DATE:

<%=rsGlobalWeb("ORDERDATE")%>

EXPECTED DELIVERY DATE:

<%=rsGlobalWeb("RECVDATE")%>

DELIVERY DATE:

<%=rsGlobalWeb("DELDATE")%>

DELIVERY STATUS:

<%=rsGlobalWeb("STATUS")%>

DELIVERY TIME:

<%=rsGlobalWeb("TIME")%>

SIGNED FOR BY:

<%=rsGlobalWeb("SIGN")%>

WINDSOR OSD NUMBER:

<%=rsGlobalWeb("OSDNUM")%>

OSD REMARKS:

<%=rsGlobalWeb("OSDREM")%>

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