Register for Shopping

<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Redirect if username exists MM_flag="MM_insert" If (CStr(Request(MM_flag)) <> "") Then MM_dupKeyRedirect="shopping_duplicate.asp" MM_rsKeyConnection=MM_Premier_STRING MM_dupKeyUsernameValue = CStr(Request.Form("username")) MM_dupKeySQL="SELECT UserName FROM Tblclientlogon WHERE UserName='" & MM_dupKeyUsernameValue & "'" MM_adodbRecordset="ADODB.Recordset" set MM_rsKey=Server.CreateObject(MM_adodbRecordset) MM_rsKey.ActiveConnection=MM_rsKeyConnection MM_rsKey.Source=MM_dupKeySQL MM_rsKey.CursorType=0 MM_rsKey.CursorLocation=2 MM_rsKey.LockType=3 MM_rsKey.Open If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then ' the username was found - can not add the requested username MM_qsChar = "?" If (InStr(1,MM_dupKeyRedirect,"?") >= 1) Then MM_qsChar = "&" MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue Response.Redirect(MM_dupKeyRedirect) End If MM_rsKey.Close End If %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_Premier_STRING MM_editTable = "Tblclientlogon" MM_editRedirectUrl = "shopping_login.asp" MM_fieldsStr = "username|value|password|value|companyname|value|telephone|value|email|value|fax|value|address1|value|address2|value|city|value|select|value|postcode|value" MM_columnsStr = "UserName|',none,''|Password|',none,''|CompanyName|',none,''|Telephone|',none,''|Email|',none,''|Fax|',none,''|address1|',none,''|address2|',none,''|City|',none,''|Country|',none,''|PostCode|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** 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 MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" 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 %> Register for Shopping

Register to receive wine list

Fill in the form below to recieve PremierCru's exclusive wine list

Username:	This is the name you will login with
Password:	Your own unique password
Full Name:
Telephone:	Email:
Address:	City: Postcode: Country:

Investment Chart | View at full size

Wine Search

Chateau Name:

Select Classe:

Bordeaux Region: Vintage:

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