<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' UltraCart 3 ' Copyright (c) 2002 ~ 2004 Ottivacs Design All Rights Reserved. ' http://www.ottivacsdesign.com UC_xmlPath = Server.MapPath("CartInc/CartDefinition.xml") Set UltraCart = UltraCartVB("UltraCart", UC_xmlPath) UltraCart_i = 0 %> <% ' UltraCart 3 ' Empty Cart Via Link EmptyCart = CStr(Request.ServerVariables("URL")) & "?EmptyCart=1" If (CStr(Request.QueryString("EmptyCart")) = "1") Then UltraCart.Destroy() UltraCart.CleanRedirect("") End If %> <% Dim products__MMColParam products__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then products__MMColParam = Request("MM_EmptyValue") End If %> <% Dim products Dim products_numRows Set products = Server.CreateObject("ADODB.Recordset") products.ActiveConnection = MM_vvt_store_STRING products.Source = "SELECT * FROM tbl_product WHERE Display_Front_Page = " + Replace(products__MMColParam, "'", "''") + "" products.CursorType = 0 products.CursorLocation = 2 products.LockType = 1 products.Open() products_numRows = 0 %> <% Dim Welcome__MMColParam Welcome__MMColParam = "True" If (Request("MM_EmptyValue") <> "") Then Welcome__MMColParam = Request("MM_EmptyValue") End If %> <% Dim Welcome Dim Welcome_numRows Set Welcome = Server.CreateObject("ADODB.Recordset") Welcome.ActiveConnection = MM_vvt_store_STRING Welcome.Source = "SELECT * FROM frontpage_message WHERE Display = " + Replace(Welcome__MMColParam, "'", "''") + "" Welcome.CursorType = 0 Welcome.CursorLocation = 2 Welcome.LockType = 1 Welcome.Open() Welcome_numRows = 0 %> <% ' UltraCart 3 ' Form Action CartFormAction = Request.ServerVariables("URL") If Request.QueryString <> "" Then CartFormAction = CartFormAction & "?" & Request.QueryString End If %> <% ' UltraCart 3 ' Add To Cart Via Form AddToCartID0 = CStr(Request.Form("AddToCartID0")) If (AddToCartID0 <> "") Then Set adoRS = products uniqueCol = "CatalogueID" If (NOT (adoRS is Nothing)) Then ' Position recordset to correct location If (adoRS.Fields.Item(uniqueCol).Value <> AddToCartID0) Then ' reset the cursor to the beginning If (adoRS.CursorType > 0) Then If (Not adoRS.BOF) Then adoRS.MoveFirst Else adoRS.Close adoRS.Open End If Do While (Not adoRS.EOF) If (CStr(adoRS.Fields.Item(uniqueCol).Value) = AddToCartID0) Then Exit Do End If adoRS.MoveNext Loop End If End If bindingColumns = Array("ProductID","Name","Quantity","Price","Weight") 'RS,RS,FORM,RS,RS used by sb designer bindingValues = Array((adoRS.Fields.Item("CatalogueID").Value),(adoRS.Fields.Item("Title").Value),(Request.Form("Qty")),(adoRS.Fields.Item("RRP").Value),(adoRS.Fields.Item("Weight").Value)) adoRS.Close() Set adoRS = Nothing UltraCart.AddItem bindingColumns,bindingValues,true,"","" End If %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Welcome_numRows = Welcome_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 5 Repeat2__index = 0 products_numRows = products_numRows + Repeat2__numRows %> Welcome to Virtec Virtual Technology
.

.
..
.

Phone: (02) 4423 4694
Fax: (02) 4423 4137

Email Us!

After Hours Support
0410 510 840

Cnr Worrigee St & Nowra Ln
NOWRA NSW 2541

.

<% If Not Welcome.EOF Or Not Welcome.BOF Then %>
<% While ((Repeat1__numRows <> 0) AND (NOT Welcome.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Welcome.MoveNext() Wend %>
<%=(Welcome.Fields.Item("Date").Value)%>
<%=(Welcome.Fields.Item("Welcome Message").Value)%>
 
<% End If ' end Not Welcome.EOF Or NOT Welcome.BOF %>

 

<% While ((Repeat2__numRows <> 0) AND (NOT products.EOF)) %>
<%=(products.Fields.Item("Title").Value)%> - RRP $<%=(products.Fields.Item("RRP").Value)%>
" alt="" width="120" />
<%=(products.Fields.Item("Manufacturer").Value)%> - <%=(products.Fields.Item("Model").Value)%>
<%=(products.Fields.Item("ShortDescription").Value)%>
">
   
<% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 products.MoveNext() Wend %>


.
.Secure Transactions
.
.
Username:
Password:
Reset Password | New Account
.
.
<%=(UltraCart.GetColumnTotal("Quantity"))%> Item(s) in cart
Cart Total: $<%=(UltraCart.GrandTotal)%>
.
Empty Cart | View Cart
.

Copyright © 2007 Virtec Virtual Technology. All rights reserved.
All prices include GST. Delivery charges apply to all purchases unless otherwise specified.

<% products.Close() Set products = Nothing %> <% Welcome.Close() Set Welcome = Nothing %>