<% 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 - Free GPS Guide, Use your GPS Safely and Efficiently for Smart-Phones

Welcome to Your Landscape-guides - The easy way to learn a Language.


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

GPS Guide

For fisherman, boater, Professional, non-professional , Hiker, Biker, Skier, SnowMobiler, Or you simply love outdoor activities for pleasure.
<% 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 %>
camping
Collectible Old & Rare Books: mumfordbooks
Walking for all the family: visit pushchairwalks
Historic Houses, Castles and Religious Sites: Visit the UK Heritage site here
Places of interest: Visit the UK World Heritage site here
Interested in Kayaks: Visit Heritage Kayaks here
Print your own copyright-free-peoplesmaps: Peoplesmaps
Get Walking: Visit the best Walking sites in North West Wales
Large Walks Map: Visit our online Walking Map
Snowdonia National Park: GPS Map Navigator Support (Need iTunes - Download here)
Flytomap :Cartography for your website: Click here to visit



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






Home | Catalogue | Terms | Requests | Valuations | Feedback | Links | Search | Login
Add to Favourites | 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