<% 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 - Feedback & Comments

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

Your Direct E-mail Link - Feedback & Comments
Also Leave your comments for Selling Agent
Have your say, we are interested in your views

We are here to help you with book valuations & advice
Buying and Selling on this web site, bookshops, eBay or Oxfam


<% 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 %>
<% if request.form("Submit") > "" then Dim OrderForm, FormValues, BodyText, msg, Body, bSuccess, strErr, strHost, Mail, SQLAddAccount, RSAddAccount, ErrID, ErrText, AddFields, AddValues ErrID=0 AddFields = "" AddValues = "" ErrText="

" function TestCaptcha(byval valSession, byval valCaptcha) dim tmpSession valSession = Trim(valSession) valCaptcha = Trim(valCaptcha) if (valSession = vbNullString) or (valCaptcha = vbNullString) then TestCaptcha = false else tmpSession = valSession valSession = Trim(Session(valSession)) Session(tmpSession) = vbNullString if valSession = vbNullString then TestCaptcha = false else valCaptcha = Replace(valCaptcha,"i","I") if StrComp(valSession,valCaptcha,1) = 0 then TestCaptcha = true else TestCaptcha = false end if end if end if end function Dim BookTitle, Author, Publisher, Edition, DatePublication, SubjectMatter, BookCondition, firstname, surname, tel, email, postcode, textfield if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then else ErrID = 1 ErrText = ErrText &"You entered the wrong Captcha code

" end if firstname = request.form("firstname") if not firstname > "" then ErrID = 1 ErrText = ErrText & "You must enter your first name

" else AddFields = AddFields & "firstname," AddValues = AddValues & "'" & firstname & "', " end if surname = request.form("surname") if not surname > "" then ErrID = 1 ErrText = ErrText & "You must enter your surname

" else AddFields = AddFields & "surname," AddValues = AddValues & "'" & surname & "', " end if tel = request.form("tel") if not tel > "" then ErrID = 1 ErrText = ErrText & "You must enter your telephone no

" else AddFields = AddFields & "tel," AddValues = AddValues & "'" & tel & "', " end if email = request.form("email") if not email > "" then ErrID = 1 ErrText = ErrText & "You must enter your email address

" else AddFields = AddFields & "email," AddValues = AddValues & "'" & email & "', " end if postcode = request.form("postcode") if not postcode > "" then ErrID = 1 ErrText = ErrText & "You must enter your postcode

" else AddFields = AddFields & "postcode," AddValues = AddValues & "'" & postcode & "', " end if textfield = request.form("textfield") if not textfield > "" then ErrID = 1 ErrText = ErrText & "You must enter your description/requirements

" else AddFields = AddFields & "textfield," AddValues = AddValues & "'" & textfield & "', " end if if ErrID>0 then ErrText = ErrText & "

" & vbNewLine end if ErrText = ErrText & "

" if ErrID>0 then%> <% response.write "

Click on back in your browser and perform the following corrections:

" & ErrText else BodyText = "Request Form submitted:" & vbNewLine & "Description - " & request.form("textfield") & "," & vbNewLine & "First Name - " & request.form("FirstName")& ", "& vbNewLine & "Second Name - " & request.form("Surname")& ", " & vbNewLine & "Address - " & request.form("Address")& ", " & vbNewLine & "Town - " & request.form("Town")& ", " & vbNewLine & "Country - " & request.form("Country")& ", " & vbNewLine & "Post Code - " & request.form("PostCode")& ", " & vbNewLine & "Telephone - " & request.form("tel")& "," & vbNewLine & "Fax - " & request.form("fax")& ", " & vbNewLine & "email - " & request.form("email") ' Create the JMail message Object strHost = "mail.landscape-guides.co.uk" Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host Mail.Host = strHost Mail.From = Request("EMail") ' From address Mail.FromName = Request("FirstName") ' optional Mail.AddAddress "sales@landscape-guides.co.uk" ' message subject Mail.Subject = "Feedback request from landscape-guides" ' message body Mail.Body = BodyText strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If response.write "

Thank you for your feedback, all comments are greatly appreciated and help us to give a better service.

" end if else %>

To improve our web site bookshop we like to hear from you
We are developing a wider range of factual knowledge based books
This will be mostly old hard-to-find books a few new books
For the latest smartphone, iPad, computerTV, quick & easy downloads



Please make sure that all fields marked with a * are filled in.

First Name:
*
Surname:
*
Address:
Town/City:
Country:
Postal Code:
*
Tel:
*
Fax:
e-mail:
*
CAPTCHA*
captcha
Write the characters in the image above. You simply re-type the jumbled code in the blank box, this is a safety protection feature for you

Please ADD your FEEDBACK & COMMENTS HERE, thanks!

   

<% end if %>


How to Order and Conditions of Sale:
Buying Via Our Fast and Safe E-mail - Telephone System.

Invoices must be paid by personal cheque or paypal. I establish that the items you require are available (via return E-mail). After agreeing total cost of your order over the telephone you send a cheque for the full amount. Send your PayPal email account details, payment can be then paid direct. The books/prints/ceramics will be sent as soon as payment has been cleared, after 1 to 6 days. Any item found to be unsatisfactory may be returned within 21 days of receipt.

Prices are net and exclusive of postage and insurance, which will be added to the invoice. We have weighed each book for postage (see catalogue), just calculate the total weight then add Postage & Packing + Insurance Inland UK @ 3.50/kg Standard ParcelForce, (24 & 48 hour post extra.) Overseas based on normal Printed Paper Rate (not for UK). Air parcel post with insurance available if requested.

EXPRESS SERVICE : USE our Web Page Catalogue & E-mail quick order-form. As books are sold, we will keep replacing with new book titles.

We offer a special service for collectors
We can provide book & prints sets, from the small Observer`s Series to Large Volumes, such as The London illustrated News. Both whole sets or odd volumes are regularly selected by our customers.

I shall be pleased to deal with customers` requests and maintain a file of books required. I am constantly looking for good old second-hand books and shall always be pleased to hear from customers with collections or the odd damaged book worthy of repair.

BOOKS & PRINTS FOR THE WHOLE FAMILY

Look Out for our Regularly Updated Catalogue

Please Add this Site to Your Favourites


camping
Making your own Guide to Heritage on Google Maps: heritage-maps
Collectible Old & Rare Books: mumfordbooks



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 site seascape-guides.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