<%@LANGUAGE="VBSCRIPT"%> <% Dim rsProducts Dim rsProducts_numRows Set rsProducts = Server.CreateObject("ADODB.Recordset") rsProducts.ActiveConnection = adoCon rsProducts.Source = "SELECT * FROM Stock WHERE Category='Item' ORDER BY ID ASC" rsProducts.CursorType = 0 rsProducts.CursorLocation = 2 rsProducts.LockType = 1 rsProducts.Open() rsProducts_numRows = 0 %> <% Dim rsBoxedProducts Dim rsBoxedProducts_numRows Set rsBoxedProducts = Server.CreateObject("ADODB.Recordset") rsBoxedProducts.ActiveConnection = adoCon rsBoxedProducts.Source = "SELECT * FROM Stock WHERE Category = 'Pack' ORDER BY ID" rsBoxedProducts.CursorType = 0 rsBoxedProducts.CursorLocation = 2 rsBoxedProducts.LockType = 1 rsBoxedProducts.Open() rsBoxedProducts_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsProducts_numRows = rsProducts_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 rsBoxedProducts_numRows = rsBoxedProducts_numRows + Repeat2__numRows %> Citadel Farms - Quality Fresh Meat

Order Form

Lamb will also be available soon. To get upto date information


register your interest here

<% While ((Repeat1__numRows <> 0) AND (NOT rsProducts.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsProducts.MoveNext() Wend %> <% While ((Repeat2__numRows <> 0) AND (NOT rsBoxedProducts.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 rsBoxedProducts.MoveNext() Wend %>
Order Form

First Name:

Surname:

House Name / Number:

Address Line 1:

Address Line 2:

County:

Postcode:

Telephone:

E-mail:

Product

Weight/Size

Price

Quantity

<%=(rsProducts.Fields.Item("Product").Value)%>

<%=(rsProducts.Fields.Item("Weight").Value)%>

<%=(rsProducts.Fields.Item("Price").Value)%>

" type="text" size="2" maxlength="4" value="0" />

<%=(rsBoxedProducts.Fields.Item("Product").Value)%>

<%=(rsBoxedProducts.Fields.Item("Weight").Value)%>

<%=(rsBoxedProducts.Fields.Item("Price").Value)%>

" type="text" value="0" size="2" maxlength="4" />

<%=(rsBoxedProducts.Fields.Item("Description").Value)%>

Alternatively Contact Us

<% rsProducts.Close() Set rsProducts = Nothing %> <% rsBoxedProducts.Close() Set rsBoxedProducts = Nothing %>