Blueolivegifts

Customer Service
1-888-245-0148

Home

<%If Session("blnValidUser")="" then%>

<%Else%>

<%End if%>

Cigar Cases

Mugs

Pilsner Glasses

Key Chains

Money Clips

Gift Boxes

CD Cases

Champagne Glasses

Shot Glasses

Bottle Shakers

Pocket Flasks

Bottle Stoppers

Lighters

Pocket Knives / Tools

Cufflinks

Watches and Clocks

Children’s Gifts

Shop by Gift Ideas

• The Executive
• The Cigar Lover
• The Golfer
• The Traveler
• The Handyman
• Wine Afficienado
• The Baseball Fan
• Party Guy
• Beer Lover
• Boys

Shop by Price

• $19.99 and under
• $20.00 to $24.99
• $25.00 to $29.99
• $30.00 to $39.99
• $40.00 and above

Shopping Cart

<%Dim strSql,rsCart,iSubTotal,i, msg i=1 iCount=0 msg="" If Session("OrderID")="" then msg="There are no items in your cart." End If Set rsCart=Server.CreateObject("ADODB.Recordset") If msg="" Then strSql="Select * from tblCart where OrderID="&Session("OrderID")&";" rsCart.CursorLocation=3 rsCart.Open strSql,objConn,2,2 iCount=rsCart.RecordCount End if%>

<% If msg="" Then If rsCart.Eof then msg = "There are no items in your cart." End If End If%> <%If trim(Request("msg")) <> "" OR trim(Request("notnum")) <> "" Or trim(Request("Neg")) <> "" Or trim(Request("invalidQ")) <> "" Or trim(Request("ex")) <> "" then%> <%End if%> <%If msg="" Then%> <%End If%> <% If rsCart.State<>0 Then rsCart.Close objConn.Close Set rsCart=Nothing Set objConn= Nothing%> <%If msg="" Then%> <%End If%>

<%Response.write Request("msg") If Request("notnum")="True" then Response.write "Quantity should be Numeric!" Elseif Request("Neg")="True" then Response.write "Quantity should not be Negative!" Elseif Request("invalidQ")="True" then Response.write "Quantity should be greater than zero!" Elseif request("ex")="True" then Response.write "Enter valid quantity please." End if%>

There are <%=iCount%> items in your cart

<%If msg<>"" Then%> <%Else%> <%Do while not rsCart.Eof iSubTotal=cDbl(rsCart("Cost") * rsCart("Qty"))%> <%iTotal=cDbl(iTotal + iSubTotal) i=i+1 rsCart.MoveNext Loop %> <%End If%>

	Name	Image	Qty	Cost	Sub Total
<%=msg%>
" value="<%=rsCart("RowID")%>">	"><%=trim(rsCart("GiftName"))%>	" width="50" height="50">	size="3" maxlength="3" class="textfield" value="<%=trim(rsCart("Qty"))%>">	<%=FormatCurrency(trim(rsCart("Cost")))%>	<%=FormatCurrency(iSubTotal)%>	')">View Engrave Info

Total : <%=FormatCurrency(iTotal)%>

About Us • Order/Shipping Info • Return Poilcy • Contact Us

• Privacy Policy • Site Map • Links

Sign up to receive emails packed with gift ideas and promotional offers


Copyright © 2005 Blue Olive Gifts. All Rights Reserved.