Information Exchange - Create Order

<% Session.Timeout = 60 %> <% Dim rsStates set rsStates = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM StateTbl Order by StateCode;" rsStates.Open strSQL, objConn %> <% End If rsItems.Close set rsItems= nothing '''''''''''''''''''''''''''''''End Item Table''''''''''''''''''''''''''''''''''''''''''' rsBasket.MoveNext Loop rsBasket.Close set rsBasket = nothing set rsShipRate = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM ShipRateTbl " & _ "WHERE LowWeight <= " & intTotalWeight & " AND HighWeight >= " & intTotalWeight & ";" rsShipRate.Open strSQL, objConn If rsShipRate.EOF Then intShippingCost = 0 Else rsShipRate.MoveFirst intShippingCost = rsShipRate("ShipRate") End If rsShipRate.Close set rsShipRate = nothing If Request("SalesTax") = Null or Request("SalesTax") = "" Then intSalesTax = 0.0 Else intSalesTax = Request("SalesTax") End If intSalesTaxTotal = intItemSubTotal * (intSalesTax * .01) intGrandTotal = intItemSubTotal + intShippingCost + intSalesTaxTotal %>

<% If Request("InvalidQtys") = "True" then Response.Write "

" Response.Write "You must enter a quantity for at least one item to submit an order.
" Response.Write "

" End If %>

Welcome to the Information Exchange ordering page!

For a complete description of all items and to select an item for purchase, click the "Resources" button on the left.

Previews and Guarantee

Previews are handled as any other purchase and all purchases come with our 30 day guarantee. If you are not completely satisfied with any item for any reason, you may return it within 30 days for a full refund, exchange or credit.

To place your order by Mail, Fax or Phone click here.

To check out our new Group Discount Purchasing "electronic buyers co-op" click here.

Below are the items that you have selected to order:

<% Dim rsCustomerID, rsBasket, rsItems, intItemID, intTotalWeight, intQty, intSalesTax, intSalesTaxTotal, intItemTotal, strItemTotal Dim intItemSubTotal, strItemSubTotal, intGrandTotal, intDiscount intTotalWeight = 0 intItemSubTotal = 0 Session("CustomerID") = Request("CustomerID") '''''''''''''''''''''''''''''Begin Basket Table'''''''''''''''''''''''''''''''''''''''' set rsBasket = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM BasketTbl " & _ " WHERE CustomerID = " & Session("CustomerID") & _ " ORDER BY ItemID;" rsBasket.Open strSQL, objConn If rsBasket.EOF Then ' Basket is Empty rsBasket.Close set rsBasket = nothing Response.Write "

Item

Quantity

Unit
Price

Quantity
Discount

Total
Item
Price

" Response.Write "

" Response.Write "
Your Basket is Empty.
" Response.Write "

" Response.Write "

" Else Do While Not rsBasket.EOF '''''''''''''''''''''''''''''Begin Item Table'''''''''''''''''''''''''''''''''''''''' set rsItems = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM ItemTbl " & _ " WHERE ItemID = " & TRIM(rsBasket("ItemID")) & ";" rsItems.Open strSQL, objConn If Not rsItems.EOF Then intQty = rsBasket("Qty") intDiscount = 0 '''''''''''''''''''''''''''''Begin Item Discount Table'''''''''''''''''''''''''''''''''''''''' Set rsItemDiscTbl= Server.CreateObject ("ADODB.Recordset") strSQL = "SELECT * FROM ItemDiscTbl" & _ " WHERE (ItemID = " & TRIM(rsBasket("ItemID")) & ")" & _ " ORDER BY MinQty;" rsItemDiscTbl.Open strSQL, objConn If Not rsItemDiscTbl.EOF Then rsItemDiscTbl.MoveFirst intMinDisc = rsItemDiscTbl("Discount") End If Do While Not rsItemDiscTbl.EOF If (intQty <= rsItemDiscTbl("MaxQty")) And (intQty >= rsItemDiscTbl("MinQty")) Then intDiscount = (rsItemDiscTbl("Discount")) ' Determine the % of Discount End If rsItemDiscTbl.MoveNext Loop ' Close Recordset rsItemDiscTbl.close set rsItemDiscTbl= nothing If intDiscount = 0 Then intItemDisc = 0 Else intItemDisc = intDiscount End If '''''''''''''''''''''''''''''''End Discount Table''''''''''''''''''''''''''''''''''''''''''' intDiscountPrice = rsItems("ItemPrice") - (rsItems("ItemPrice") * (intItemDisc / "100")) ' Determine the Discount price intTotalPrice = intQty * intDiscountPrice intItemSubTotal = intItemSubTotal + intTotalPrice intTotalWeight = intTotalWeight + (intQty * rsItems("ItemWeight")) %>

<%=rsItems("ItemName")%>

<%=rsBasket("Qty")%>

<%=FormatCurrency(rsItems("ItemPrice"))%>

<%=intItemDisc%>%

<%=FormatCurrency(intTotalPrice)%>

Product Sub Total

<%=FormatCurrency(intItemSubTotal)%>

Shipping Total

<%=FormatCurrency(intShippingCost)%>

Add appropriate sales tax (CA only)

<%=intSalesTax%>%

<%=FormatCurrency(intSalesTaxTotal)%>

TOTAL AMOUNT OF ORDER

<%=FormatCurrency(intGrandTotal)%>

* Required Fields
If Shipping Total is $0.00, call the Information Exchange for shipping Cost.

*First Name:

*Last Name:

*E-mail:
*Organization:

Billing Address:

*Street Address:

*City:

*State:

*Zip Code:

Shipping Address (if different than above):

Street Address:

City:

State:

Zip Code:

*Phone No:

Fax No:

Method of Payment

Purchase Order#:		(for gov't and public agencies only)

VISA

M/C

Card#:

Exp Date (MM/YY):

Name as it appears on Credit Card:

<% End If %>

<% objConn.Close set objConn = nothing %>