TTSYS

<%@ LANGUAGE = "VBScript" %> <% If Session("DealerID")="" Then Response.Redirect "dealers.asp?ec=1" If Session("MySessionID")="" Then Call CreateSession("") Dim RSC, TempRec, OptValue, RCount, SubRec, ErrorMsg, BGColor, X, ProductID, PriceRec set RSC = Server.CreateObject("ADODB.Connection") RSC.Open "TransTech","ttsys","jeffy012016" set SubRec = Server.CreateObject("ADODB.Recordset") set TempRec = Server.CreateObject("ADODB.Recordset") ' determine if we need to add an item to the cart If Trim(Request("add"))<>"" and IsNumeric(Request("add")) Then ProductID=CLng(Request("add")) set PriceRec = Server.CreateObject("ADODB.Recordset") Call AddToCart(RSC,ProductID,1,DealerPrice(RSC,PriceRec,Session("DealerID"),ProductID)) ElseIf Request("action")="remove" and IsNumeric(Request("pid")) Then Call RemoveCart(RSC,Request("pid"),0) ElseIf Request("action")="update" Then For X=1 to Request.Form("pid").Count Call ChangeCart(RSC,Request("pid")(X),Request("qty")(X)) Next Call RecalcPricing(RSC) End If Response.Expires=-1 %> TTSYS

Shop | Shopping Cart

SEARCH
Advanced Search

"> <% If Request("ec")=1 Then Response.Write "

This site requires the use of cookies to keep track of items in your " & _ "cart. It appears that you do not have cookies enable in your browser. " & _ "Please enable cookies and then add items to your cart.

" End If %> <% RCount=0 CurColor="#dddddd" TempRec.Open "select c.ProductID,c.Quantity,c.UnitPrice,p.Name,p.Model,p.PartNo from Cart c " & _ ",Products p where c.SessionID=" & Session("MySessionID") & _ " And p.ID=c.ProductID order by p.Model", RSC, adOpenStatic, adLockReadOnly, adCmdText Do While Not TempRec.EOF RCount=RCount+1 Price=Round(TempRec("UnitPrice"),2) BTotal = BTotal + (TempRec("Quantity") * Price) If CurColor="#ffffff" Then CurColor="#dddddd" Else CurColor="#ffffff" If RCount=1 Then Response.Write "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" & _ "" End If %> <% TempRec.MoveNext Loop TempRec.Close If RCount > 0 Then %>

Remove	New Qty	Part#	Model	Item	Qty	Price	Total
&cid=<%=Request("cid")%>">	">">	<%=TempRec("PartNo")%>	<%=TempRec("Model")%>	<%=TempRec("Name")%>	<%=TempRec("Quantity")%>	<%=FormatCurrency(Price,2)%>	<%=FormatCurrency(Round(TempRec("Quantity")*Price,2),2)%>
				Sub-Total:			<%=FormatCurrency(BTotal,2)%>

<% Else ' if the cart is empty, then clear out the used discount codes Session("UsedCodes")="" Response.Write "" End If %>

Click the Checkout button below to submit your order to TransTech Systems.

<% If Request("cid") <> "" And IsNumeric(Request("cid")) Then Response.Write "" Else Response.Write "" End If %>

" & _ " Your Shopping Cart Is Empty.

Web Builders