<%
strWebPath = "http://" & Left((Request.ServerVariables("HTTP_Host") & Request.ServerVariables("Path_Info")),InStrRev((Request.ServerVariables("HTTP_Host") & Request.ServerVariables("Path_Info")),"/"))
strWebPath = Left(strWebPath,Len(strWebPath)-7)
strPath = Left(Request.ServerVariables("Path_Translated"),InStrRev(Request.ServerVariables("Path_Translated"),"\"))
strPath = Left(strPath,Len(strPath)-7)
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" )
strSalesTax = rsSetup("SalesTax")
Set rsSetup = Nothing
If IsEmpty(Session("OrderID")) Then
Session("OrderID") = Session.SessionID & Month(Date) & Day(Date) & Year(Date) & Hour(Time) & Minute(Time) & Second(Time)
objMICS.Execute("Insert Into Orders(OrderID,OrderDate) Values('" & Session("OrderID") & "','" & Date & "');")
Set rsCleanUp = objMICS.Execute("Select OrderID From Orders Where OrderDate < DateAdd('w','-1',Date()) AND Submitted = 0;")
Do While Not rsCleanUp.EOF
strSQL = "Delete * From OrderItems Where OrderID = '" & rsCleanUp("OrderID") & "';"
objMICS.Execute(strSQL)
strSQL = "Delete * From Orders Where OrderID = '" & rsCleanUp("OrderID") & "';"
objMICS.Execute(strSQL)
rsCleanUp.MoveNext
Loop
Set rsCleanUp = Nothing
End If
If Request("Submit") = "Add To Order" Then
strSQL = "Insert Into OrderItems(OrderID,Quantity,ItemID) Values('" & Session("OrderID") & "'," & Request("Quantity") & "," & Request("ItemID") & ");"
objMICS.Execute(strSQL)
End If
If Request("Submit") = "Add Items To Order" Then
For Each Item In Request.Form
If Left(Item,3) = "Qty" Then
If Not Request(Item) = "" AND Not IsNull(Request(Item)) Then
strSQL = "Insert Into OrderItems(OrderID,Quantity,ItemID) Values('" & Session("OrderID") & "'," & Request(Item) & "," & Replace(Item,"Qty","") & ");"
objMICS.Execute(strSQL)
End If
End If
Next
End If
If Request("GoTo") = "Home" Then
For Each Item In Request.Form
If Not Left(Item,8) = "Quantity" And Not Item = "GoTo" Then
Session(item) = Request(item)
End If
If Not Request("Same") = "ON" Then
Session("Same") = "OFF"
End If
Next
Response.Redirect(strWebPath & "default.asp")
ElseIf Request("GoTo") = "Shipping" Then
For Each Item In Request.Form
If Not Left(Item,8) = "Quantity" And Not Item = "GoTo" Then
Session(item) = Request(item)
End If
If Not Request("Same") = "ON" Then
Session("Same") = "OFF"
End If
Next
Response.Redirect(strWebPath & "shipping.asp")
ElseIf Request("GoTo") = "AboutUs" Then
For Each Item In Request.Form
If Not Left(Item,8) = "Quantity" And Not Item = "GoTo" Then
Session(item) = Request(item)
End If
If Not Request("Same") = "ON" Then
Session("Same") = "OFF"
End If
Next
Response.Redirect(strWebPath & "About_Us.asp")
ElseIf Request("GoTo") = "Catalog" OR Request("Submit") = "Continue Shopping" Then
For Each Item In Request.Form
If Not Left(Item,8) = "Quantity" And Not Item = "GoTo" Then
Session(item) = Request(item)
End If
If Not Request("Same") = "ON" Then
Session("Same") = "OFF"
End If
Next
Response.Redirect(strWebPath & "catalog.asp")
End If
If Request("GoTo") = "Submit Order" Then
strSQL = "Update Orders Set Name='" & Replace(Request("Name"),"'","''") & "',EmailAddress='" & Replace(Request("EmailAddress"),"'","''") & "',HomePhone='" & Replace(Request("HomePhone"),"'","''") & "',WorkPhone='" & Replace(Request("WorkPhone"),"'","''") & "',MailingAddress='" & Replace(Request("MailingAddress"),"'","''") & "',MailingCity='" & Replace(Request("MailingCity"),"'","''") & "',MailingState='" & Replace(Request("MailingState"),"'","''") & "',MailingZip='" & Replace(Request("MailingZip"),"'","''") & "',CCType='" & Replace(Request("CCType"),"'","''") & "',CCNumber='" & Request("CCNumber") & "',CCExpDate='" & Request("ExpDateMonth") & "/" & Request("ExpDateYear") & "' Where OrderID = '" & Session("OrderID") & "';"
objMICS.Execute(strSQL)
If Request("Same") = "On" Then
objMICS.Execute("Update Orders Set ShippingAddress='" & Replace(Request("MailingAddress"),"'","''") & "',ShippingCity='" & Replace(Request("MailingCity"),"'","''") & "',ShippingState='" & Replace(Request("MailingState"),"'","''") & "',ShippingZip='" & Replace(Request("MailingZip"),"'","''") & "' Where OrderID = '" & Session("OrderID") & "';")
Else
objMICS.Execute("Update Orders Set ShippingAddress='" & Replace(Request("ShippingAddress"),"'","''") & "',ShippingCity='" & Replace(Request("ShippingCity"),"'","''") & "',ShippingState='" & Replace(Request("ShippingState"),"'","''") & "',ShippingZip='" & Replace(Request("ShippingZip"),"'","''") & "' Where OrderID = '" & Session("OrderID") & "';")
End If
Response.Redirect(strSecurePath & "/OrderConfirm.asp")
End If
%>
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
<%
strSQL = "Select * From OrderItems Where OrderID = '" & Session("OrderID") & "' Order By ID;"
Set rsOrderItems = objMICS.Execute(strSQL)
If Request("Submit") = "Update Quantities" Then
For Each Item In Request.Form
If Not Left(Item,8) = "Quantity" And Not Item = "GoTo" Then
Session(item) = Request(item)
End If
If Not Request("Same") = "ON" Then
Session("Same") = "OFF"
End If
Next
Do While Not rsOrderItems.EOF
If CInt(Request("Quantity" & rsOrderItems("ID"))) = 0 Then
objMICS.Execute("Delete * From OrderItems Where ID = " & rsOrderItems("ID") & ";")
Else
objMICS.Execute("Update OrderItems Set Quantity = " & Request("Quantity" & rsOrderItems("ID")) & " Where ID = " & rsOrderItems("ID") & ";")
End If
rsOrderItems.MoveNext
Loop
rsOrderItems.ReQuery
End If
arrState1 = Split("AL,AK,AZ,AR,CA,CO,CT,DE,DC,FL,GA,HI,ID,IL,IN,IA,KS,KY,LA,ME,MD,MA,MI,MN,MS,MO,MT,NE,NV,NH,NJ,NM,NY,NC,ND,OH,OK,OR,PA,RI,SC,SD,TN,TX,UT,VT,VA,WA,WV,WI,WY",",")
arrState2 = Split("Alabama,Alaska,Arizona,Arkansas,California,Colorado,Connecticut,Delaware,District of Columbia,Florida,Georgia,Hawaii,Idaho,Illinois,Indiana,Iowa,Kansas,Kentucky,Louisiana,Maine,Maryland,Massachusetts,Michigan,Minnesota,Mississippi,Missouri,Montana,Nebraska,Nevada,New Hampshire,New Jersey,New Mexico,New York,North Carolina,North Dakota,Ohio,Oklahoma,Oregon,Pennsylvania,Rhode Island,South Carolina,South Dakota,Tennessee,Texas,Utah,Vermont,Virginia,Washington,West Virginia,Wisconsin,Wyoming",",")
Set rsTemp = objMICS.Execute("SELECT Sum(Quantity*(Select Price From Items Where ID = OrderItems.ItemID)) AS SubTotal FROM OrderItems WHERE OrderItems.OrderID='" & Session("OrderID") & "';")
If IsNull(rsTemp("SubTotal")) Then
intSubTotal = 0
Else
intSubTotal = rsTemp("SubTotal")
End If
Set rsTemp = Nothing
%>