<% SubTotal = 0 postagetype = 0 Accessories7 = true if request.form("postagetype") <>"" then postagetype = CLng(request.form("postagetype")) elseif session("Postagetype")<>"" then postagetype = CLng(session("postagetype")) end if postageamount = request.form("postageamount") Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.Open productsDB Set DBConn2 = Server.CreateObject("ADODB.Connection") DBConn2.Open ordersDB Set rs = Server.CreateObject("ADODB.RecordSet") Set rs2 = Server.CreateObject("ADODB.RecordSet") randomize ((minute(now) * 60) + second(now)) if session("verificationid")="" then verificationid = request.cookies("ElectricAliceOrder")("verificationid") if verificationid="" then veridok = false do while veridok = false verificationid="" for j=1 to 20 verificationid=verificationid & chr(int(rnd * 26) + 65) next rs.open "SELECT * FROM TempOrders WHERE VerificationID='" & VerificationID & "'",DBConn2,1,3 if rs.eof then veridok = true end if rs.close loop session("verificationid") = VerificationID Response.Cookies("ElectricAliceOrder")("verificationid") = verificationid Response.Cookies("ElectricAliceOrder").Expires = dateAdd("d",2,Now()) else session("verificationid") = verificationid end if else VerificationID = session("verificationid") end if rs.open "SELECT SUM(ProductQuantity) as ProductCount FROM TempOrders WHERE VerificationID='" & VerificationID & "'",DBConn2,2,3 if not rs.eof then ProductCount = rs("ProductCount") end if rs.close Session("ItemCount") = ProductCount session("postagetype") = postagetype if ProductCount>6 then Accessories7 = false end if %> Electric Alice

Checkout

Below are your order details. To change the quantity of items you wish to order, return to the basket page. Once you are happy with your order, please complete the form below and proceed to choose your payment method.

<% j = 0 rs.open "SELECT * FROM TempOrders WHERE VerificationID='" & VerificationID & "'",DBConn2,2,3 do while not rs.eof j = j + 1 rs2.open "Select Category, Quantity from Products Where ProductCode='" & rs("ProductCode") & "'", DBConn,1,3 if not rs2.eof then MaxQuantity = rs2("Quantity") if Category<>"Accessories" then Accessories7 = false end if end if rs2.close %> <% ProductTotal = (rs("ProductPrice") * rs("ProductQuantity")) %> <% SubTotal = SubTotal + ProductTotal %> "> "> "> "> <% rs.movenext %> <% loop %> <% rs.close %> <% if Accessories7 = true then select case postagetype case 0: postageamount = AUpostage1 case 1: postageamount = NZpostage1 case 2: postageamount = USpostage1 case 3: postageamount = OTpostage1 end select else select case postagetype case 0: postageamount = AUpostage2 case 1: postageamount = NZpostage2 case 2: postageamount = USpostage2 case 3: postageamount = OTpostage2 end select end if %> <% Total = SubTotal + postageamount %>
Description Quantity Each Price
<%=rs("ProductName")%> - <%=rs("ProductColour")%> <%=rs("ProductQuantity")%> <%=FormatCurrency(rs("ProductPrice"),2)%><%=FormatCurrency(ProductTotal,2)%>
Subtotal <%=FormatCurrency(SubTotal,2)%>
Ship to  <%if postagetype=0 then postageAbbr="AU" %>Australia<%end if%> <%if postagetype=1 then postageAbbr="NZ"%>New Zealand<%end if%> <%if postagetype=2 then postageAbbr="US"%>United States<%end if%> <%if postagetype=3 then postageAbbr="OT"%>Other<%end if%> <%=FormatCurrency(postageamount,2)%>
Total<%=FormatCurrency(Total,2)%>
* includes GST of <%=FormatCurrency((Total/11),2)%>

 

We ship Australian packages using an overnight courier service. All International packages are shipped using Registered Post, which takes 3-10 business days and can be tracked. Please note that our shipping prices are a guideline, and if you place a heavy order we may have to request additional funds to accommodate your shipping, such as the mandatory $9 surcharge to all packages over 500 grams.
Thank you for understanding!
<%=Right("00" & Day(OurDate),2)%><%=Right("00" & Hour(OurDate),2)%><%=Right("00" & Minute(OurDate),2)%><%=Right("00" & Second(OurDate),2)%>"> Revise Order
<% set rs = nothing set rs2 = nothing DBConn.close DBConn2.close set DBConn = nothing set DBConn2 = nothing %>