<%@ Language="VBScript"%> <% If Request("OrderId")<>"" Then session("Orderid")=request("OrderId") Session("Userid")=Request("Userid") session("UserType")=Request("userType") session("blnValidUser")=Request("blnValidUser") Session.Timeout=60 End If %> Blueolivegifts
Customer Service
1-888-245-0148
Gift Boxes  
Home
About Us
FAQ's
Shopping Bag
CORPORATE GIFTS GROOMSMEN GIFTS SHOP BY PRICE GIFTS UNDER $30 CONTACT US
<%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