Country House and Hotel Weddings Venues, Services and Reception

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> Country House and Hotel Weddings Venues, Services and Reception

	enquiries@yourweddingvenue.co.uk

Username

Password

Any redistribution or reproduction of part or all of the contents in any form is prohibited other than the following:

you may print or download to a local hard disk extracts for your personal and non-commercial use only
you may copy the content to individual third parties for their personal use, but only if you acknowledge the website as the source of the material

You may not, except with our express written permission, distribute or commercially exploit the content. Nor may you transmit it or store it in any other website or other form of electronic retrieval system.

Featured Venues

<% Dim RSFV, SQLFV, FeaturedVenue, Expiry Set RSFV = Server.CreateObject("ADODB.Recordset") SQLFV = "SELECT Venues.*, Counties.* FROM featuredVenues INNER JOIN (Venues INNER JOIN Counties ON Venues.CountyID = Counties.CountyID) ON featuredVenues.venue_id = Venues.VenueID" RSFV.Open SQLFV, CN, 3, 2 While Not RSFV.EOF 'If RSFV("FeaturedStart") <= Date() AND RSFV("FeaturedEnd") >= Date() Then Dim RSImage, SQLImage Set RSImage = Server.CreateObject("ADODB.Recordset") SQLImage = "SELECT TOP 1 Images.* FROM Images WHERE VenueID=" & RSFV ("VenueID") & " ORDER BY OrderNo" RSImage.Open SQLImage, CN, 3, 2 If RSImage.EOF Then Response.Write ("") & RSFV ("VenueName") & ("

") Else Response.Write ("

") & RSFV ("VenueName") & (", ") & RSFV ("County") & ("

") End If RSImage.close set RSImage = nothing 'End If RSFV.MoveNext Wend RSFV.close set RSFV = nothing %>