<%@LANGUAGE="VBSCRIPT"%> <% 'This opens the database and pulls in all of the right colors for the page Dim DatabaseInfo, i Dim arrColors(18,5) Set DatabaseInfo = Server.CreateObject("ADODB.Recordset") DatabaseInfo.ActiveConnection = MM_Products_STRING DatabaseInfo.Source = "SELECT * FROM Colors ORDER BY Color ASC" DatabaseInfo.CursorType = 0 DatabaseInfo.CursorLocation = 2 DatabaseInfo.LockType = 1 DatabaseInfo.Open() For i = 0 To 17 arrColors(i, 0) = DatabaseInfo("Color") arrColors(i, 1) = DatabaseInfo("Dark") arrColors(i, 2) = DatabaseInfo("Light") arrColors(i, 3) = DatabaseInfo("Text_n_Borders") arrColors(i, 4) = DatabaseInfo("Accent") arrColors(i, 5) = DatabaseInfo("Inverse") DatabaseInfo.MoveNext() Next DatabaseInfo.Close() DatabaseInfo.Source = "SELECT * FROM Colors WHERE Color='Diet Bracelets'" DatabaseInfo.Open() %> DietBracelets.com - Shop for Diet Bracelets and Diet Watches " link="#<%=DatabaseInfo("Accent")%>" alink="#<%=DatabaseInfo("Accent")%>" vlink="#<%=DatabaseInfo("Accent")%>" bgcolor="#<%=DatabaseInfo("Light")%>">
   
 
 
  WORLDWIDE Shipping JUST $2 Per Order

Now You Can Wear a Diet Reminder

Our Unique Sliding Bead Diet Bracelet - the Beads Stay in Place

Keep track of Anything:

  • Fat Grams
  • Carb Grams
  • Glasses of Water
  • Laps around the Track
  • Calories (one bead per 100 calories)


    • You choose the Number !!!

    Just Click on Any Color to Start Shopping for your Bracelet.

 
<% DatabaseInfo.Close() Set DatabaseInfo = Nothing %>