| |
<%
StartDate = Request.Form("startdate")
StopDate = Request.Form("stopdate")
total = 0
%><%Response.ContentType = "application/vnd.ms-excel"%><%
msql = "SELECT * FROM Orders Where ((((Orders.OrderDate)<='" & stopdate & "' And (Orders.OrderDate)>='" & startdate & "' )) AND Product2 = 'ACCELRTR') ORDER BY Orders.OrderID ASC"
Set RS=Conn.Execute(msql)
%>
| OrderID |
Sent |
ShipState |
SubTotal |
Shipping |
Tax |
Total |
Country |
PayType |
ShipRush |
ShipCountry |
Qty1 |
Qty2 |
Qty3 |
Product1 |
Product2 |
Product3 |
Disposition |
CallSource |
CCType |
CCFName |
CCLName |
CCNumber |
CCEXP |
CDBank |
CDCity |
CDCheckNum |
CDNumbers |
FirstName |
LastName |
Zip |
Address1 |
Address2 |
City |
State |
Phone |
EmailAddress |
ShipFirstName |
ShipLastName |
ShipAddress1 |
ShipAddress2 |
ShipCity |
ShipZip |
ShipPhone |
OrderDate |
OrderTime |
OrderTaker | <%Do While Not RS.EOF%>
| <%=RS("OrderID")%> |
<%=RS("Sent")%> |
<%=RS("ShipState")%> |
<%=RS("SubTotal")%> |
<%=RS("Shipping")%> |
<%=RS("Tax")%> |
<%=RS("Total")%> |
<%=RS("Country")%> |
<%=RS("PayType")%> |
<%=RS("ShipRush")%> |
<%=RS("ShipCountry")%> |
<%=RS("Qty1")%> |
<%=RS("Qty2")%> |
<%=RS("Qty3")%> |
<%=RS("Product1")%> |
<%=RS("Product2")%> |
<%=RS("Product3")%> |
<%=RS("Disposition")%> |
<%=RS("CallSource")%> |
<%=RS("CCType")%> |
<%=RS("CCFName")%> |
<%=RS("CCLName")%> |
<%=RS("CCNumber")%> |
<%=RS("CCEXP")%> |
<%=RS("CDBank")%> |
<%=RS("CDCity")%> |
<%=RS("CDCheckNum")%> |
<%=RS("CDNumbers")%> |
<%=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("OrderTime")%> |
<%=RS("OrderTaker")%> | <%
RS.MoveNext
Loop
RS.Close
Conn.Close
Set RS = Nothing
Set Conn = Nothing
%>
|
|
|
