%@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
|
|
|
|
|
|
 |
|
|
|
| |
|
 |
 |
| Contact Wight Cars |
Please contact us.
| Tel: |
01983 297820 |
| Mob: |
07814 162517 |
Or write to us at:
3 Windmill Close
Cowes
Isle of Wight
PO31 7HA
|
|
|
Choose from:
Restored 1952
Triumph Renown for hire or Mercedes
E class 280 for hire. |
|
| 1952 Triumph Renown |
 |
Mercedes E class 280. |
 |
|
 |
|
|
|
|
|
| |
<%
Set objCart=Nothing
%>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>
<%
Recordset2.Close()
Set Recordset2 = Nothing
%>
<%
Products.Close()
%>