| |
<%
Response.ContentType = "application/vnd.ms-excel"%><%
'---------------------------------------------------------------------------
' The SQL below selects all the records from the Table Orders
'---------------------------------------------------------------------------
msql = "SELECT * FROM Orders Where Qty3 = '0' AND Product2 = 'ACCELRTR'"
Set RS=Conn.Execute(msql)
%>
| FirstName |
LastName |
Zip |
Address1 |
Address2 |
City |
State |
Phone |
EmailAddress |
ShipFirstName |
ShipLastName |
ShipAddress1 |
ShipAddress2 |
ShipCity |
ShipZip |
ShipPhone |
OrderDate |
ShipState |
SubTotal |
Shipping |
Tax |
Total |
Country |
PayType |
ShipRush |
Qty1 |
Qty2 |
Qty3 |
Product1 |
Product2 |
Product3 | <%Do While Not RS.EOF%>
| <%=RS("FirstName")%> |
<%=RS("LastName")%> |
<%=RS("Zip")%> |
<%=RS("Address1")%> |
<%=RS("Address2")%> |
<%=RS("City")%> |
<%=RS("State")%> |
<%=RS("Phone")%> |
<%=RS("EmailAddress")%> |
<%=RS("ShipFirstName")%> |
<%=RS("ShipLastName")%> |
<%=RS("ShipAddress1")%> |
<%=RS("ShipAddress2")%> |
<%=RS("ShipCity")%> |
<%=RS("ShipZip")%> |
<%=RS("ShipPhone")%> |
<%=RS("OrderDate")%> |
<%=RS("ShipState")%> |
<%=RS("SubTotal")%> |
<%=RS("Shipping")%> |
<%=RS("Tax")%> |
<%=RS("Total")%> |
<%=RS("Country")%> |
<%=RS("PayType")%> |
<%=RS("ShipRush")%> |
<%=RS("Qty1")%> |
<%=RS("Qty2")%> |
<%=RS("Qty3")%> |
<%=RS("Product1")%> |
<%=RS("Product2")%> |
<%=RS("Product3")%> | <%x=x+1
RS.MoveNext
Loop
RS.Close
Conn.Close
x=x+1
Set RS = Nothing
Set Conn = Nothing
%>
total <%= x%>
|
|
|
