|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/windsorweb/ |
Upload File : |
<%@ LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Search Results!</title>
</head>
<body>
<%
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%>
<h2 align="center">We did not find a match!</h2>
<%Else%>
<%If Not rsGlobalWeb.BOF Then%>
<h2>Here are the results of your search:</h2>
<%
Do While Not rsGlobalWeb.EOF
%>
<table border="5" width="100%">
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>ORDER NUMBER:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=Request.Form("DaInBox")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>WINDSOR PRO:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("WINPRO")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>CONSIGNEE:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("CONSIGNEE")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>ADDRESS:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("ADDRESS1")%> </font></strong></td>
</tr>
<tr>
<%If rsGlobalWeb("ADDRESS2")>= "" Then %>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>ADDRESS:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("ADDRESS2")%> </font></strong></td>
</tr>
<tr>
<%End If %>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>CITY:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("CITY")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>STATE:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("STATE")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>ZIP:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("ZIP")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>PIECES:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("PIECES")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>WEIGHT:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("WEIGHT")%> </font></strong></td>
</tr>
<tr>
<%If rsGlobalWeb("STATUS")= "" Then %>
<%Else %>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>DELIVERY STATUS:</strong></font></td>
<td width="50%"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("STATUS")%> </font></strong></td>
</tr>
<tr>
<%End If %>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>ARRIVAL DATE:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("RECVDATE")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>DELIVERY DATE:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("DELDATE")%> </font></strong></td>
</tr>
<tr>
<td width="35%" bgcolor="#0000FF" align="right"><font color="#FFFFFF"
face="Times New Roman"><strong>DELIVERY TIME:</strong></font></td>
<td width="50%" height="21"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("TIME")%> </font></strong></td>
</tr>
<tr>
<%If rsGlobalWeb("SIGN")= "" Then
Else %>
<td width="35%" bgcolor="#0000FF" align="right" height="19"><font color="#FFFFFF"
face="Times New Roman"><strong>SIGNED FOR BY:</strong></font></td>
<td width="50%" height="19"><p align="center"><strong><font face="Times New Roman"><%=rsGlobalWeb("SIGN")%> </font></strong></td>
</tr>
<tr>
<%End If %>
<% EXIT DO%>
<% rsGlobalWeb.MoveNext
Loop
%>
</tr>
</table>
<%End If%>
<%End If%>
<%
rsGlobalWeb.Close
dbGlobalWeb.Close
%>
</body>
</html>