Made in Colorado catalog - Colorado gifts in Pagosa Springs - colorado gift baskets, colorado foods, colorado crafts, colorado gifts, and colorado shirts in Pagosa Springs Colorado made by Colorado companies

<%=rsDepartment("Name")%>

<% Set rsSetup = objMICS.Execute( "Select * From Setup" ) strSecurePath = rsSetup( "SecureSiteURL" ) Set rsSetup = Nothing ' Set objRst = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT ID FROM Items Where Category = 0;" set objRst.ActiveConnection = objMICS objRst.LockType = adLockOptimistic objRst.CursorType = adOpenKeySet objRst.Open strSQL objRst.MoveLast cnt = objRst.RecordCount cnt1 = cnt rndMax = cnt If CInt(1) < cnt Then cnt1 = CInt(1) End If str = "," str1 = "," Do Until cnt1 = 0 Randomize RndNumber = Int(Rnd * rndMax) If (InStr(1, str1, "," & RndNumber & "," ) = 0) Then str1 = str1 & RndNumber & "," cnt1 = cnt1 - 1 objRst.MoveFirst objRst.Move RndNumber str = str & objRst("id") & "," End If Loop objRst.Close Set objRst = Nothing sql = "SELECT ID FROM Items WHERE (((InStr(1,'" & str & "',(',' & [id] & ',')))<>0)) " Set objRst = Server.CreateObject("ADODB.Recordset") set objRst.ActiveConnection = objMICS objRst.LockType = adLockOptimistic objRst.CursorType = adOpenKeySet objRst.Open sql ' Set rsItem = objMICS.Execute("Select * From Items Where ID = " & objRst("ID") & ";") %>

" alt="<%If Not IsNull(rsItem("Description")) Then%><%=Replace(Replace(rsItem("Description"),chr(34),"''"),"%"," %")%><%End If%>">
<%=rsItem("Name")%>
<%=FormatCurrency(rsItem("Price"))%>

<% Response.Write "<" & strPrimaryName & ">" If strPrimaryName = "Books" OR strPrimaryName = "Food" Then %>

<% Set rsCategories = objMICS.Execute("SELECT * FROM Items Where PrimaryID = " & Request("ItemID") & " AND Category = -1;") %>

Select Category
| <% Do While Not rsCategories.EOF %> "><%=rsCategories("Name")%> | <% rsCategories.MoveNext Loop rsCategories.Requery %>

<% Do While Not rsCategories.EOF strSQL = "Select * From Items Where CategoryID = " & rsCategories("ID") & ";" 'response.write strSQL Set rsBooks = objMICS.Execute(strSQL) If Not rsBooks.EOF Then %>
<% Do While Not rsBooks.EOF %> <% rsBooks.MoveNext Loop %>

"><%=rsCategories("Name")%>

Name Price Item# Qty
<%=rsBooks("Name")%> <%=FormatCurrency(rsBooks("Price"))%> <%=rsBooks("ProductID")%> " size="1">

<% End If Set rsBooks = Nothing rsCategories.MoveNext Loop %>

<% Else Set rsSubDepartments = objMICS.Execute("Select * From Items Where CategoryID = " & Request("ItemID") & ";") Do While Not rsSubDepartments.EOF %> "><%=rsSubDepartments("Name")%>

<% rsSubDepartments.MoveNext Loop Set rsSubDepartments = Nothing End If %>