<%If Session("subscriber") <> "" Then%> <%End If%>
 
href="membersauthenticated.asp"<%Else%>href="members.asp"<%End If%> onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('membersonly','','images/nav1_membersonly2.gif',1)">
 

More than a decade has gone by since our concern for the environment and enjoyment of bringing new ideas to friends and acquaintances led us to Orange Glo products. We dedicated ourselves to spreading the good news that you can have a clean home and personally become involved in creating a more sustainable world by using fewer chemicals. After all, we change the world every time we buy a product.

Times have changed and so have we. Orange Glo is now a household word. In the spirit that we started with, Orange Glo Northwest is now GoGlo Home Products. We will continue to bring you the best of the best when it comes to new, healthier, cost effective ways to clean. We are constantly on the look out for better, sustainable products to make your life easier, healthier and safer. As you look through our site, you can be confident that the multitude of new products are the very best, the safest to use, and the companies that make these products have a commitment to create a more sustainable world.

In addition, we have added many new products to help you create the living space you want including original art works, ink jet refill kits, and home & garden products that are both fun and practical. Enjoy shopping on our secure site and drop me a line with questions or comments at bob@GoGlo.com.


Orders shipped within 2-3 days.

 
<% Dim iPID, iPDID Dim sPrice Dim bExist Set rsSpecial = Server.CreateObject("ADODB.Recordset") rsSpecial.CursorLocation = adUseClient sql = "SELECT pdPID, pdID, pdPrice FROM ProductDetails WHERE pdSpecial=1" rsSpecial.Open sql, db, adOpenStatic, adLockReadOnly, adCmdText If Not rsSpecial.EOF Then bExist = true Dim upperlimit, lowerlimit, which upperlimit = rsSpecial.RecordCount - 1 lowerlimit = 0 Randomize which = Int((upperlimit - lowerlimit + 1)*Rnd() + lowerlimit) rsSpecial.Move which, 1 iPDID = rsSpecial("pdID") iPID = rsSpecial("pdPID") sPrice = rsSpecial("pdPrice") Else bExist = false End If %>

 

 
<% If bExist Then rsSpecial.Close sql = "SELECT prodID, prodCat, prodName, prodShortDesc, prodThumb FROM Products WHERE prodID="&iPID rsSpecial.Open sql, db, adOpenStatic, adLockReadOnly, adCmdText %> &id=<%=rsSpecial("prodID")%>" class="prodtitle"><%=rsSpecial("prodName")%>
<%=rsSpecial("prodShortDesc")%>

Price: <%=FormatCurrency(sPrice)%>

&id=<%=rsSpecial("prodID")%>">more »

<% End If %>
<% If bExist Then %>&id=<%=rsSpecial("prodID")%>">" border="0"><% End If %>
   
 
"> Subscribe to our e-Newsletter and hear about our monthly specials and event updates..

EMAIL ADDRESS:
 
<% Set rsTestimonial = Server.CreateObject("ADODB.Recordset") sql = "SELECT TOP 1 tlID, tlName, tlQuote " &_ " FROM Testimonials ORDER BY NEWID()" rsTestimonial.Open sql, db, adOpenStatic, adLockReadOnly, adCmdText %>
 
<% If len(rsTestimonial("tlQuote")) > 250 then response.write(left(rsTestimonial("tlQuote"),250)&"...") else response.write(rsTestimonial("tlQuote")) end if response.write("
"& rsTestimonial("tlName")) %>
 
 
Join now and access members only area. Send us an email or click here to for a sign up form etc.

EMAIL ADDRESS:
 
PASSWORD: