<%@ LANGUAGE="VBSCRIPT" %> Search Results! <% Dim SqlJunk Dim Pronum Dim Conn, cStr, sql, RS Set Conn = Server.CreateObject("ADODB.Connection") cStr = "DRIVER={Microsoft Access Driver (*.mdb)};" cStr = cStr & "DBQ=" & Server.MapPath("search\winpro1.mdb") & ";" Conn.Open(cStr) If Request.Form("TypeSearch") = "LADING" Then sql = "select WINPRO from LADINGSS" & " WHERE LADING = '" & Request.Form("DaInBox") & "'" Set RS = Conn.Execute(sql) If RS.BOF And RS.EOF Then Else pronum=RS("WINPRO") RS.Close End If End If Set dbGlobalWeb = Server.CreateObject("ADODB.Connection") dbGlobalWeb.Open("SEARCH") SqlJunk = "SELECT * FROM PACKAGE" If Request.Form("TypeSearch") = "LADING" Then SqlJunk = SqlJunk & " WHERE LADING = '" & pronum & "'" 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 %> <%End If %> <%If rsGlobalWeb("STATUS")= "" Then %> <%Else %> <%End If %> <%If rsGlobalWeb("SIGN")= "" Then Else %> <%End If %> <% EXIT DO%> <% rsGlobalWeb.MoveNext Loop %>
ORDER NUMBER:

<%=Request.Form("DaInBox")%>

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 %>