<%@LANGUAGE="VBSCRIPT"%> <% UC_CartColNames=Array("Customername","ProductID","Quantity","Name","Price","Total") UC_ComputedCols=Array("","","","","","Price") set UCCart1=VBConstuctCart("UCCart",0,UC_CartColNames,UC_ComputedCols) UCCart1__i=0 %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next strUsername = Session("MM_Username") 'MM_editQuery = "insert into Tblcart " & MM_editTable & " wine_ID (''," & MM_dbValues & ",'" & strUsername & "','')" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% Dim Recordset1__MM_ColParam Recordset1__MM_ColParam = "1" if (Request.QueryString("Wine_ID") <> "") then Recordset1__MM_ColParam = Request.QueryString("Wine_ID") %> <% set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_Premier_STRING Recordset1.Source = "SELECT * FROM TblPriceList WHERE Wine_ID = " + Replace(Recordset1__MM_ColParam, "'", "''") + "" Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.Open() Recordset1_numRows = 0 %> <% set rsCart = Server.CreateObject("ADODB.Recordset") rsCart.ActiveConnection = MM_Premier_STRING rsCart.Source = "SELECT * FROM TblCart" rsCart.CursorType = 0 rsCart.CursorLocation = 2 rsCart.LockType = 3 rsCart.Open() rsCart_numRows = 0 %> <% ' *** Add item to UC Shopping cart UC_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then UC_editAction = UC_editAction & "?" & Request.QueryString End If UC_recordId = CStr(Request.Form("UC_recordId")) If (Request.Form("UC_recordId").Count = 1) Then set UC_rs=Recordset1 UC_uniqueCol="Wine_ID" UC_redirectPage = "shopping_checkout.asp" If (NOT (UC_rs is Nothing)) Then ' Position recordset to correct location If (UC_rs.Fields.Item(UC_uniqueCol).Value <> UC_recordId) Then ' reset the cursor to the beginning If (UC_rs.CursorType > 0) Then If (Not UC_rs.BOF) Then UC_rs.MoveFirst Else UC_rs.Close UC_rs.Open End If Do While (Not UC_rs.EOF) If (Cstr(UC_rs.Fields.Item(UC_uniqueCol).Value) = UC_recordId) Then Exit Do End If UC_rs.MoveNext Loop End If End If UC_BindingTypes=Array("FORM","FORM","FORM","FORM","FORM","NONE") UC_BindingValues=Array("User","ProductID","Quanity","Name","Price","") UCCart1.AddItem UC_rs,UC_BindingTypes,UC_BindingValues,"increment" ' redirect with URL parameters If (UC_redirectPage <> "") Then If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then UC_redirectPage = UC_redirectPage & "?" & Request.QueryString End If Call Response.Redirect(UC_redirectPage) End If End If %> Vintage french Wines and Fine wine Consultants Premier Cru offer Fine bordeaux wine as investments for your investment pensions and investment mortgage options. The benefits in investing in fine wine can be great.
Download a brochure
Member Login

Username:

Password:

Details of wine selected

Wine ID <%=(Recordset1.Fields.Item("Wine_ID").Value)%>
Chateau Name <%=(Recordset1.Fields.Item("Wine").Value)%>
Classe Description <%=(Recordset1.Fields.Item("Description").Value)%>
bordeaux Region <%=(Recordset1.Fields.Item("VineYard").Value)%>
Vintage Year <%=(Recordset1.Fields.Item("Year").Value)%>
Price £<%= FormatNumber((Recordset1.Fields.Item("Price").Value), 2, -2, -2, -2) %> per case
Cases in Stock <%=(Recordset1.Fields.Item("Stock").Value)%> case(s)
<% If Session("MM_Username")<> "" Then %> "> "> "> "> "> <%else%> <% If Session("MM_Username") = "" Then %>

We are currently updating our shopping facility.

If you wish to receive the latest information about our
Fine Wine for sale please click here: Register to receive wine list

<%End If%> <%End if%>

 

 

 

Investment Chart | View at full size
Wine Search








All Wines in their Original Wooden Case, no USA strips and are lying Under Bond in the UK and sold in cases of 12x75cl. bottles unless otherwise stated
Advisors of Fine Wine Investments
to Institutional Clients

Learn more here

Repayment product utilising the investment potential of Fine Wine. Mortgage payments are a considerable cost to a household, and homeowners are searching for ways to save money. Running an investment plan alongside an interest only mortgage can considerably reduce costs in the long term, and Premier Cru Fine Wine Investments believes that Fine Wine acts as an ideal investment vehicle for mortgage repayment.

Home | Terms & Conditions | Contact Us | Download a brochure