<%@ Language=VBScript %> Made in Colorado - Shipping colorado gifts from Pagosa Springs - colorado gift baskets, colorado foods, colorado crafts, colorado gifts, and colorado shirts in Pagosa Springs Colorado made by Colorado companies <% 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" ) strShipText1 = rsSetup( "ShipText1" ) strShipText2 = rsSetup( "ShipText2" ) strShipText3 = rsSetup( "ShipText3" ) Set rsSetup = Nothing %>

 

<%=strShipText1%>

<%=strShipText2%>

<%=strShipText3%>

 

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 %>