<%= pageTitle %>

<%@ Language=VBScript %> <% pageID = request.QueryString("pageID") if pageID = "" then pageID = "1" end if set Conn = Server.CreateObject("ADODB.Connection") Conn.Open ConString set rsCurrentPage = Conn.Execute("select * from pages where ID="&pageID) pageTitle = rsCurrentPage("pageTitle") keywords = rsCurrentPage("keywords") Content = rsCurrentPage("content") set rsHeadlines = Conn.Execute("select * from pages where ID=9") set rsAddress = Conn.Execute("select * from pages where ID=10") headlines = rsHeadlines("content") address = rsAddress("content") rsHeadlines.Close set rsHeadlines = Nothing rsAddress.Close set rsAddress = Nothing i=0 dim pic(50) set rsImages = Conn.Execute("select * from images where pageID="&pageID) if not rsImages.BOF then rsImages.MoveFirst do while not rsImages.EOF i=i+1 pic(i) = rsImages("file") rsImages.MoveNext loop content = replace(content,"pic1",pic(1)) content = replace(content,"pic2",pic(2)) content = replace(content,"pic3",pic(3)) content = replace(content,"pic4",pic(4)) end if rsImages.Close set rsImages=nothing %> <%= pageTitle %>

www.askews-uk.com e-mail: info@askews-uk.com

Akews Town & Country Tractors - New and Used Tractors - Cultivation Machinery - Equipment Hire - Tractor and Machine Service - The UK Top Kioti Tractorsist

<% response.write content %>

<% set rsUpdated=Conn.Execute("select * from updated") %> Site updated on:
<% =rsUpdated("lastUpdated") %> <% rsUpdated.Close set rsUpdated = Nothing %>

Printer Friendly
Printer friendly version

<% = headlines %>

<% = address %>

<% rsCurrentPage.Close set rsCurrentPage = Nothing %>