<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim RsContent__MMColParam RsContent__MMColParam = "1" If (Request.QueryString("Id") <> "") Then RsContent__MMColParam = Request.QueryString("Id") End If %> <% Dim RsContent Dim RsContent_numRows Set RsContent = Server.CreateObject("ADODB.Recordset") RsContent.ActiveConnection = MM_conn_STRING RsContent.Source = "SELECT * FROM Pages WHERE PageId = " + Replace(RsContent__MMColParam, "'", "''") + "" RsContent.CursorType = 0 RsContent.CursorLocation = 2 RsContent.LockType = 1 RsContent.Open() RsContent_numRows = 0 %> <%=(RsContent.Fields.Item("MetaTitle").Value)%> "> ">
Shipston Deanery - the churches and parishes in Shipston on stour deanery part of the Coventry diocese
<%=(RsContent.Fields.Item("Body").Value)%>
<% RsContent.Close() Set RsContent = Nothing %>