<%@ Language=VBScript %> Colorado gifts - Made in Colorado - Pagosa Springs Colorado shop - colorado gift baskets, colorado foods, colorado crafts, colorado gifts, and colorado shirts in Pagosa Springs, Colorado made by Colorado companies [an error occurred while processing this directive] <% strWebPath = "http://" & Left((Request.ServerVariables("HTTP_Host") & Request.ServerVariables("Path_Info")),InStrRev((Request.ServerVariables("HTTP_Host") & Request.ServerVariables("Path_Info")),"/")) strPath = Left(Request.ServerVariables("Path_Translated"),InStrRev(Request.ServerVariables("Path_Translated"),"\")) strDatabase = strPath & "_Database\MadeInColorado.mdb" Set objMICS = Server.CreateObject( "ADODB.Connection" ) objMICS.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & strDatabase Set rsSetup = objMICS.Execute( "Select * From Setup" ) strBackground = rsSetup( "Background" ) strFooter1 = rsSetup( "Footer1" ) strFooter2 = rsSetup( "Footer2" ) strFooter3 = rsSetup( "Footer3" ) strHomeText1 = rsSetup( "HomeText1" ) strHomeText2 = rsSetup( "HomeText2" ) strHomeImage1 = rsSetup( "HomeImage1" ) strHomeImage2 = rsSetup( "HomeImage2" ) strSecurePath = rsSetup( "SecureSiteURL" ) Set rsSetup = Nothing %>
<% Set rsItem=objMICS.Execute("Select * From Items Where ID = " & Request("ItemID") & ";") %>

<%=rsItem("Name")%>

 

Search For:
" style="font-size: 10px">
*Age:
" style="font-size: 10px">
Gender:
*Price Range:
$" style="font-size: 10px"> - $" style="font-size: 10px">
*Optional
<% If Trim(rsItem("Description")) = "" OR IsNull(rsItem("Description")) Then Response.Write "No
Description
Available" Else Response.Write rsItem("Description") End If %>

<%=FormatCurrency(rsItem("Price"))%> 

Qty:
">

">
 

Made in Colorado home | Colorado Gift Baskets | About Colorado Gifts Made in Colorado

©Copyright 2001-2002 - Made In Colorado Shoppe

For more information on Pagosa Springs, click here.

<%=StrFooter1%>
<%=StrFooter2%>
<%=StrFooter3%>
Website Creation by Tommy

<% Dim rsNameCheck Dim rsNameHit Set rsNameCheck = objMICS.Execute( "Select Count(Name) As Checker From Counters Where Name = '" & Request.ServerVariables( "URL" ) & Request( "CategoryID" ) & Request( "ItemID" ) & "';" ) If rsNameCheck( "Checker" ) < 1 Then objMICS.Execute( "Insert Into Counters(Name,Hits,StartDate) Values('" & Request.ServerVariables( "URL" ) & Request( "CategoryID" ) & Request( "ItemID" ) & "',1,'" & Date & "');" ) Set rsNameHit = objMICS.Execute( "Select Hits,StartDate From Counters Where Name = '" & Request.ServerVariables( "URL" ) & Request( "CategoryID" ) & Request( "ItemID" ) & "';" ) intHit = rsNameHit( "Hits" ) strStartDate = rsNameHit( "StartDate" ) Set rsNameHit = Nothing Else Set rsNameHit = objMICS.Execute( "Select Hits,StartDate From Counters Where Name = '" & Request.ServerVariables( "URL" ) & Request( "CategoryID" ) & Request( "ItemID" ) & "';" ) intHit = rsNameHit( "Hits" ) + 1 objMICS.Execute( "Update Counters Set Hits = " & intHit & " Where Name = '" & Request.ServerVariables( "URL" ) & Request( "CategoryID" ) & Request( "ItemID" ) & "';" ) strStartDate = rsNameHit( "StartDate" ) Set rsNameHit = Nothing End If Set rsNameCheck = Nothing %>