<%@LANGUAGE="VBSCRIPT"%>
<%
set rsSearchResult = Server.CreateObject("ADODB.Recordset")
rsSearchResult.ActiveConnection = MM_milita_STRING
rsSearchResult.Source = "SELECT AUTHOR, DESCRIPTION, homepage, TITLE, UnitPrice, STOCKLIST, Comment, UnitsInStock FROM stocklist WHERE homepage = true AND UnitsInStock <> 0"
rsSearchResult.CursorType = 0
rsSearchResult.CursorLocation = 2
rsSearchResult.LockType = 3
rsSearchResult.Open()
rsSearchResult_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows = -1
Dim Repeat1__index
Repeat1__index = 0
rsSearchResult_numRows = rsSearchResult_numRows + Repeat1__numRows
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters
' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""
' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
End If
Next
' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
NextItem = "&" & Item & "="
If (InStr(1,MM_removeList,NextItem,1) = 0) Then
MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
End If
Next
' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
If (firstItem <> "") Then
MM_joinChar = "&"
Else
MM_joinChar = ""
End If
End Function
%>
Military Books: Second-hand & antiquarian Military books
Welcome to the
Chelifer Books Web Site!
We have been selling Secondhand
& Antiquarian (and some New!) Military Books since
1985. Now you can view our stocklist online and order
by e-mail. or use our secure serve to protect your
personal details.
Mike Smith and Deryn Walker
Our stock covers all aspects of
Land Warfare from Ancient Times to the Present Day
including campaign histories, armies and equipment,
uniforms, Armoured Fighting Vehicles, Military Modelling
and Wargaming. There are sections on Naval & Aviation
books too!
Please let
us know if you have any specific book or comments
about the web site, or if you have military books
of your own for sale.
