<% 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 - Book Valuations

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

Free Valuation and Advice for 1st Book. Multiple valuations, please see scale of fees on Homepage.

<% 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, illustrated, dust, hard, signed, strHost, strErr, bSuccess, 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 if TestCaptcha("ASPCAPTCHA", Request.Form("captchacode")) then else ErrID = 1 ErrText = ErrText &"You entered the wrong Captcha code

" end if BookTitle = request.form("BookTitle") if not BookTitle > "" then ErrID = 1 ErrText = ErrText & "You must enter your Book Title

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

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

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

" else AddFields = AddFields & "Edition," AddValues = AddValues & "'" & Edition & "', " end if DatePublication = request.form("DatePublication") if not DatePublication > "" then ErrID = 1 ErrText = ErrText & "You must enter your Date of Publication

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

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

" else AddFields = AddFields & "BookCondition," AddValues = AddValues & "'" & BookCondition & "', " 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 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 = "Valuation Form submitted:" & vbNewLine & "Book Title - " & request.form("BookTitle") & ", " & vbNewLine & "Author - " & request.form("Author") & ", " & vbNewLine & "Publisher - " & request.form("Publisher") & ", " BodyText=BodyText & vbNewLine & "Edition - " & request.form("Edition")& ", " & vbNewLine & "Date of Publication - " & request.form("DatePublication")& ", " & vbNewLine & "Subject Matter - " & request.form("SubjectMatter")& ", " & vbNewLine & "Book Condition - " & request.form("BookCondition")& ", " & vbNewLine & "Number of Pages - " & request.form("NumPages")& ", "& vbNewLine & "Any other info - " & request.form("AnyOtherInfo")& ", " & 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 = "Valuation 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 valuation request, we will be getting back to you as soon as possible.

" end if else %>

Ever wanted to know how much that old book, magazine, print or photograph is worth? All items to qualify must be at least 35 years old.

The more information you give, the more likely we are to find the precise book that you are after. If there are any details you are unsure of, then leave those areas blank.

Please make sure that all fields marked with a
* are filled in.
Title:
*
Author:
*
Publisher:
*
Edition:
*
Date of publication:
*
Subject matter of the book:
*
Very Important Describe Condition:
*
Features (check all that apply):

Illustrated

Hardback

Dust jacket

Signed by author
Number of pages and page sizes:
Any other information:
To Illustrate the condition
To improve our valuation could you also send an image of the front cover, an image of the title page and an image of one of the illustrations. Send your images to our valuations Email

Free Valuation for the first Book. For security reasons, we require at least the minimum first line of your address and UK postcode. The better your description the quicker we can reply. Full Title, Author, Edition Date & Publisher. Condition is the most inportant, add with(out) dust-cover, Any images of book cover & title page use .jpg small files.

First Name:
*
Surname:
*
Full Address:
Town/City:
Country:
Postal Code:
*
Telephone:
*
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

* All fields marked thus must be completed by non UK customers

If you wish to have more than one item evaluated then please submit each item separately. Please see my list of fees, on my homepage.

   

Note that the valuation service is provided free of charge to customers solely on that basis. No other service or contract is implied. I cannot guarantee to answer every request due to demand. All books must be at least 35 years old. Valuation is based on the price you can expect from a book dealer.

<% end if %>

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 books worthy of repair.

 


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 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