%@LANGUAGE="VBSCRIPT"%>
<%
Set objCart=new Cart
%>
<%
Dim Recordset1
Dim Recordset1_numRows
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_CharonCart_STRING
Recordset1.Source = "SELECT * FROM Content WHERE ContentID = 1"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows
Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_CharonCart_STRING
Recordset2.Source = "SELECT * FROM Pagedetails WHERE PagedetailID = 3"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()
Recordset2_numRows = 0
%>
<%
set Products = Server.CreateObject("ADODB.Recordset")
Products.ActiveConnection = MM_CharonCart_STRING
Products.Source = "SELECT * FROM Products WHERE Special=1"
Products.CursorType = 0
Products.CursorLocation = 2
Products.LockType = 1
Products.Open()
Products_numRows = 0
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = 2
Dim HLooper1__index
HLooper1__index = 0
Products_numRows = Products_numRows + HLooper1__numRows
%>
Wight cars beautiful cars for weddings on the Isle of Wight
|
 |
 |
Arrive in Style
with
Wight Cars
Quality & Service
for
Your Special Day
|
|
|
|
|
|
 |
|
|
|
| |
|
Our Beautful Cars
A selection of images of our cars |
|
|
| |
|
|
1952 Triumph Renown
|
|
|
 |
|
Lovingly restored 1952 Triumph Renown. |
| |
|
|
|
|
 |
|
| |
|
|
Mercedes E Class 280
|
|
|
|
|
Immaculate Mercedes E Class 280.
Gorgeous silver mercedes with dove grey leather interior. |
|
| |
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
| |
|
|
|
|
|
|
| |
<%
Set objCart=Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Products.Close()
%>