<% Option Explicit ' Set to false to allow all resources to be shown. Will be used for administrative purposes later. ' dim ShowActiveOnly ' ShowActiveOnly=true dim RootCategory RootCategory = 2 %> <% dim conn dim cst dim UserConn dim UserConnString ' open database connection to be used on page cst = Application("constring") set conn = CreateObject("ADODB.Connection") conn.open cst 'Get current top active categories ' open database connection to be used on page set UserConn=server.createobject("adodb.connection") UserConnString = Application("constring") UserConn.open UserConnString 'Get current top active categories dim ThisCategory RootCategory = 2 if Request.QueryString("BookID")>"" then dim SQLGetFirstCat, RSGetFirstCat SQLGetFirstCat = "SELECT TOP 1 Books.BookID, Categories.CategoryID " &_ "FROM Categories INNER JOIN (Books INNER JOIN BooksAndCategories ON Books.BookID = BooksAndCategories.BookID) " &_ "ON Categories.CategoryID = BooksAndCategories.CategoryID " &_ "WHERE (((Books.BookID)=" & Request.Querystring("BookID") & "));" set RSGetFirstCat=conn.execute(SQLGetFirstCat) if not RSGetFirstCat.EOF then ThisCategory = RSGetFirstCat("CategoryID") else ThisCategory = 2 end if else ThisCategory=Request.QueryString("CatID") if isnull(ThisCategory) or ThisCategory="" then ThisCategory=2 end if dim RSCategory dim SQLCategory if cint(rootcategory) = cint(thiscategory) then SQLCategory="SELECT Categories.CategoryID, Categories.CategoryName, Categories.HideCategory, " & _ "Categories.ActiveFrom, Categories.ActiveUntil, Categories.ParentCategory " & _ "FROM Categories " & _ "WHERE (((Categories.HideCategory)=0) AND ((Categories.ActiveFrom)getDate()) AND ((Categories.ParentCategory)=" & RootCategory & ")) " & _ "ORDER BY Categories.ShortName;" set RSCategory=conn.execute(SQLCategory) else SQLCategory="SELECT Categories.CategoryID, Categories.CategoryName, Categories.HideCategory, Categories.CategoryCode, " & _ "Categories.ActiveFrom, Categories.ActiveUntil, Categories.ParentCategory, Categories.CategoryDescription " & _ "FROM Categories " & _ "WHERE (((Categories.HideCategory)=0) AND ((Categories.ActiveFrom)getDate()) AND ((Categories.ParentCategory)=" & RootCategory & ")) AND CategoryID = " & ThisCategory & " order by CategoryName" end if set RSCategory=conn.execute(SQLCategory) %> Landscape-guides.com Catalogue List

Welcome to Your Landscape-guides


Watermarked & Copyrighted

lost your password?
register here

Sign Up here

Purchase Online
Quick Downloads
Area Maps

 

Selections from our Stock

<% Dim SQLGetThumbList13, RSGetThumbList13, ThumbCount13 SQLGetThumbList13 = "SELECT distinct Books.BookID, Books.ThumbFile, Books.Title FROM Books " &_ "WHERE (((Books.Hide)=0) AND ((Books.HasThumb)=1) AND ((Books.Sold)=0));" set RSGetThumbList13 = server.createobject("ADODB.Recordset") RSGetThumbList13.CursorLocation=3 RSGetThumbList13.open SQLGetThumbList13, conn, 3, 3, 1 ThumbCount = RSGetThumbList13.RecordCount ' response.write ThumbCount & " books found" 'do until RSGetThumbList.EOF Randomize Dim l for l=1 to 5 RSGetThumbList13.Move int(ThumbCount*RND), 1 response.write "
View More Information
" response.write server.htmlencode(RSGetThumbList13("Title")) response.write "

 

" ' RSGetThumbList.movenext next 'loop %>

 


Please note that you can only translate between one language at a time

List of Catalogue Items for Sale below - A-Z

<% if Session("LoginStatus") = true then response.write "You are logged in" response.write "
" response.write "Log out" response.write "
" else response.write "You are not logged in" response.write "" end if %>
<% Dim SQLGetThumbList33, RSGetThumbList33, ThumbCount33 SQLGetThumbList33 = "SELECT * FROM Books where sold='false' ORDER BY title " set RSGetThumbList33 = server.createobject("ADODB.Recordset") RSGetThumbList33.open SQLGetThumbList33, conn, 3, 3, 1 ' response.write ThumbCount & " books found" 'do until RSGetThumbList.EOF If RSGetThumbList33.EOF Then Response.Write("No records returned.") else Do While Not RSGetThumbList33.EOF 'response.write "
View More Information
" response.write " <% 'response.write " " 'response.write "
View item" 'Response.write RSGetThumbList33("Bookid") & " " & RSGetThumbList33("title") & "  " & RSGetThumbList33("pagenum") %> <% RSGetThumbList33.MoveNext Loop end if RSGetThumbList33.close 'loop %>
camping
Collectible Old & Rare Books: mumfordbooks

Page copy protected against web site content infringement by Copyscape





Most images of 3-4 MB can be sent by broadband email direct from landscape-guides.com
paypal

We Buy & Sell, Books, Prints & photographs, Rare, Old & Unique, at mumfordbooks.com
UK's leading Family Bookstore with Quick Easy Ordering.
Books and Images, for the Whole Family, an online Catalogue for Collectors
NEW web sites seascape-guides.com and www.mumfordebooks.com


Discover your Welsh Roots and UK’s Heritage
Walking and Cycling Maps with your own interactive Area Routes,
making it easier and more enjoyable for people to walk, and to promote the benefits of walking.
landscape-guides.com

 

We hope that you enjoy your visit to landscape-guides - why not add this site to your Favourites so that you can easily check for our latest additions!



All of our checkout pages and any page on our site that asks for personal information from our customers is protected by SSL encryption.

SSL
catalogue
SSL Secured
trademark

<% response.write "

" if Session("BasketItems") > 0 then response.write "" response.write "
" response.write "
full basket" & Session("BasketItems") & " items
View basket
" else response.write "" response.write "
empty basketYour
Shopping
Basket is
ready
" end if %>

Login here
Login here

Purchase Online
Quick Downloads
Light Watermarks

 

Selections from our Stock

<% Dim SQLGetThumbList, RSGetThumbList, ThumbCount SQLGetThumbList = "SELECT distinct Books.BookID, Books.ThumbFile, Books.Title FROM Books " &_ "WHERE (((Books.Hide)=0) AND ((Books.HasThumb)=1) AND ((Books.Sold)=0));" set RSGetThumbList = server.createobject("ADODB.Recordset") RSGetThumbList.CursorLocation=3 RSGetThumbList.open SQLGetThumbList, conn, 3, 3, 1 ThumbCount = RSGetThumbList.RecordCount ' response.write ThumbCount & " books found" 'do until RSGetThumbList.EOF Randomize Dim j for j=1 to 5 RSGetThumbList.Move int(ThumbCount*RND), 1 response.write "
View More Information
" response.write server.htmlencode(RSGetThumbList("Title")) response.write "

 

" ' RSGetThumbList.movenext next 'loop %>
footprints
Man’s best Friend
Wheels or Walking







default.asp" class="stylenewrickylinks">Home | cat.asp" class="stylenewrickylinks">Catalogue | terms.asp" class="stylenewrickylinks">Terms | requests.asp" class="stylenewrickylinks">Requests | valuation.asp" class="stylenewrickylinks">Valuations | feedback.asp" class="stylenewrickylinks">Feedback | links.asp" class="stylenewrickylinks">Links | search.asp" class="stylenewrickylinks">Search | secure/login.asp" class="stylenewrickylinks">Login | sitemap.asp" class="stylenewrickylinks">Sitemap
Add to Favourites | /sendemail.php?'+document.location.href,'email',400,300,'')" class="stylenewrickylinks">Tell a friend

 

Valid CSS! Valid HTML 4.01 Transitional


1999-<%=year(date)%> Copyright Mike Mumford.





Data Protection Act 1998 - Data Controller Name: MIKE MUMFORD Registration Number:Z63116776
Telephone +44 (0)1492 548379