<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Paraviewdb.asp" -->
<%
Dim AstrologyCount
Dim AstrologyCount_numRows

Set AstrologyCount = Server.CreateObject("ADODB.Recordset")
AstrologyCount.ActiveConnection = MM_Paraviewdb_STRING
AstrologyCount.Source = "SELECT *  FROM DOIdata  WHERE subject1='astrology' OR subject2='astrology' OR subject3='astrology' OR subject4='astrology'"
AstrologyCount.CursorType = 0
AstrologyCount.CursorLocation = 2
AstrologyCount.LockType = 1
AstrologyCount.Open()

AstrologyCount_numRows = 0
%>
<%
Dim BusinessCount
Dim BusinessCount_numRows

Set BusinessCount = Server.CreateObject("ADODB.Recordset")
BusinessCount.ActiveConnection = MM_Paraviewdb_STRING
BusinessCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='business' OR subject2='business' OR subject3='business' OR subject4='business'"
BusinessCount.CursorType = 0
BusinessCount.CursorLocation = 2
BusinessCount.LockType = 1
BusinessCount.Open()

BusinessCount_numRows = 0
%>
<%
Dim ChannelingCount
Dim ChannelingCount_numRows

Set ChannelingCount = Server.CreateObject("ADODB.Recordset")
ChannelingCount.ActiveConnection = MM_Paraviewdb_STRING
ChannelingCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='channeling' OR subject2='channeling' OR subject3='channeling' OR subject4='channeling'"
ChannelingCount.CursorType = 0
ChannelingCount.CursorLocation = 2
ChannelingCount.LockType = 1
ChannelingCount.Open()

ChannelingCount_numRows = 0
%>
<%
Dim ConspiracyCount
Dim ConspiracyCount_numRows

Set ConspiracyCount = Server.CreateObject("ADODB.Recordset")
ConspiracyCount.ActiveConnection = MM_Paraviewdb_STRING
ConspiracyCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='conspiracy' OR subject2='conspiracy' OR subject3='conspiracy' OR subject4='conspiracy'"
ConspiracyCount.CursorType = 0
ConspiracyCount.CursorLocation = 2
ConspiracyCount.LockType = 1
ConspiracyCount.Open()

ConspiracyCount_numRows = 0
%>
<%
Dim CultureCount
Dim CultureCount_numRows

Set CultureCount = Server.CreateObject("ADODB.Recordset")
CultureCount.ActiveConnection = MM_Paraviewdb_STRING
CultureCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='culture' OR subject2='culture' OR subject3='culture' OR subject4='culture'"
CultureCount.CursorType = 0
CultureCount.CursorLocation = 2
CultureCount.LockType = 1
CultureCount.Open()

CultureCount_numRows = 0
%>
<%
Dim CryptozoologyCount
Dim CryptozoologyCount_numRows

Set CryptozoologyCount = Server.CreateObject("ADODB.Recordset")
CryptozoologyCount.ActiveConnection = MM_Paraviewdb_STRING
CryptozoologyCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='cryptozoology' OR subject2='cryptozoology' OR subject3='cryptozoology' OR subject4='cryptozoology'"
CryptozoologyCount.CursorType = 0
CryptozoologyCount.CursorLocation = 2
CryptozoologyCount.LockType = 1
CryptozoologyCount.Open()

CryptozoologyCount_numRows = 0
%>
<%
Dim EasternPhilosophyCount
Dim EasternPhilosophyCount_numRows

Set EasternPhilosophyCount = Server.CreateObject("ADODB.Recordset")
EasternPhilosophyCount.ActiveConnection = MM_Paraviewdb_STRING
EasternPhilosophyCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='eastern philosophy' OR subject2='eastern philosophy' OR subject3='eastern philosophy' OR subject4='eastern philosophy'"
EasternPhilosophyCount.CursorType = 0
EasternPhilosophyCount.CursorLocation = 2
EasternPhilosophyCount.LockType = 1
EasternPhilosophyCount.Open()

EasternPhilosophyCount_numRows = 0
%>
<%
Dim CayceCount
Dim CayceCount_numRows

Set CayceCount = Server.CreateObject("ADODB.Recordset")
CayceCount.ActiveConnection = MM_Paraviewdb_STRING
CayceCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='edgar cayce' OR subject2='edgar cayce' OR subject3='edgar cayce' OR subject4='edgar cayce'"
CayceCount.CursorType = 0
CayceCount.CursorLocation = 2
CayceCount.LockType = 1
CayceCount.Open()

CayceCount_numRows = 0
%>
<%
Dim EnvironmentCount
Dim EnvironmentCount_numRows

Set EnvironmentCount = Server.CreateObject("ADODB.Recordset")
EnvironmentCount.ActiveConnection = MM_Paraviewdb_STRING
EnvironmentCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='environment' OR subject2='environment' OR subject3='environment' OR subject4='environment'"
EnvironmentCount.CursorType = 0
EnvironmentCount.CursorLocation = 2
EnvironmentCount.LockType = 1
EnvironmentCount.Open()

EnvironmentCount_numRows = 0
%>
<%
Dim FictionCount
Dim FictionCount_numRows

Set FictionCount = Server.CreateObject("ADODB.Recordset")
FictionCount.ActiveConnection = MM_Paraviewdb_STRING
FictionCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='fiction' OR subject2='fiction' OR subject3='fiction' OR subject4='fiction'"
FictionCount.CursorType = 0
FictionCount.CursorLocation = 2
FictionCount.LockType = 1
FictionCount.Open()

FictionCount_numRows = 0
%>
<%
Dim HealthCount
Dim HealthCount_numRows

Set HealthCount = Server.CreateObject("ADODB.Recordset")
HealthCount.ActiveConnection = MM_Paraviewdb_STRING
HealthCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='health' OR subject2='health' OR subject3='health' OR subject4='health'"
HealthCount.CursorType = 0
HealthCount.CursorLocation = 2
HealthCount.LockType = 1
HealthCount.Open()

HealthCount_numRows = 0
%>
<%
Dim HumorCount
Dim HumorCount_numRows

Set HumorCount = Server.CreateObject("ADODB.Recordset")
HumorCount.ActiveConnection = MM_Paraviewdb_STRING
HumorCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='humor' OR subject2='humor' OR subject3='humor' OR subject4='humor'"
HumorCount.CursorType = 0
HumorCount.CursorLocation = 2
HumorCount.LockType = 1
HumorCount.Open()

HumorCount_numRows = 0
%>
<%
Dim MusicCount
Dim MusicCount_numRows

Set MusicCount = Server.CreateObject("ADODB.Recordset")
MusicCount.ActiveConnection = MM_Paraviewdb_STRING
MusicCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='music' OR subject2='music' OR subject3='music' OR subject4='music'"
MusicCount.CursorType = 0
MusicCount.CursorLocation = 2
MusicCount.LockType = 1
MusicCount.Open()

MusicCount_numRows = 0
%>
<%
Dim ParanormalCount
Dim ParanormalCount_numRows

Set ParanormalCount = Server.CreateObject("ADODB.Recordset")
ParanormalCount.ActiveConnection = MM_Paraviewdb_STRING
ParanormalCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='paranormal' OR subject2='paranormal' OR subject3='paranormal' OR subject4='paranormal'"
ParanormalCount.CursorType = 0
ParanormalCount.CursorLocation = 2
ParanormalCount.LockType = 1
ParanormalCount.Open()

ParanormalCount_numRows = 0
%>
<%
Dim MemoirCount
Dim MemoirCount_numRows

Set MemoirCount = Server.CreateObject("ADODB.Recordset")
MemoirCount.ActiveConnection = MM_Paraviewdb_STRING
MemoirCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='memoir' OR subject2='memoir' OR subject3='memoir' Or subject4='memoir'"
MemoirCount.CursorType = 0
MemoirCount.CursorLocation = 2
MemoirCount.LockType = 1
MemoirCount.Open()

MemoirCount_numRows = 0
%>
<%
Dim PetCareCount
Dim PetCareCount_numRows

Set PetCareCount = Server.CreateObject("ADODB.Recordset")
PetCareCount.ActiveConnection = MM_Paraviewdb_STRING
PetCareCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='pet care' OR subject2='pet care' OR subject3='pet care' OR subject4='pet care'"
PetCareCount.CursorType = 0
PetCareCount.CursorLocation = 2
PetCareCount.LockType = 1
PetCareCount.Open()

PetCareCount_numRows = 0
%>
<%
Dim PoetryCount
Dim PoetryCount_numRows

Set PoetryCount = Server.CreateObject("ADODB.Recordset")
PoetryCount.ActiveConnection = MM_Paraviewdb_STRING
PoetryCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='poetry' OR subject2='poetry' OR subject3='poetry' OR subject4='poetry'"
PoetryCount.CursorType = 0
PoetryCount.CursorLocation = 2
PoetryCount.LockType = 1
PoetryCount.Open()

PoetryCount_numRows = 0
%>
<%
Dim PsychologyCount
Dim PsychologyCount_numRows

Set PsychologyCount = Server.CreateObject("ADODB.Recordset")
PsychologyCount.ActiveConnection = MM_Paraviewdb_STRING
PsychologyCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='psychology' OR subject2='psychology' OR subject3='psychology' OR subject4='psychology'"
PsychologyCount.CursorType = 0
PsychologyCount.CursorLocation = 2
PsychologyCount.LockType = 1
PsychologyCount.Open()

PsychologyCount_numRows = 0
%>
<%
Dim RelationshipsCount
Dim RelationshipsCount_numRows

Set RelationshipsCount = Server.CreateObject("ADODB.Recordset")
RelationshipsCount.ActiveConnection = MM_Paraviewdb_STRING
RelationshipsCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='relationships' OR subject2='relationships' OR subject3='relationships' OR subject4='relationships'"
RelationshipsCount.CursorType = 0
RelationshipsCount.CursorLocation = 2
RelationshipsCount.LockType = 1
RelationshipsCount.Open()

RelationshipsCount_numRows = 0
%>
<%
Dim ScienceCount
Dim ScienceCount_numRows

Set ScienceCount = Server.CreateObject("ADODB.Recordset")
ScienceCount.ActiveConnection = MM_Paraviewdb_STRING
ScienceCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='science' OR subject2='science' OR subject3='science' OR subject4='science'"
ScienceCount.CursorType = 0
ScienceCount.CursorLocation = 2
ScienceCount.LockType = 1
ScienceCount.Open()

ScienceCount_numRows = 0
%>
<%
Dim SelfImprovementCount
Dim SelfImprovementCount_numRows

Set SelfImprovementCount = Server.CreateObject("ADODB.Recordset")
SelfImprovementCount.ActiveConnection = MM_Paraviewdb_STRING
SelfImprovementCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='self improvement' OR subject2='self improvement' OR subject3='self improvement' OR subject4='self improvement'"
SelfImprovementCount.CursorType = 0
SelfImprovementCount.CursorLocation = 2
SelfImprovementCount.LockType = 1
SelfImprovementCount.Open()

SelfImprovementCount_numRows = 0
%>
<%
Dim SpiritualityCount
Dim SpiritualityCount_numRows

Set SpiritualityCount = Server.CreateObject("ADODB.Recordset")
SpiritualityCount.ActiveConnection = MM_Paraviewdb_STRING
SpiritualityCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='spirituality' OR subject2='spirituality' OR subject3='spirituality' OR subject4='spirituality'"
SpiritualityCount.CursorType = 0
SpiritualityCount.CursorLocation = 2
SpiritualityCount.LockType = 1
SpiritualityCount.Open()

SpiritualityCount_numRows = 0
%>
<%
Dim SportsCount
Dim SportsCount_numRows

Set SportsCount = Server.CreateObject("ADODB.Recordset")
SportsCount.ActiveConnection = MM_Paraviewdb_STRING
SportsCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='sports' OR subject2='sports' OR subject3='sports' OR subject4='sports'"
SportsCount.CursorType = 0
SportsCount.CursorLocation = 2
SportsCount.LockType = 1
SportsCount.Open()

SportsCount_numRows = 0
%>
<%
Dim TravelCount
Dim TravelCount_numRows

Set TravelCount = Server.CreateObject("ADODB.Recordset")
TravelCount.ActiveConnection = MM_Paraviewdb_STRING
TravelCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='travel' OR subject2='travel' OR subject3='travel' OR subject4='travel'"
TravelCount.CursorType = 0
TravelCount.CursorLocation = 2
TravelCount.LockType = 1
TravelCount.Open()

TravelCount_numRows = 0
%>
<%
Dim UFOsCount
Dim UFOsCount_numRows

Set UFOsCount = Server.CreateObject("ADODB.Recordset")
UFOsCount.ActiveConnection = MM_Paraviewdb_STRING
UFOsCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='UFOs' OR subject2='UFOs' OR subject3='UFOs' OR subject4='UFOs'"
UFOsCount.CursorType = 0
UFOsCount.CursorLocation = 2
UFOsCount.LockType = 1
UFOsCount.Open()

UFOsCount_numRows = 0
%>
<%
Dim WiccaCount
Dim WiccaCount_numRows

Set WiccaCount = Server.CreateObject("ADODB.Recordset")
WiccaCount.ActiveConnection = MM_Paraviewdb_STRING
WiccaCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='wicca' OR subject2='wicca' OR subject3='wicca' OR subject4='wicca'"
WiccaCount.CursorType = 0
WiccaCount.CursorLocation = 2
WiccaCount.LockType = 1
WiccaCount.Open()

WiccaCount_numRows = 0
%>
<%
Dim WomensCount
Dim WomensCount_numRows

Set WomensCount = Server.CreateObject("ADODB.Recordset")
WomensCount.ActiveConnection = MM_Paraviewdb_STRING
WomensCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='womens' OR subject2='womens' OR subject3='womens' OR subject4='womens'"
WomensCount.CursorType = 0
WomensCount.CursorLocation = 2
WomensCount.LockType = 1
WomensCount.Open()

WomensCount_numRows = 0
%>
<%
Dim WorldHistoryCount
Dim WorldHistoryCount_numRows

Set WorldHistoryCount = Server.CreateObject("ADODB.Recordset")
WorldHistoryCount.ActiveConnection = MM_Paraviewdb_STRING
WorldHistoryCount.Source = "SELECT Title  FROM DOIdata  WHERE subject1='world history' OR subject2='world history' OR subject3='world history' OR subject4='world history'"
WorldHistoryCount.CursorType = 0
WorldHistoryCount.CursorLocation = 2
WorldHistoryCount.LockType = 1
WorldHistoryCount.Open()

WorldHistoryCount_numRows = 0
%>
<%
Dim IsBookNew
Dim IsBookNew_numRows

Set IsBookNew = Server.CreateObject("ADODB.Recordset")
IsBookNew.ActiveConnection = MM_Paraviewdb_STRING
IsBookNew.Source = "SELECT Author1LastName, Author1FirstName, Title, PublishersCatalogPage, Buythebook, Imprint, Author2LastName, Author2FirstName  FROM DOIdata  WHERE Date() < DateNew+90  ORDER BY Author1LastName"
IsBookNew.CursorType = 0
IsBookNew.CursorLocation = 2
IsBookNew.LockType = 1
IsBookNew.Open()

IsBookNew_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
IsBookNew_numRows = IsBookNew_numRows + Repeat1__numRows
%>

<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim HealthCount_total
Dim HealthCount_first
Dim HealthCount_last

' set the record count
HealthCount_total = HealthCount.RecordCount

' set the number of rows displayed on this page
If (HealthCount_numRows < 0) Then
  HealthCount_numRows = HealthCount_total
Elseif (HealthCount_numRows = 0) Then
  HealthCount_numRows = 1
End If

' set the first and last displayed record
HealthCount_first = 1
HealthCount_last  = HealthCount_first + HealthCount_numRows - 1

' if we have the correct record count, check the other stats
If (HealthCount_total <> -1) Then
  If (HealthCount_first > HealthCount_total) Then
    HealthCount_first = HealthCount_total
  End If
  If (HealthCount_last > HealthCount_total) Then
    HealthCount_last = HealthCount_total
  End If
  If (HealthCount_numRows > HealthCount_total) Then
    HealthCount_numRows = HealthCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim SelfImprovementCount_total
Dim SelfImprovementCount_first
Dim SelfImprovementCount_last

' set the record count
SelfImprovementCount_total = SelfImprovementCount.RecordCount

' set the number of rows displayed on this page
If (SelfImprovementCount_numRows < 0) Then
  SelfImprovementCount_numRows = SelfImprovementCount_total
Elseif (SelfImprovementCount_numRows = 0) Then
  SelfImprovementCount_numRows = 1
End If

' set the first and last displayed record
SelfImprovementCount_first = 1
SelfImprovementCount_last  = SelfImprovementCount_first + SelfImprovementCount_numRows - 1

' if we have the correct record count, check the other stats
If (SelfImprovementCount_total <> -1) Then
  If (SelfImprovementCount_first > SelfImprovementCount_total) Then
    SelfImprovementCount_first = SelfImprovementCount_total
  End If
  If (SelfImprovementCount_last > SelfImprovementCount_total) Then
    SelfImprovementCount_last = SelfImprovementCount_total
  End If
  If (SelfImprovementCount_numRows > SelfImprovementCount_total) Then
    SelfImprovementCount_numRows = SelfImprovementCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim BusinessCount_total
Dim BusinessCount_first
Dim BusinessCount_last

' set the record count
BusinessCount_total = BusinessCount.RecordCount

' set the number of rows displayed on this page
If (BusinessCount_numRows < 0) Then
  BusinessCount_numRows = BusinessCount_total
Elseif (BusinessCount_numRows = 0) Then
  BusinessCount_numRows = 1
End If

' set the first and last displayed record
BusinessCount_first = 1
BusinessCount_last  = BusinessCount_first + BusinessCount_numRows - 1

' if we have the correct record count, check the other stats
If (BusinessCount_total <> -1) Then
  If (BusinessCount_first > BusinessCount_total) Then
    BusinessCount_first = BusinessCount_total
  End If
  If (BusinessCount_last > BusinessCount_total) Then
    BusinessCount_last = BusinessCount_total
  End If
  If (BusinessCount_numRows > BusinessCount_total) Then
    BusinessCount_numRows = BusinessCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim HumorCount_total
Dim HumorCount_first
Dim HumorCount_last

' set the record count
HumorCount_total = HumorCount.RecordCount

' set the number of rows displayed on this page
If (HumorCount_numRows < 0) Then
  HumorCount_numRows = HumorCount_total
Elseif (HumorCount_numRows = 0) Then
  HumorCount_numRows = 1
End If

' set the first and last displayed record
HumorCount_first = 1
HumorCount_last  = HumorCount_first + HumorCount_numRows - 1

' if we have the correct record count, check the other stats
If (HumorCount_total <> -1) Then
  If (HumorCount_first > HumorCount_total) Then
    HumorCount_first = HumorCount_total
  End If
  If (HumorCount_last > HumorCount_total) Then
    HumorCount_last = HumorCount_total
  End If
  If (HumorCount_numRows > HumorCount_total) Then
    HumorCount_numRows = HumorCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim SpiritualityCount_total
Dim SpiritualityCount_first
Dim SpiritualityCount_last

' set the record count
SpiritualityCount_total = SpiritualityCount.RecordCount

' set the number of rows displayed on this page
If (SpiritualityCount_numRows < 0) Then
  SpiritualityCount_numRows = SpiritualityCount_total
Elseif (SpiritualityCount_numRows = 0) Then
  SpiritualityCount_numRows = 1
End If

' set the first and last displayed record
SpiritualityCount_first = 1
SpiritualityCount_last  = SpiritualityCount_first + SpiritualityCount_numRows - 1

' if we have the correct record count, check the other stats
If (SpiritualityCount_total <> -1) Then
  If (SpiritualityCount_first > SpiritualityCount_total) Then
    SpiritualityCount_first = SpiritualityCount_total
  End If
  If (SpiritualityCount_last > SpiritualityCount_total) Then
    SpiritualityCount_last = SpiritualityCount_total
  End If
  If (SpiritualityCount_numRows > SpiritualityCount_total) Then
    SpiritualityCount_numRows = SpiritualityCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim ChannelingCount_total
Dim ChannelingCount_first
Dim ChannelingCount_last

' set the record count
ChannelingCount_total = ChannelingCount.RecordCount

' set the number of rows displayed on this page
If (ChannelingCount_numRows < 0) Then
  ChannelingCount_numRows = ChannelingCount_total
Elseif (ChannelingCount_numRows = 0) Then
  ChannelingCount_numRows = 1
End If

' set the first and last displayed record
ChannelingCount_first = 1
ChannelingCount_last  = ChannelingCount_first + ChannelingCount_numRows - 1

' if we have the correct record count, check the other stats
If (ChannelingCount_total <> -1) Then
  If (ChannelingCount_first > ChannelingCount_total) Then
    ChannelingCount_first = ChannelingCount_total
  End If
  If (ChannelingCount_last > ChannelingCount_total) Then
    ChannelingCount_last = ChannelingCount_total
  End If
  If (ChannelingCount_numRows > ChannelingCount_total) Then
    ChannelingCount_numRows = ChannelingCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim MusicCount_total
Dim MusicCount_first
Dim MusicCount_last

' set the record count
MusicCount_total = MusicCount.RecordCount

' set the number of rows displayed on this page
If (MusicCount_numRows < 0) Then
  MusicCount_numRows = MusicCount_total
Elseif (MusicCount_numRows = 0) Then
  MusicCount_numRows = 1
End If

' set the first and last displayed record
MusicCount_first = 1
MusicCount_last  = MusicCount_first + MusicCount_numRows - 1

' if we have the correct record count, check the other stats
If (MusicCount_total <> -1) Then
  If (MusicCount_first > MusicCount_total) Then
    MusicCount_first = MusicCount_total
  End If
  If (MusicCount_last > MusicCount_total) Then
    MusicCount_last = MusicCount_total
  End If
  If (MusicCount_numRows > MusicCount_total) Then
    MusicCount_numRows = MusicCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim SportsCount_total
Dim SportsCount_first
Dim SportsCount_last

' set the record count
SportsCount_total = SportsCount.RecordCount

' set the number of rows displayed on this page
If (SportsCount_numRows < 0) Then
  SportsCount_numRows = SportsCount_total
Elseif (SportsCount_numRows = 0) Then
  SportsCount_numRows = 1
End If

' set the first and last displayed record
SportsCount_first = 1
SportsCount_last  = SportsCount_first + SportsCount_numRows - 1

' if we have the correct record count, check the other stats
If (SportsCount_total <> -1) Then
  If (SportsCount_first > SportsCount_total) Then
    SportsCount_first = SportsCount_total
  End If
  If (SportsCount_last > SportsCount_total) Then
    SportsCount_last = SportsCount_total
  End If
  If (SportsCount_numRows > SportsCount_total) Then
    SportsCount_numRows = SportsCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim ConspiracyCount_total
Dim ConspiracyCount_first
Dim ConspiracyCount_last

' set the record count
ConspiracyCount_total = ConspiracyCount.RecordCount

' set the number of rows displayed on this page
If (ConspiracyCount_numRows < 0) Then
  ConspiracyCount_numRows = ConspiracyCount_total
Elseif (ConspiracyCount_numRows = 0) Then
  ConspiracyCount_numRows = 1
End If

' set the first and last displayed record
ConspiracyCount_first = 1
ConspiracyCount_last  = ConspiracyCount_first + ConspiracyCount_numRows - 1

' if we have the correct record count, check the other stats
If (ConspiracyCount_total <> -1) Then
  If (ConspiracyCount_first > ConspiracyCount_total) Then
    ConspiracyCount_first = ConspiracyCount_total
  End If
  If (ConspiracyCount_last > ConspiracyCount_total) Then
    ConspiracyCount_last = ConspiracyCount_total
  End If
  If (ConspiracyCount_numRows > ConspiracyCount_total) Then
    ConspiracyCount_numRows = ConspiracyCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim ParanormalCount_total
Dim ParanormalCount_first
Dim ParanormalCount_last

' set the record count
ParanormalCount_total = ParanormalCount.RecordCount

' set the number of rows displayed on this page
If (ParanormalCount_numRows < 0) Then
  ParanormalCount_numRows = ParanormalCount_total
Elseif (ParanormalCount_numRows = 0) Then
  ParanormalCount_numRows = 1
End If

' set the first and last displayed record
ParanormalCount_first = 1
ParanormalCount_last  = ParanormalCount_first + ParanormalCount_numRows - 1

' if we have the correct record count, check the other stats
If (ParanormalCount_total <> -1) Then
  If (ParanormalCount_first > ParanormalCount_total) Then
    ParanormalCount_first = ParanormalCount_total
  End If
  If (ParanormalCount_last > ParanormalCount_total) Then
    ParanormalCount_last = ParanormalCount_total
  End If
  If (ParanormalCount_numRows > ParanormalCount_total) Then
    ParanormalCount_numRows = ParanormalCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim TravelCount_total
Dim TravelCount_first
Dim TravelCount_last

' set the record count
TravelCount_total = TravelCount.RecordCount

' set the number of rows displayed on this page
If (TravelCount_numRows < 0) Then
  TravelCount_numRows = TravelCount_total
Elseif (TravelCount_numRows = 0) Then
  TravelCount_numRows = 1
End If

' set the first and last displayed record
TravelCount_first = 1
TravelCount_last  = TravelCount_first + TravelCount_numRows - 1

' if we have the correct record count, check the other stats
If (TravelCount_total <> -1) Then
  If (TravelCount_first > TravelCount_total) Then
    TravelCount_first = TravelCount_total
  End If
  If (TravelCount_last > TravelCount_total) Then
    TravelCount_last = TravelCount_total
  End If
  If (TravelCount_numRows > TravelCount_total) Then
    TravelCount_numRows = TravelCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim CultureCount_total
Dim CultureCount_first
Dim CultureCount_last

' set the record count
CultureCount_total = CultureCount.RecordCount

' set the number of rows displayed on this page
If (CultureCount_numRows < 0) Then
  CultureCount_numRows = CultureCount_total
Elseif (CultureCount_numRows = 0) Then
  CultureCount_numRows = 1
End If

' set the first and last displayed record
CultureCount_first = 1
CultureCount_last  = CultureCount_first + CultureCount_numRows - 1

' if we have the correct record count, check the other stats
If (CultureCount_total <> -1) Then
  If (CultureCount_first > CultureCount_total) Then
    CultureCount_first = CultureCount_total
  End If
  If (CultureCount_last > CultureCount_total) Then
    CultureCount_last = CultureCount_total
  End If
  If (CultureCount_numRows > CultureCount_total) Then
    CultureCount_numRows = CultureCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim MemoirCount_total
Dim MemoirCount_first
Dim MemoirCount_last

' set the record count
MemoirCount_total = MemoirCount.RecordCount

' set the number of rows displayed on this page
If (MemoirCount_numRows < 0) Then
  MemoirCount_numRows = MemoirCount_total
Elseif (MemoirCount_numRows = 0) Then
  MemoirCount_numRows = 1
End If

' set the first and last displayed record
MemoirCount_first = 1
MemoirCount_last  = MemoirCount_first + MemoirCount_numRows - 1

' if we have the correct record count, check the other stats
If (MemoirCount_total <> -1) Then
  If (MemoirCount_first > MemoirCount_total) Then
    MemoirCount_first = MemoirCount_total
  End If
  If (MemoirCount_last > MemoirCount_total) Then
    MemoirCount_last = MemoirCount_total
  End If
  If (MemoirCount_numRows > MemoirCount_total) Then
    MemoirCount_numRows = MemoirCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim UFOsCount_total
Dim UFOsCount_first
Dim UFOsCount_last

' set the record count
UFOsCount_total = UFOsCount.RecordCount

' set the number of rows displayed on this page
If (UFOsCount_numRows < 0) Then
  UFOsCount_numRows = UFOsCount_total
Elseif (UFOsCount_numRows = 0) Then
  UFOsCount_numRows = 1
End If

' set the first and last displayed record
UFOsCount_first = 1
UFOsCount_last  = UFOsCount_first + UFOsCount_numRows - 1

' if we have the correct record count, check the other stats
If (UFOsCount_total <> -1) Then
  If (UFOsCount_first > UFOsCount_total) Then
    UFOsCount_first = UFOsCount_total
  End If
  If (UFOsCount_last > UFOsCount_total) Then
    UFOsCount_last = UFOsCount_total
  End If
  If (UFOsCount_numRows > UFOsCount_total) Then
    UFOsCount_numRows = UFOsCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim CryptozoologyCount_total
Dim CryptozoologyCount_first
Dim CryptozoologyCount_last

' set the record count
CryptozoologyCount_total = CryptozoologyCount.RecordCount

' set the number of rows displayed on this page
If (CryptozoologyCount_numRows < 0) Then
  CryptozoologyCount_numRows = CryptozoologyCount_total
Elseif (CryptozoologyCount_numRows = 0) Then
  CryptozoologyCount_numRows = 1
End If

' set the first and last displayed record
CryptozoologyCount_first = 1
CryptozoologyCount_last  = CryptozoologyCount_first + CryptozoologyCount_numRows - 1

' if we have the correct record count, check the other stats
If (CryptozoologyCount_total <> -1) Then
  If (CryptozoologyCount_first > CryptozoologyCount_total) Then
    CryptozoologyCount_first = CryptozoologyCount_total
  End If
  If (CryptozoologyCount_last > CryptozoologyCount_total) Then
    CryptozoologyCount_last = CryptozoologyCount_total
  End If
  If (CryptozoologyCount_numRows > CryptozoologyCount_total) Then
    CryptozoologyCount_numRows = CryptozoologyCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim PetCareCount_total
Dim PetCareCount_first
Dim PetCareCount_last

' set the record count
PetCareCount_total = PetCareCount.RecordCount

' set the number of rows displayed on this page
If (PetCareCount_numRows < 0) Then
  PetCareCount_numRows = PetCareCount_total
Elseif (PetCareCount_numRows = 0) Then
  PetCareCount_numRows = 1
End If

' set the first and last displayed record
PetCareCount_first = 1
PetCareCount_last  = PetCareCount_first + PetCareCount_numRows - 1

' if we have the correct record count, check the other stats
If (PetCareCount_total <> -1) Then
  If (PetCareCount_first > PetCareCount_total) Then
    PetCareCount_first = PetCareCount_total
  End If
  If (PetCareCount_last > PetCareCount_total) Then
    PetCareCount_last = PetCareCount_total
  End If
  If (PetCareCount_numRows > PetCareCount_total) Then
    PetCareCount_numRows = PetCareCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim WiccaCount_total
Dim WiccaCount_first
Dim WiccaCount_last

' set the record count
WiccaCount_total = WiccaCount.RecordCount

' set the number of rows displayed on this page
If (WiccaCount_numRows < 0) Then
  WiccaCount_numRows = WiccaCount_total
Elseif (WiccaCount_numRows = 0) Then
  WiccaCount_numRows = 1
End If

' set the first and last displayed record
WiccaCount_first = 1
WiccaCount_last  = WiccaCount_first + WiccaCount_numRows - 1

' if we have the correct record count, check the other stats
If (WiccaCount_total <> -1) Then
  If (WiccaCount_first > WiccaCount_total) Then
    WiccaCount_first = WiccaCount_total
  End If
  If (WiccaCount_last > WiccaCount_total) Then
    WiccaCount_last = WiccaCount_total
  End If
  If (WiccaCount_numRows > WiccaCount_total) Then
    WiccaCount_numRows = WiccaCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim EasternPhilosophyCount_total
Dim EasternPhilosophyCount_first
Dim EasternPhilosophyCount_last

' set the record count
EasternPhilosophyCount_total = EasternPhilosophyCount.RecordCount

' set the number of rows displayed on this page
If (EasternPhilosophyCount_numRows < 0) Then
  EasternPhilosophyCount_numRows = EasternPhilosophyCount_total
Elseif (EasternPhilosophyCount_numRows = 0) Then
  EasternPhilosophyCount_numRows = 1
End If

' set the first and last displayed record
EasternPhilosophyCount_first = 1
EasternPhilosophyCount_last  = EasternPhilosophyCount_first + EasternPhilosophyCount_numRows - 1

' if we have the correct record count, check the other stats
If (EasternPhilosophyCount_total <> -1) Then
  If (EasternPhilosophyCount_first > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_first = EasternPhilosophyCount_total
  End If
  If (EasternPhilosophyCount_last > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_last = EasternPhilosophyCount_total
  End If
  If (EasternPhilosophyCount_numRows > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_numRows = EasternPhilosophyCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim PoetryCount_total
Dim PoetryCount_first
Dim PoetryCount_last

' set the record count
PoetryCount_total = PoetryCount.RecordCount

' set the number of rows displayed on this page
If (PoetryCount_numRows < 0) Then
  PoetryCount_numRows = PoetryCount_total
Elseif (PoetryCount_numRows = 0) Then
  PoetryCount_numRows = 1
End If

' set the first and last displayed record
PoetryCount_first = 1
PoetryCount_last  = PoetryCount_first + PoetryCount_numRows - 1

' if we have the correct record count, check the other stats
If (PoetryCount_total <> -1) Then
  If (PoetryCount_first > PoetryCount_total) Then
    PoetryCount_first = PoetryCount_total
  End If
  If (PoetryCount_last > PoetryCount_total) Then
    PoetryCount_last = PoetryCount_total
  End If
  If (PoetryCount_numRows > PoetryCount_total) Then
    PoetryCount_numRows = PoetryCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim WomensCount_total
Dim WomensCount_first
Dim WomensCount_last

' set the record count
WomensCount_total = WomensCount.RecordCount

' set the number of rows displayed on this page
If (WomensCount_numRows < 0) Then
  WomensCount_numRows = WomensCount_total
Elseif (WomensCount_numRows = 0) Then
  WomensCount_numRows = 1
End If

' set the first and last displayed record
WomensCount_first = 1
WomensCount_last  = WomensCount_first + WomensCount_numRows - 1

' if we have the correct record count, check the other stats
If (WomensCount_total <> -1) Then
  If (WomensCount_first > WomensCount_total) Then
    WomensCount_first = WomensCount_total
  End If
  If (WomensCount_last > WomensCount_total) Then
    WomensCount_last = WomensCount_total
  End If
  If (WomensCount_numRows > WomensCount_total) Then
    WomensCount_numRows = WomensCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim CayceCount_total
Dim CayceCount_first
Dim CayceCount_last

' set the record count
CayceCount_total = CayceCount.RecordCount

' set the number of rows displayed on this page
If (CayceCount_numRows < 0) Then
  CayceCount_numRows = CayceCount_total
Elseif (CayceCount_numRows = 0) Then
  CayceCount_numRows = 1
End If

' set the first and last displayed record
CayceCount_first = 1
CayceCount_last  = CayceCount_first + CayceCount_numRows - 1

' if we have the correct record count, check the other stats
If (CayceCount_total <> -1) Then
  If (CayceCount_first > CayceCount_total) Then
    CayceCount_first = CayceCount_total
  End If
  If (CayceCount_last > CayceCount_total) Then
    CayceCount_last = CayceCount_total
  End If
  If (CayceCount_numRows > CayceCount_total) Then
    CayceCount_numRows = CayceCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim PsychologyCount_total
Dim PsychologyCount_first
Dim PsychologyCount_last

' set the record count
PsychologyCount_total = PsychologyCount.RecordCount

' set the number of rows displayed on this page
If (PsychologyCount_numRows < 0) Then
  PsychologyCount_numRows = PsychologyCount_total
Elseif (PsychologyCount_numRows = 0) Then
  PsychologyCount_numRows = 1
End If

' set the first and last displayed record
PsychologyCount_first = 1
PsychologyCount_last  = PsychologyCount_first + PsychologyCount_numRows - 1

' if we have the correct record count, check the other stats
If (PsychologyCount_total <> -1) Then
  If (PsychologyCount_first > PsychologyCount_total) Then
    PsychologyCount_first = PsychologyCount_total
  End If
  If (PsychologyCount_last > PsychologyCount_total) Then
    PsychologyCount_last = PsychologyCount_total
  End If
  If (PsychologyCount_numRows > PsychologyCount_total) Then
    PsychologyCount_numRows = PsychologyCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim WorldHistoryCount_total
Dim WorldHistoryCount_first
Dim WorldHistoryCount_last

' set the record count
WorldHistoryCount_total = WorldHistoryCount.RecordCount

' set the number of rows displayed on this page
If (WorldHistoryCount_numRows < 0) Then
  WorldHistoryCount_numRows = WorldHistoryCount_total
Elseif (WorldHistoryCount_numRows = 0) Then
  WorldHistoryCount_numRows = 1
End If

' set the first and last displayed record
WorldHistoryCount_first = 1
WorldHistoryCount_last  = WorldHistoryCount_first + WorldHistoryCount_numRows - 1

' if we have the correct record count, check the other stats
If (WorldHistoryCount_total <> -1) Then
  If (WorldHistoryCount_first > WorldHistoryCount_total) Then
    WorldHistoryCount_first = WorldHistoryCount_total
  End If
  If (WorldHistoryCount_last > WorldHistoryCount_total) Then
    WorldHistoryCount_last = WorldHistoryCount_total
  End If
  If (WorldHistoryCount_numRows > WorldHistoryCount_total) Then
    WorldHistoryCount_numRows = WorldHistoryCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim EnvironmentCount_total
Dim EnvironmentCount_first
Dim EnvironmentCount_last

' set the record count
EnvironmentCount_total = EnvironmentCount.RecordCount

' set the number of rows displayed on this page
If (EnvironmentCount_numRows < 0) Then
  EnvironmentCount_numRows = EnvironmentCount_total
Elseif (EnvironmentCount_numRows = 0) Then
  EnvironmentCount_numRows = 1
End If

' set the first and last displayed record
EnvironmentCount_first = 1
EnvironmentCount_last  = EnvironmentCount_first + EnvironmentCount_numRows - 1

' if we have the correct record count, check the other stats
If (EnvironmentCount_total <> -1) Then
  If (EnvironmentCount_first > EnvironmentCount_total) Then
    EnvironmentCount_first = EnvironmentCount_total
  End If
  If (EnvironmentCount_last > EnvironmentCount_total) Then
    EnvironmentCount_last = EnvironmentCount_total
  End If
  If (EnvironmentCount_numRows > EnvironmentCount_total) Then
    EnvironmentCount_numRows = EnvironmentCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim RelationshipsCount_total
Dim RelationshipsCount_first
Dim RelationshipsCount_last

' set the record count
RelationshipsCount_total = RelationshipsCount.RecordCount

' set the number of rows displayed on this page
If (RelationshipsCount_numRows < 0) Then
  RelationshipsCount_numRows = RelationshipsCount_total
Elseif (RelationshipsCount_numRows = 0) Then
  RelationshipsCount_numRows = 1
End If

' set the first and last displayed record
RelationshipsCount_first = 1
RelationshipsCount_last  = RelationshipsCount_first + RelationshipsCount_numRows - 1

' if we have the correct record count, check the other stats
If (RelationshipsCount_total <> -1) Then
  If (RelationshipsCount_first > RelationshipsCount_total) Then
    RelationshipsCount_first = RelationshipsCount_total
  End If
  If (RelationshipsCount_last > RelationshipsCount_total) Then
    RelationshipsCount_last = RelationshipsCount_total
  End If
  If (RelationshipsCount_numRows > RelationshipsCount_total) Then
    RelationshipsCount_numRows = RelationshipsCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim FictionCount_total
Dim FictionCount_first
Dim FictionCount_last

' set the record count
FictionCount_total = FictionCount.RecordCount

' set the number of rows displayed on this page
If (FictionCount_numRows < 0) Then
  FictionCount_numRows = FictionCount_total
Elseif (FictionCount_numRows = 0) Then
  FictionCount_numRows = 1
End If

' set the first and last displayed record
FictionCount_first = 1
FictionCount_last  = FictionCount_first + FictionCount_numRows - 1

' if we have the correct record count, check the other stats
If (FictionCount_total <> -1) Then
  If (FictionCount_first > FictionCount_total) Then
    FictionCount_first = FictionCount_total
  End If
  If (FictionCount_last > FictionCount_total) Then
    FictionCount_last = FictionCount_total
  End If
  If (FictionCount_numRows > FictionCount_total) Then
    FictionCount_numRows = FictionCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim ScienceCount_total
Dim ScienceCount_first
Dim ScienceCount_last

' set the record count
ScienceCount_total = ScienceCount.RecordCount

' set the number of rows displayed on this page
If (ScienceCount_numRows < 0) Then
  ScienceCount_numRows = ScienceCount_total
Elseif (ScienceCount_numRows = 0) Then
  ScienceCount_numRows = 1
End If

' set the first and last displayed record
ScienceCount_first = 1
ScienceCount_last  = ScienceCount_first + ScienceCount_numRows - 1

' if we have the correct record count, check the other stats
If (ScienceCount_total <> -1) Then
  If (ScienceCount_first > ScienceCount_total) Then
    ScienceCount_first = ScienceCount_total
  End If
  If (ScienceCount_last > ScienceCount_total) Then
    ScienceCount_last = ScienceCount_total
  End If
  If (ScienceCount_numRows > ScienceCount_total) Then
    ScienceCount_numRows = ScienceCount_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim AstrologyCount_total
Dim AstrologyCount_first
Dim AstrologyCount_last

' set the record count
AstrologyCount_total = AstrologyCount.RecordCount

' set the number of rows displayed on this page
If (AstrologyCount_numRows < 0) Then
  AstrologyCount_numRows = AstrologyCount_total
Elseif (AstrologyCount_numRows = 0) Then
  AstrologyCount_numRows = 1
End If

' set the first and last displayed record
AstrologyCount_first = 1
AstrologyCount_last  = AstrologyCount_first + AstrologyCount_numRows - 1

' if we have the correct record count, check the other stats
If (AstrologyCount_total <> -1) Then
  If (AstrologyCount_first > AstrologyCount_total) Then
    AstrologyCount_first = AstrologyCount_total
  End If
  If (AstrologyCount_last > AstrologyCount_total) Then
    AstrologyCount_last = AstrologyCount_total
  End If
  If (AstrologyCount_numRows > AstrologyCount_total) Then
    AstrologyCount_numRows = AstrologyCount_total
  End If
End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (HealthCount_total = -1) Then

  ' count the total records by iterating through the recordset
  HealthCount_total=0
  While (Not HealthCount.EOF)
    HealthCount_total = HealthCount_total + 1
    HealthCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (HealthCount.CursorType > 0) Then
    HealthCount.MoveFirst
  Else
    HealthCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (HealthCount_numRows < 0 Or HealthCount_numRows > HealthCount_total) Then
    HealthCount_numRows = HealthCount_total
  End If

  ' set the first and last displayed record
  HealthCount_first = 1
  HealthCount_last = HealthCount_first + HealthCount_numRows - 1
  
  If (HealthCount_first > HealthCount_total) Then
    HealthCount_first = HealthCount_total
  End If
  If (HealthCount_last > HealthCount_total) Then
    HealthCount_last = HealthCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (SelfImprovementCount_total = -1) Then

  ' count the total records by iterating through the recordset
  SelfImprovementCount_total=0
  While (Not SelfImprovementCount.EOF)
    SelfImprovementCount_total = SelfImprovementCount_total + 1
    SelfImprovementCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (SelfImprovementCount.CursorType > 0) Then
    SelfImprovementCount.MoveFirst
  Else
    SelfImprovementCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (SelfImprovementCount_numRows < 0 Or SelfImprovementCount_numRows > SelfImprovementCount_total) Then
    SelfImprovementCount_numRows = SelfImprovementCount_total
  End If

  ' set the first and last displayed record
  SelfImprovementCount_first = 1
  SelfImprovementCount_last = SelfImprovementCount_first + SelfImprovementCount_numRows - 1
  
  If (SelfImprovementCount_first > SelfImprovementCount_total) Then
    SelfImprovementCount_first = SelfImprovementCount_total
  End If
  If (SelfImprovementCount_last > SelfImprovementCount_total) Then
    SelfImprovementCount_last = SelfImprovementCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (BusinessCount_total = -1) Then

  ' count the total records by iterating through the recordset
  BusinessCount_total=0
  While (Not BusinessCount.EOF)
    BusinessCount_total = BusinessCount_total + 1
    BusinessCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (BusinessCount.CursorType > 0) Then
    BusinessCount.MoveFirst
  Else
    BusinessCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (BusinessCount_numRows < 0 Or BusinessCount_numRows > BusinessCount_total) Then
    BusinessCount_numRows = BusinessCount_total
  End If

  ' set the first and last displayed record
  BusinessCount_first = 1
  BusinessCount_last = BusinessCount_first + BusinessCount_numRows - 1
  
  If (BusinessCount_first > BusinessCount_total) Then
    BusinessCount_first = BusinessCount_total
  End If
  If (BusinessCount_last > BusinessCount_total) Then
    BusinessCount_last = BusinessCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (HumorCount_total = -1) Then

  ' count the total records by iterating through the recordset
  HumorCount_total=0
  While (Not HumorCount.EOF)
    HumorCount_total = HumorCount_total + 1
    HumorCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (HumorCount.CursorType > 0) Then
    HumorCount.MoveFirst
  Else
    HumorCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (HumorCount_numRows < 0 Or HumorCount_numRows > HumorCount_total) Then
    HumorCount_numRows = HumorCount_total
  End If

  ' set the first and last displayed record
  HumorCount_first = 1
  HumorCount_last = HumorCount_first + HumorCount_numRows - 1
  
  If (HumorCount_first > HumorCount_total) Then
    HumorCount_first = HumorCount_total
  End If
  If (HumorCount_last > HumorCount_total) Then
    HumorCount_last = HumorCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (SpiritualityCount_total = -1) Then

  ' count the total records by iterating through the recordset
  SpiritualityCount_total=0
  While (Not SpiritualityCount.EOF)
    SpiritualityCount_total = SpiritualityCount_total + 1
    SpiritualityCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (SpiritualityCount.CursorType > 0) Then
    SpiritualityCount.MoveFirst
  Else
    SpiritualityCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (SpiritualityCount_numRows < 0 Or SpiritualityCount_numRows > SpiritualityCount_total) Then
    SpiritualityCount_numRows = SpiritualityCount_total
  End If

  ' set the first and last displayed record
  SpiritualityCount_first = 1
  SpiritualityCount_last = SpiritualityCount_first + SpiritualityCount_numRows - 1
  
  If (SpiritualityCount_first > SpiritualityCount_total) Then
    SpiritualityCount_first = SpiritualityCount_total
  End If
  If (SpiritualityCount_last > SpiritualityCount_total) Then
    SpiritualityCount_last = SpiritualityCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (ChannelingCount_total = -1) Then

  ' count the total records by iterating through the recordset
  ChannelingCount_total=0
  While (Not ChannelingCount.EOF)
    ChannelingCount_total = ChannelingCount_total + 1
    ChannelingCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (ChannelingCount.CursorType > 0) Then
    ChannelingCount.MoveFirst
  Else
    ChannelingCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (ChannelingCount_numRows < 0 Or ChannelingCount_numRows > ChannelingCount_total) Then
    ChannelingCount_numRows = ChannelingCount_total
  End If

  ' set the first and last displayed record
  ChannelingCount_first = 1
  ChannelingCount_last = ChannelingCount_first + ChannelingCount_numRows - 1
  
  If (ChannelingCount_first > ChannelingCount_total) Then
    ChannelingCount_first = ChannelingCount_total
  End If
  If (ChannelingCount_last > ChannelingCount_total) Then
    ChannelingCount_last = ChannelingCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (MusicCount_total = -1) Then

  ' count the total records by iterating through the recordset
  MusicCount_total=0
  While (Not MusicCount.EOF)
    MusicCount_total = MusicCount_total + 1
    MusicCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (MusicCount.CursorType > 0) Then
    MusicCount.MoveFirst
  Else
    MusicCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (MusicCount_numRows < 0 Or MusicCount_numRows > MusicCount_total) Then
    MusicCount_numRows = MusicCount_total
  End If

  ' set the first and last displayed record
  MusicCount_first = 1
  MusicCount_last = MusicCount_first + MusicCount_numRows - 1
  
  If (MusicCount_first > MusicCount_total) Then
    MusicCount_first = MusicCount_total
  End If
  If (MusicCount_last > MusicCount_total) Then
    MusicCount_last = MusicCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (SportsCount_total = -1) Then

  ' count the total records by iterating through the recordset
  SportsCount_total=0
  While (Not SportsCount.EOF)
    SportsCount_total = SportsCount_total + 1
    SportsCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (SportsCount.CursorType > 0) Then
    SportsCount.MoveFirst
  Else
    SportsCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (SportsCount_numRows < 0 Or SportsCount_numRows > SportsCount_total) Then
    SportsCount_numRows = SportsCount_total
  End If

  ' set the first and last displayed record
  SportsCount_first = 1
  SportsCount_last = SportsCount_first + SportsCount_numRows - 1
  
  If (SportsCount_first > SportsCount_total) Then
    SportsCount_first = SportsCount_total
  End If
  If (SportsCount_last > SportsCount_total) Then
    SportsCount_last = SportsCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (ConspiracyCount_total = -1) Then

  ' count the total records by iterating through the recordset
  ConspiracyCount_total=0
  While (Not ConspiracyCount.EOF)
    ConspiracyCount_total = ConspiracyCount_total + 1
    ConspiracyCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (ConspiracyCount.CursorType > 0) Then
    ConspiracyCount.MoveFirst
  Else
    ConspiracyCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (ConspiracyCount_numRows < 0 Or ConspiracyCount_numRows > ConspiracyCount_total) Then
    ConspiracyCount_numRows = ConspiracyCount_total
  End If

  ' set the first and last displayed record
  ConspiracyCount_first = 1
  ConspiracyCount_last = ConspiracyCount_first + ConspiracyCount_numRows - 1
  
  If (ConspiracyCount_first > ConspiracyCount_total) Then
    ConspiracyCount_first = ConspiracyCount_total
  End If
  If (ConspiracyCount_last > ConspiracyCount_total) Then
    ConspiracyCount_last = ConspiracyCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (ParanormalCount_total = -1) Then

  ' count the total records by iterating through the recordset
  ParanormalCount_total=0
  While (Not ParanormalCount.EOF)
    ParanormalCount_total = ParanormalCount_total + 1
    ParanormalCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (ParanormalCount.CursorType > 0) Then
    ParanormalCount.MoveFirst
  Else
    ParanormalCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (ParanormalCount_numRows < 0 Or ParanormalCount_numRows > ParanormalCount_total) Then
    ParanormalCount_numRows = ParanormalCount_total
  End If

  ' set the first and last displayed record
  ParanormalCount_first = 1
  ParanormalCount_last = ParanormalCount_first + ParanormalCount_numRows - 1
  
  If (ParanormalCount_first > ParanormalCount_total) Then
    ParanormalCount_first = ParanormalCount_total
  End If
  If (ParanormalCount_last > ParanormalCount_total) Then
    ParanormalCount_last = ParanormalCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (TravelCount_total = -1) Then

  ' count the total records by iterating through the recordset
  TravelCount_total=0
  While (Not TravelCount.EOF)
    TravelCount_total = TravelCount_total + 1
    TravelCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (TravelCount.CursorType > 0) Then
    TravelCount.MoveFirst
  Else
    TravelCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (TravelCount_numRows < 0 Or TravelCount_numRows > TravelCount_total) Then
    TravelCount_numRows = TravelCount_total
  End If

  ' set the first and last displayed record
  TravelCount_first = 1
  TravelCount_last = TravelCount_first + TravelCount_numRows - 1
  
  If (TravelCount_first > TravelCount_total) Then
    TravelCount_first = TravelCount_total
  End If
  If (TravelCount_last > TravelCount_total) Then
    TravelCount_last = TravelCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (CultureCount_total = -1) Then

  ' count the total records by iterating through the recordset
  CultureCount_total=0
  While (Not CultureCount.EOF)
    CultureCount_total = CultureCount_total + 1
    CultureCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (CultureCount.CursorType > 0) Then
    CultureCount.MoveFirst
  Else
    CultureCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (CultureCount_numRows < 0 Or CultureCount_numRows > CultureCount_total) Then
    CultureCount_numRows = CultureCount_total
  End If

  ' set the first and last displayed record
  CultureCount_first = 1
  CultureCount_last = CultureCount_first + CultureCount_numRows - 1
  
  If (CultureCount_first > CultureCount_total) Then
    CultureCount_first = CultureCount_total
  End If
  If (CultureCount_last > CultureCount_total) Then
    CultureCount_last = CultureCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (MemoirCount_total = -1) Then

  ' count the total records by iterating through the recordset
  MemoirCount_total=0
  While (Not MemoirCount.EOF)
    MemoirCount_total = MemoirCount_total + 1
    MemoirCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (MemoirCount.CursorType > 0) Then
    MemoirCount.MoveFirst
  Else
    MemoirCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (MemoirCount_numRows < 0 Or MemoirCount_numRows > MemoirCount_total) Then
    MemoirCount_numRows = MemoirCount_total
  End If

  ' set the first and last displayed record
  MemoirCount_first = 1
  MemoirCount_last = MemoirCount_first + MemoirCount_numRows - 1
  
  If (MemoirCount_first > MemoirCount_total) Then
    MemoirCount_first = MemoirCount_total
  End If
  If (MemoirCount_last > MemoirCount_total) Then
    MemoirCount_last = MemoirCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (UFOsCount_total = -1) Then

  ' count the total records by iterating through the recordset
  UFOsCount_total=0
  While (Not UFOsCount.EOF)
    UFOsCount_total = UFOsCount_total + 1
    UFOsCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (UFOsCount.CursorType > 0) Then
    UFOsCount.MoveFirst
  Else
    UFOsCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (UFOsCount_numRows < 0 Or UFOsCount_numRows > UFOsCount_total) Then
    UFOsCount_numRows = UFOsCount_total
  End If

  ' set the first and last displayed record
  UFOsCount_first = 1
  UFOsCount_last = UFOsCount_first + UFOsCount_numRows - 1
  
  If (UFOsCount_first > UFOsCount_total) Then
    UFOsCount_first = UFOsCount_total
  End If
  If (UFOsCount_last > UFOsCount_total) Then
    UFOsCount_last = UFOsCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (CryptozoologyCount_total = -1) Then

  ' count the total records by iterating through the recordset
  CryptozoologyCount_total=0
  While (Not CryptozoologyCount.EOF)
    CryptozoologyCount_total = CryptozoologyCount_total + 1
    CryptozoologyCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (CryptozoologyCount.CursorType > 0) Then
    CryptozoologyCount.MoveFirst
  Else
    CryptozoologyCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (CryptozoologyCount_numRows < 0 Or CryptozoologyCount_numRows > CryptozoologyCount_total) Then
    CryptozoologyCount_numRows = CryptozoologyCount_total
  End If

  ' set the first and last displayed record
  CryptozoologyCount_first = 1
  CryptozoologyCount_last = CryptozoologyCount_first + CryptozoologyCount_numRows - 1
  
  If (CryptozoologyCount_first > CryptozoologyCount_total) Then
    CryptozoologyCount_first = CryptozoologyCount_total
  End If
  If (CryptozoologyCount_last > CryptozoologyCount_total) Then
    CryptozoologyCount_last = CryptozoologyCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (PetCareCount_total = -1) Then

  ' count the total records by iterating through the recordset
  PetCareCount_total=0
  While (Not PetCareCount.EOF)
    PetCareCount_total = PetCareCount_total + 1
    PetCareCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (PetCareCount.CursorType > 0) Then
    PetCareCount.MoveFirst
  Else
    PetCareCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (PetCareCount_numRows < 0 Or PetCareCount_numRows > PetCareCount_total) Then
    PetCareCount_numRows = PetCareCount_total
  End If

  ' set the first and last displayed record
  PetCareCount_first = 1
  PetCareCount_last = PetCareCount_first + PetCareCount_numRows - 1
  
  If (PetCareCount_first > PetCareCount_total) Then
    PetCareCount_first = PetCareCount_total
  End If
  If (PetCareCount_last > PetCareCount_total) Then
    PetCareCount_last = PetCareCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (WiccaCount_total = -1) Then

  ' count the total records by iterating through the recordset
  WiccaCount_total=0
  While (Not WiccaCount.EOF)
    WiccaCount_total = WiccaCount_total + 1
    WiccaCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (WiccaCount.CursorType > 0) Then
    WiccaCount.MoveFirst
  Else
    WiccaCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (WiccaCount_numRows < 0 Or WiccaCount_numRows > WiccaCount_total) Then
    WiccaCount_numRows = WiccaCount_total
  End If

  ' set the first and last displayed record
  WiccaCount_first = 1
  WiccaCount_last = WiccaCount_first + WiccaCount_numRows - 1
  
  If (WiccaCount_first > WiccaCount_total) Then
    WiccaCount_first = WiccaCount_total
  End If
  If (WiccaCount_last > WiccaCount_total) Then
    WiccaCount_last = WiccaCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (EasternPhilosophyCount_total = -1) Then

  ' count the total records by iterating through the recordset
  EasternPhilosophyCount_total=0
  While (Not EasternPhilosophyCount.EOF)
    EasternPhilosophyCount_total = EasternPhilosophyCount_total + 1
    EasternPhilosophyCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (EasternPhilosophyCount.CursorType > 0) Then
    EasternPhilosophyCount.MoveFirst
  Else
    EasternPhilosophyCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (EasternPhilosophyCount_numRows < 0 Or EasternPhilosophyCount_numRows > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_numRows = EasternPhilosophyCount_total
  End If

  ' set the first and last displayed record
  EasternPhilosophyCount_first = 1
  EasternPhilosophyCount_last = EasternPhilosophyCount_first + EasternPhilosophyCount_numRows - 1
  
  If (EasternPhilosophyCount_first > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_first = EasternPhilosophyCount_total
  End If
  If (EasternPhilosophyCount_last > EasternPhilosophyCount_total) Then
    EasternPhilosophyCount_last = EasternPhilosophyCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (PoetryCount_total = -1) Then

  ' count the total records by iterating through the recordset
  PoetryCount_total=0
  While (Not PoetryCount.EOF)
    PoetryCount_total = PoetryCount_total + 1
    PoetryCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (PoetryCount.CursorType > 0) Then
    PoetryCount.MoveFirst
  Else
    PoetryCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (PoetryCount_numRows < 0 Or PoetryCount_numRows > PoetryCount_total) Then
    PoetryCount_numRows = PoetryCount_total
  End If

  ' set the first and last displayed record
  PoetryCount_first = 1
  PoetryCount_last = PoetryCount_first + PoetryCount_numRows - 1
  
  If (PoetryCount_first > PoetryCount_total) Then
    PoetryCount_first = PoetryCount_total
  End If
  If (PoetryCount_last > PoetryCount_total) Then
    PoetryCount_last = PoetryCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (WomensCount_total = -1) Then

  ' count the total records by iterating through the recordset
  WomensCount_total=0
  While (Not WomensCount.EOF)
    WomensCount_total = WomensCount_total + 1
    WomensCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (WomensCount.CursorType > 0) Then
    WomensCount.MoveFirst
  Else
    WomensCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (WomensCount_numRows < 0 Or WomensCount_numRows > WomensCount_total) Then
    WomensCount_numRows = WomensCount_total
  End If

  ' set the first and last displayed record
  WomensCount_first = 1
  WomensCount_last = WomensCount_first + WomensCount_numRows - 1
  
  If (WomensCount_first > WomensCount_total) Then
    WomensCount_first = WomensCount_total
  End If
  If (WomensCount_last > WomensCount_total) Then
    WomensCount_last = WomensCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (CayceCount_total = -1) Then

  ' count the total records by iterating through the recordset
  CayceCount_total=0
  While (Not CayceCount.EOF)
    CayceCount_total = CayceCount_total + 1
    CayceCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (CayceCount.CursorType > 0) Then
    CayceCount.MoveFirst
  Else
    CayceCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (CayceCount_numRows < 0 Or CayceCount_numRows > CayceCount_total) Then
    CayceCount_numRows = CayceCount_total
  End If

  ' set the first and last displayed record
  CayceCount_first = 1
  CayceCount_last = CayceCount_first + CayceCount_numRows - 1
  
  If (CayceCount_first > CayceCount_total) Then
    CayceCount_first = CayceCount_total
  End If
  If (CayceCount_last > CayceCount_total) Then
    CayceCount_last = CayceCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (PsychologyCount_total = -1) Then

  ' count the total records by iterating through the recordset
  PsychologyCount_total=0
  While (Not PsychologyCount.EOF)
    PsychologyCount_total = PsychologyCount_total + 1
    PsychologyCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (PsychologyCount.CursorType > 0) Then
    PsychologyCount.MoveFirst
  Else
    PsychologyCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (PsychologyCount_numRows < 0 Or PsychologyCount_numRows > PsychologyCount_total) Then
    PsychologyCount_numRows = PsychologyCount_total
  End If

  ' set the first and last displayed record
  PsychologyCount_first = 1
  PsychologyCount_last = PsychologyCount_first + PsychologyCount_numRows - 1
  
  If (PsychologyCount_first > PsychologyCount_total) Then
    PsychologyCount_first = PsychologyCount_total
  End If
  If (PsychologyCount_last > PsychologyCount_total) Then
    PsychologyCount_last = PsychologyCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (WorldHistoryCount_total = -1) Then

  ' count the total records by iterating through the recordset
  WorldHistoryCount_total=0
  While (Not WorldHistoryCount.EOF)
    WorldHistoryCount_total = WorldHistoryCount_total + 1
    WorldHistoryCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (WorldHistoryCount.CursorType > 0) Then
    WorldHistoryCount.MoveFirst
  Else
    WorldHistoryCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (WorldHistoryCount_numRows < 0 Or WorldHistoryCount_numRows > WorldHistoryCount_total) Then
    WorldHistoryCount_numRows = WorldHistoryCount_total
  End If

  ' set the first and last displayed record
  WorldHistoryCount_first = 1
  WorldHistoryCount_last = WorldHistoryCount_first + WorldHistoryCount_numRows - 1
  
  If (WorldHistoryCount_first > WorldHistoryCount_total) Then
    WorldHistoryCount_first = WorldHistoryCount_total
  End If
  If (WorldHistoryCount_last > WorldHistoryCount_total) Then
    WorldHistoryCount_last = WorldHistoryCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (EnvironmentCount_total = -1) Then

  ' count the total records by iterating through the recordset
  EnvironmentCount_total=0
  While (Not EnvironmentCount.EOF)
    EnvironmentCount_total = EnvironmentCount_total + 1
    EnvironmentCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (EnvironmentCount.CursorType > 0) Then
    EnvironmentCount.MoveFirst
  Else
    EnvironmentCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (EnvironmentCount_numRows < 0 Or EnvironmentCount_numRows > EnvironmentCount_total) Then
    EnvironmentCount_numRows = EnvironmentCount_total
  End If

  ' set the first and last displayed record
  EnvironmentCount_first = 1
  EnvironmentCount_last = EnvironmentCount_first + EnvironmentCount_numRows - 1
  
  If (EnvironmentCount_first > EnvironmentCount_total) Then
    EnvironmentCount_first = EnvironmentCount_total
  End If
  If (EnvironmentCount_last > EnvironmentCount_total) Then
    EnvironmentCount_last = EnvironmentCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (RelationshipsCount_total = -1) Then

  ' count the total records by iterating through the recordset
  RelationshipsCount_total=0
  While (Not RelationshipsCount.EOF)
    RelationshipsCount_total = RelationshipsCount_total + 1
    RelationshipsCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (RelationshipsCount.CursorType > 0) Then
    RelationshipsCount.MoveFirst
  Else
    RelationshipsCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (RelationshipsCount_numRows < 0 Or RelationshipsCount_numRows > RelationshipsCount_total) Then
    RelationshipsCount_numRows = RelationshipsCount_total
  End If

  ' set the first and last displayed record
  RelationshipsCount_first = 1
  RelationshipsCount_last = RelationshipsCount_first + RelationshipsCount_numRows - 1
  
  If (RelationshipsCount_first > RelationshipsCount_total) Then
    RelationshipsCount_first = RelationshipsCount_total
  End If
  If (RelationshipsCount_last > RelationshipsCount_total) Then
    RelationshipsCount_last = RelationshipsCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (FictionCount_total = -1) Then

  ' count the total records by iterating through the recordset
  FictionCount_total=0
  While (Not FictionCount.EOF)
    FictionCount_total = FictionCount_total + 1
    FictionCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (FictionCount.CursorType > 0) Then
    FictionCount.MoveFirst
  Else
    FictionCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (FictionCount_numRows < 0 Or FictionCount_numRows > FictionCount_total) Then
    FictionCount_numRows = FictionCount_total
  End If

  ' set the first and last displayed record
  FictionCount_first = 1
  FictionCount_last = FictionCount_first + FictionCount_numRows - 1
  
  If (FictionCount_first > FictionCount_total) Then
    FictionCount_first = FictionCount_total
  End If
  If (FictionCount_last > FictionCount_total) Then
    FictionCount_last = FictionCount_total
  End If

End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (ScienceCount_total = -1) Then

  ' count the total records by iterating through the recordset
  ScienceCount_total=0
  While (Not ScienceCount.EOF)
    ScienceCount_total = ScienceCount_total + 1
    ScienceCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (ScienceCount.CursorType > 0) Then
    ScienceCount.MoveFirst
  Else
    ScienceCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (ScienceCount_numRows < 0 Or ScienceCount_numRows > ScienceCount_total) Then
    ScienceCount_numRows = ScienceCount_total
  End If

  ' set the first and last displayed record
  ScienceCount_first = 1
  ScienceCount_last = ScienceCount_first + ScienceCount_numRows - 1
  
  If (ScienceCount_first > ScienceCount_total) Then
    ScienceCount_first = ScienceCount_total
  End If
  If (ScienceCount_last > ScienceCount_total) Then
    ScienceCount_last = ScienceCount_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (AstrologyCount_total = -1) Then

  ' count the total records by iterating through the recordset
  AstrologyCount_total=0
  While (Not AstrologyCount.EOF)
    AstrologyCount_total = AstrologyCount_total + 1
    AstrologyCount.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (AstrologyCount.CursorType > 0) Then
    AstrologyCount.MoveFirst
  Else
    AstrologyCount.Requery
  End If

  ' set the number of rows displayed on this page
  If (AstrologyCount_numRows < 0 Or AstrologyCount_numRows > AstrologyCount_total) Then
    AstrologyCount_numRows = AstrologyCount_total
  End If

  ' set the first and last displayed record
  AstrologyCount_first = 1
  AstrologyCount_last = AstrologyCount_first + AstrologyCount_numRows - 1
  
  If (AstrologyCount_first > AstrologyCount_total) Then
    AstrologyCount_first = AstrologyCount_total
  End If
  If (AstrologyCount_last > AstrologyCount_total) Then
    AstrologyCount_last = AstrologyCount_total
  End If

End If
%>


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Paraview Bookstore Catalog</title>
<meta name="description" content="Paraview offers books, eBooks, articles and streaming video, and print on demand.">
<meta name="keywords" content="spirituality, print on demand, Ebooks, ebooks, new media, UFOs, UFO, visionary books, new age, consciousness, Edgar Cayce, new publisher, cryptozoology, astrology, women�s studies, feminist, innovations">
<link rel="STYLESHEET" type="text/css" href="stylesheets/para_style6b.css">
<script type="text/javascript" language="JavaScript1.2" src="virtualmenu.js">
</script>
</head>
<body background="images/back1.jpg" bgcolor="#ffffff" text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align="center">
<center>
<table border="1" cellpadding="0" cellspacing="0" width="630" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" width="630">
<tr>
<td>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#FFFFFF" height="104" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="11" height="85">
<img border="0" src="http://www.paraview.com/images/white_spacer.gif" width="11" height="85"></td>
<td width="389" height="85" valign="top">
<a href="index.htm">
<img border="0" src="http://www.paraview.com/images/paraview_logo_multimedia.gif" WIDTH="389" HEIGHT="85"></a></td>
<td width="230" valign="top" height="85">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="230">
  <tr>
    <td width="230" height="25">
    <img border="0" src="images/p_1b.gif" WIDTH="230" HEIGHT="25"></td>
  </tr>
  <tr>
    <td width="230" height="24">
    <a href="what_is_paraview_new.htm" TARGET="dedicated" onClick="document.open('what_is_paraview_new.htm','dedicated','width=430,height=500','top=0')">
    <img border="0" src="images/bookstore_header2.gif" WIDTH="230" HEIGHT="24"></a></td>
  </tr>
  <tr>
    <td width="230" height="32">
    <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="230" height="32">
      <tr>
        <td width="36" height="32" bgcolor="#E6F2F6">
<img border="0" src="http://www.paraview.com/images/spacer.gif" width="36" height="32"></td>
        <td width="168" height="32" align="left" valign="top" bgcolor="#E6F2F6">

    
<table border="0" cellpadding="0" cellspacing="0" width="168" height="32" bgcolor="#E6F2F6" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td nowrap height="32" width="126" bgcolor="#E6F2F6">

<form method="get" action="http://search.atomz.com/search/">
<input type="hidden" name="sp-a" value="sp100140c4">
<input class="field" maxlength="30" size="8" name="sp-q" style="float: right">
</td>
<input type="hidden" name="sp-a" value="sp1001828f">
<td nowrap height="32" width="52" bgcolor="#E6F2F6">
<input type="image" alt="Search" src="images/search_paraview_button.gif" value="Search" border="0" name="search" WIDTH="52" HEIGHT="32"></td></form>
</tr>
</table>
        </td>
        <td width="16" height="32">
        <img border="0" src="images/p_rb2.gif" WIDTH="16" HEIGHT="32"></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="230" height="4">
    <img border="0" src="images/p_rb.gif" WIDTH="230" HEIGHT="4"></td>
  </tr>
</table>
</td>
</tr>

<tr>
<td width="630" height="19" colspan="3" bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="630" height="19">
  <tr>
    <td width="12" height="20"></td>
    <td>


<table border="0" cellpadding="0" cellspacing="0" width="618" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td valign="top" height="20" bgcolor="#FFFFFF" width="618">
<p align="left">
<script language="JavaScript1.2">
mymenu = new DDTMenu
mymenu.mainmenuitemsize(120,19)
mymenu.submenuitemsize(170,19)
mymenu.submenuplacing(0,0)

mymenu.secondsubmenuplacing(0,0)
mymenu.mainborderimages("http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif")
mymenu.mainbordercorners("http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif")
mymenu.mainborderdimensions(1,1,1)
mymenu.subborderimages("http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif")
mymenu.subbordercorners("http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif","http://www.paraview.com/images/blackpixel.gif")
mymenu.subborderdimensions(1,1,1)
mymenu.mainmenucolor("#deefff")
mymenu.submenucolor("#deefff")
mymenu.mainpreimage("http://www.paraview.com/images/marrow.gif","",10,19);
mymenu.subpreimage("http://www.paraview.com/images/marrow.gif","",10,19);
mymenu.netscapeadjust(3,3)
mymenu.definemainspacer("http://www.paraview.com/images/blackpixel.gif",1)
mymenu.definesubspacer("http://www.paraview.com/images/blackpixel.gif",1)
mymenu.startMenu()
mymenu.addMenu("HOME","&nbsp;PARAVIEW HOME", "")
mymenu.addMenu("PUBLISHING","&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;PUBLISHING", "")
mymenu.addMenu("LITERARY AGENCY","&nbsp;LITERARY AGENCY", "")
mymenu.addMenu("PRODUCTIONS","&nbsp;&nbsp;&nbsp;&nbsp;PRODUCTIONS", "")
mymenu.addMenu("MEDIA GUIDE","&nbsp;FREE MEDIA GUIDE", "")
mymenu.showMainMenu()

mymenu.addSubMenu("HOME", "", " What's New on the Site", "http://www.paraview.com/index.htm")
mymenu.addSubMenu("HOME", "", " Readers:&nbsp; Buy Books", "http://www.paraview.com/bookstore/catalog_home.asp")
mymenu.addSubMenu("HOME", "", " eBook Catalog", "http://www.paraview.com/ebooks.htm")
mymenu.addSubMenu("HOME", "", " About Paraview", "http://www.paraview.com/about_us.htm")
mymenu.addSubMenu("HOME", "", " Press Releases & News", "http://www.paraview.com/press_release_main.htm")
mymenu.addSubMenu("HOME", "", " Articles & Interviews", "http://www.paraview.com/articles_and_interviews.htm")
mymenu.addSubMenu("HOME", "", " Links", "http://www.paraview.com/links.htm")
mymenu.addSubMenu("HOME", "", " Contact Us", "http://www.paraview.com/contact_us.htm")

mymenu.addSubMenu("PUBLISHING","AUTHOR SERVICES", " Author Services", "http://www.paraview.com/author_home.htm", "")
mymenu.addSubMenu("PUBLISHING", "", " Booksellers: Our Book List", "http://www.paraview.com/bookstore/ordering_booksellers.asp")
mymenu.addSubMenu("PUBLISHING", "", " Speakers Bureau", "http://www.paraview.com/speakers_bureau.htm")
mymenu.addSubMenu("PUBLISHING", "", " Organizational Publishing", "http://www.paraview.com/organizational_publishing.htm")
mymenu.addSubMenu("PUBLISHING", "ABOUT PUB", " About Paraview Publishing", "http://www.paraview.com/paraview_publishing.htm")
mymenu.addSubMenu("PUBLISHING", "", " Contact Us", "http://www.paraview.com/contact_us.htm#publishing")

mymenu.addSubMenu("LITERARY AGENCY", "", " Authors: &nbsp;Get an Agent", "http://www.paraview.com/get_a_literary_agent.htm")
mymenu.addSubMenu("LITERARY AGENCY", "", " Agency Clients", "http://www.paraview.com/books_clients.htm")
mymenu.addSubMenu("LITERARY AGENCY", "", " About Literary Agency", "http://www.paraview.com/about_us.htm#agency")
mymenu.addSubMenu("LITERARY AGENCY", "", " Contact Us", "http://www.paraview.com/contact_us.htm#agency")

mymenu.addSubMenu("PRODUCTIONS", "", " What's New: &nbsp;Productions", "http://www.paraview.com/productions_home.htm")
mymenu.addSubMenu("PRODUCTIONS", "", " Buy Streaming Video", "http://www.paraview.com/streaming_video.htm")
mymenu.addSubMenu("PRODUCTIONS", "", " Documentaries", "http://www.paraview.com/documentaries.htm")
mymenu.addSubMenu("PRODUCTIONS", "", " About Productions", "http://www.paraview.com/about_us.htm#productions")
mymenu.addSubMenu("PRODUCTIONS", "", " Contact Us", "http://www.paraview.com/contact_us.htm#productions")

mymenu.addSubMenu("MEDIA GUIDE", "", " New Issue", "http://www.paraview.com/conscious_planet_current_newsletter.htm")
mymenu.addSubMenu("MEDIA GUIDE", "", " Conscious TV", "http://www.paraview.com/conscious_tv.htm")
mymenu.addSubMenu("MEDIA GUIDE", "", " Conscious Radio", "http://www.paraview.com/conscious_radio.htm")
mymenu.addSubMenu("MEDIA GUIDE", "", " Conscious Internet", "http://www.paraview.com/links.htm")
mymenu.addSubMenu("MEDIA GUIDE", "", " Media Guide Archive", "http://www.paraview.com/consciousplanet_newsletter_archive/conscious_planet_newsletter_index.htm")
mymenu.addSubMenu("MEDIA GUIDE", "", " About the Guide/Sign Up", "http://www.paraview.com/conscious_planet_home.htm")


// third level menus
mymenu.addSubMenu("AUTHOR SERVICES", "", " Get Published", "http://www.paraview.com/how_to_get_published.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " Proposal Form", "http://www.paraview.com/online_proposal_form.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " Preparing Your Manuscript", "http://www.paraview.com/preparing_your_manuscript.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " Author's Questionnaire", "http://www.paraview.com/author_questionnaire.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " How We Market Your Book", "http://www.paraview.com/paraview_marketing.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " Favorite Marketing Tips", "http://www.paraview.com/favorite_marketing_tips.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " More Promotional Services", "http://www.paraview.com/more_promotional_services.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " How To Order Your Books", "http://www.paraview.com/how_to_order_your_books.htm")
mymenu.addSubMenu("AUTHOR SERVICES", "", " Special Editions Service", "http://www.paraview.com/special_editions_services.htm")

mymenu.addSubMenu("ABOUT PUB", "", " Paraview Press", "http://www.paraview.com/paraview_press.htm")
mymenu.addSubMenu("ABOUT PUB", "", " Paraview Pocket Books", "http://www.paraview.com/paraview_pocket_books.htm")
mymenu.addSubMenu("ABOUT PUB", "", " Paraview Special Editions", "http://www.paraview.com/paraview_special_editions.htm")
mymenu.addSubMenu("ABOUT PUB", "", " Paraview eBooks", "http://www.paraview.com/ebooks.htm")


// third level menus

// This line is required after all menu definitions are finished
mymenu.showMenu()
</script></td>
</tr>
</table>
    </td>
  </tr>
</table>
    </td>
</tr>
</table>
</center>
</div>

</td>
</tr>

<tr>
<td>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="630">
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="630">
<tr>
<td width="630" height="12" colspan="4"></td>
</tr>

<tr>
<td width="630" height="16" colspan="4">
<div align="right">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#999999" width="630">
<tr>
<td width="20" align="center" bgcolor="#FFFFFF" height="50" valign="top">&nbsp;</td>
<td width="42" align="center" bgcolor="#FFFFFF" height="50" valign="top"></td>
<td width="547" align="center" bgcolor="#FFFFFF" height="50" valign="top">
<img border="0" src="images/buybooks_amazon2.gif" width="461" height="47"></td>
<td width="20" align="center" bgcolor="#FFFFFF" height="50" valign="top">&nbsp;</td>
</tr>
<tr>
  <td align="center" bgcolor="#FFFFFF" height="50" valign="top">&nbsp;</td>
  <td align="center" bgcolor="#FFFFFF" height="50" valign="top"></td>
  <td align="center" bgcolor="#FFFFFF" height="50" valign="top"><div align="left"><img src="images/reader_2.jpg" width="46" height="60" hspace="8" align="left"><strong>WELCOME
        READERS! </strong>You can order books from Paraview Publishing and the
        Paraview Literary Agency in this bookstore, which is run in association
        with Amazon. You can also order these books through Barnes &amp; Noble,
        other online bookstores, or from you local bookstore. Our books focus
        on body, mind, and spirit and the frontiers of science and
      culture. You can also browse our excellent selection of <a href="http://www.paraview.com/ebooks.htm">eBooks!</a></div></td>
  <td align="center" bgcolor="#FFFFFF" height="50" valign="top">&nbsp;</td>
</tr>
<tr>
  <td align="center" bgcolor="#FFFFFF" height="8" valign="top">&nbsp;</td>
  <td align="center" bgcolor="#FFFFFF" height="8" valign="top"></td>
  <td align="center" bgcolor="#FFFFFF" height="8" valign="top">&nbsp;</td>
  <td align="center" bgcolor="#FFFFFF" height="8" valign="top">&nbsp;</td>
</tr>
</table>
</div>
</td>
</tr>

<tr>
  <td width="20"></td>
<td width="40" height="16"><img border="0" src="images/select-category.gif" align="middle" width="32" height="109"></td>
<td width="590" height="16"><table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#999999" width="550" bgcolor="#FFFFFF">
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p1.asp#astrology">Astrology
        [<%=(AstrologyCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p11.asp#health">Health &amp; Fitness
        [<%=(HealthCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p21.asp#self_improvement">Self
        Improvement [<%=(SelfImprovementCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p2.asp#business">Business
        [<%=(BusinessCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p12.asp#humor">Humor
        [<%=(HumorCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p22.asp#spirituality"> Spirituality
        [<%=(SpiritualityCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p3.asp#channeling">Channeling
        [<%=(ChannelingCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p13.asp#music">Music
        [<%=(MusicCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p23.asp#sports">Sports
        [<%=(SportsCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p4.asp#conspiracy">Conspiracy
        [<%=(ConspiracyCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p14.asp#paranormal"> Paranormal
        [<%=(ParanormalCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p24.asp#travel">Travel
        [<%=(TravelCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p5.asp#culture">Culture
        [<%=(CultureCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p15.asp#memoir">Personal
        Memoir [<%=(MemoirCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p25.asp#UFO">UFOs
        [<%=(UFOsCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p6.asp#cryptozoology">Cryptozoology
        [<%=(CryptozoologyCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p16.asp#pet_care">Pet
        Care [<%=(PetCareCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p26.asp#wicca">Wicca &amp; Witchcraft
        [<%=(WiccaCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p7.asp#eastern">Eastern
        Philosophy [<%=(EasternPhilosophyCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p17.asp#poetry">Poetry
        [<%=(PoetryCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p27.asp#women">Women's
        Interest [<%=(WomensCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p8.asp#cayce">Edgar
        Cayce [<%=(CayceCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p18.asp#psychology">Psychology
        / Dreams [<%=(PsychologyCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p28.asp#world_history">World
        History [<%=(WorldHistoryCount_total)%>]</a></td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p9.asp#environment">Environment &amp; Nature
        [<%=(EnvironmentCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p19.asp#relationships">Relationships
        [<%=(RelationshipsCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6">&nbsp;</td>
  </tr>
  <tr>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p10.asp#fiction">Fiction
        [<%=(FictionCount_total)%>]</a></td>
    <td width="33%" align="center" bgcolor="#E6F2F6"><a href="bookstore/catalog_p20.asp#science">Science
        [<%=(ScienceCount_total)%>]</a></td>
    <td width="34%" align="center" bgcolor="#E6F2F6">&nbsp;</td>
  </tr>
</table></td>
</tr>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>

<div align="center">
  <center>
  <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="630">
    <tr>
      <td bgcolor="#FFFFFF">

<table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" width="630" bgcolor="#FFFFFF" height="60">
<tr>
<td width="51" bgcolor="#FFFFFF" valign="top">&nbsp;</td>
<td width="558" bgcolor="#FFFFFF">
<p align="center"><font size="2"><b>All Paraview books are
available through our affiliation with Amazon.com.*<br>
</b> &nbsp;Number of books currently in the category is listed in
brackets [ ]</font></p>
</td>
</tr>
</table>
      </td>
    </tr>
  </table>
  </center>
</div>

</td>
</tr>

<tr>
  <td>

    <div align="center">
      <center>
        <table border="0" cellpadding="0" cellspacing="0" width="630">
          <tr>
            <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
            <td width="590" bgcolor="#FFFFFF">
              <table border="0" cellpadding="0" cellspacing="0" width="630">
                <tr>
                  <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
                  <td width="590" bgcolor="#FFFFFF">
                    <table border="0" cellpadding="0" cellspacing="0" width="590">
                      <tr>
                        <td width="590" height="16" valign="bottom"> <font color="#3A81A7"><b><img src="images/featured_nw_books.gif" alt="Featured New Releases" width="208" height="15"></b></font></td>
                      </tr>
                      <tr>
                        <td width="590" height="80">
                          <table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#999999" width="100%">
                            <tr>
                              <td width="120" valign="top" align="left"><b><font size="2"> AUTHOR</font></b></td>
                              <td width="273" valign="top" align="left"><b><font size="2"> TITLE</font></b></td>
                              <td width="120" valign="top" align="left">
                                <p align="center"><b><font size="2"> PUBLISHER</font></b></td>
                              <td width="77" valign="top" align="left">
                                <p align="center"><b><font size="2"> BUY NOW!</font></b></td>
                            </tr>
                            <% 
While ((Repeat1__numRows <> 0) AND (NOT IsBookNew.EOF)) 
%>
                            <tr>
                                <td valign="top" bgcolor="#E6F2F6"><%=(IsBookNew.Fields.Item("Author1LastName").Value)%>, <%=(IsBookNew.Fields.Item("Author1FirstName").Value)%> 
								
													<%
DIM strAuthor,strNew2
strAuthor = (IsBookNew.Fields.Item("Author2LastName").Value)
IF  strAuthor <> "" THEN	
strNew2 = response.write ( chr(32))
strNew2 = response.write ( chr(38))
strNew2 = response.write ( chr(32))
strNew2 = response.write ( (IsBookNew.Fields.Item("Author2FirstName").Value))
strNew2 = response.write ( chr(32))
strNew2 = response.write ( (IsBookNew.Fields.Item("Author2LastName").Value))
END IF%>			

								
								</td>
                                <td valign="top" bgcolor="#E6F2F6"><a href="<%=(IsBookNew.Fields.Item("PublishersCatalogPage").Value)%>"><%=(IsBookNew.Fields.Item("Title").Value)%></a></td>
                                <td valign="top" bgcolor="#E6F2F6"><%=(IsBookNew.Fields.Item("Imprint").Value)%></td>
                                <td align="center" bgcolor="#E6F2F6"><a href="<%=(IsBookNew.Fields.Item("Buythebook").Value)%>" target="_blank"><img border="0" src="images/buy.gif" WIDTH="71" HEIGHT="13"></a></td>
                            </tr>
                            <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  IsBookNew.MoveNext()
Wend
%>

                                </table>
                        </td>
                      </tr>
                    </table>
                  </td>
                  <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
                </tr>
              </table></td>
            <td width="20" bgcolor="#FFFFFF">&nbsp;</td>
          </tr>
        </table>
      </center>
    </div>
    
  </td>
</tr>

<tr>
<td bgcolor="#FFFFFF">&nbsp;</td>
</tr>

<tr>
<td bgcolor="#FFFFFF">
<p align="center"><a href="javascript:history.back()" target="_self">
<img src="images/back.gif" border="0" alt="Back one page" WIDTH="39" HEIGHT="10"></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <a href="#top">
<img border="0" src="images/to_top.gif" alt="Back to top of page" WIDTH="30" HEIGHT="10"></a></p>
</td>
</tr>

<tr>
<td bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="630">
<tr>
<td height="24"><div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="620">
<tr>
<td bgcolor="#FFFFFF"><div align="center">
        <table border="0" cellpadding="0" cellspacing="0" width="630">
          <tr>
            <td width="20" height="6"></td>
            <td width="590" height="6">
                </td>
            <td width="20" height="6"></td>
          </tr>
          <tr>
            <td width="20" height="16"></td>
            <td width="590" height="32">
                <p align="center">
                <font size="1">*&nbsp; You can also order our books from
                <a target="_blank" href="http://www.bn.com/">Barnes &amp; Noble 
                online</a>,
                <a target="_blank" href="http://www.booksamillion.com">Books-A-Million online</a> -- <br>
                or your favorite bookstore. Just 
                ask for them at the information desk.</font></td>
          </tr>
          </table>
          </div>

</td>
</tr>
</table>
</center>
</td>
</tr>

<tr>
<td>
<div align="center">
<table border="0" cellpadding="0" cellspacing="0" width="630" bgcolor="#FFFFFF">
<tr>
<td align="center" bgcolor="#FFFFFF" width="620" height="18">
<img border="0" src="images/hairline.gif" width="480" height="1"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" width="620" height="18">
<p class="small" align="center">
                      
                      <font color="#000099">
                      <a href="index.htm">PARAVIEW HOME</a></font>&nbsp;&nbsp;&nbsp;  
                      <a href="paraview_publishing_home.htm">
                      WHAT'S NEW: 
                      PUBLISHING</a>&nbsp;&nbsp;&nbsp;
                      <a href="how_to_get_published.htm">AUTHORS: GET PUBLISHED</a> &nbsp;
                      &nbsp;<br>
                      
                      <a href="catalog_home.asp">READERS: BUY BOOKS</a>&nbsp;&nbsp;&nbsp;
                       <a href="ordering_booksellers.asp">BOOKSELLERS: OUR BOOKS</a>&nbsp;&nbsp;&nbsp; 
                      <font color="#000099"> <a href="about_us.htm">
                      ABOUT US</a></font>&nbsp;&nbsp;&nbsp;  <a href="contact_us.htm">
                      CONTACT
                      US</a> 
                      </font>
</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" width="620" height="14">
<img border="0" src="http://www.paraview.com/images/spacer.gif" width="620" height="14"></td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" width="620" height="48" valign="top">
<p align="center"><a href="sitemap.htm">
<img border="0" src="images/transforming_the_world.jpg" alt="Transforming the World One Book at a Time" width="251" height="36">
</a>
</td>
</tr>
<tr>
<td align="center" height="26" valign="top" bgcolor="#FFFFFF" width="620">
<p align="center" dynamicanimation="fpAnimformatRolloverFP1" fprolloverstyle="color: #000099" onmouseover="rollIn(this)" onmouseout="rollOut(this)" language="Javascript1.2">
<font color="#999999" face="Arial" size="1">Copyright � 2001 - 2006. All
</font><font face="Arial" size="1"><font color="#999999"><br>


&nbsp;</td>
</tr>
</table>
</div>


</td>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
AstrologyCount.Close()
Set AstrologyCount = Nothing
%>
<%
BusinessCount.Close()
Set BusinessCount = Nothing
%>
<%
ChannelingCount.Close()
Set ChannelingCount = Nothing
%>
<%
ConspiracyCount.Close()
Set ConspiracyCount = Nothing
%>
<%
CultureCount.Close()
Set CultureCount = Nothing
%>
<%
CryptozoologyCount.Close()
Set CryptozoologyCount = Nothing
%>
<%
EasternPhilosophyCount.Close()
Set EasternPhilosophyCount = Nothing
%>
<%
CayceCount.Close()
Set CayceCount = Nothing
%>
<%
EnvironmentCount.Close()
Set EnvironmentCount = Nothing
%>
<%
FictionCount.Close()
Set FictionCount = Nothing
%>
<%
HealthCount.Close()
Set HealthCount = Nothing
%>
<%
HumorCount.Close()
Set HumorCount = Nothing
%>
<%
MusicCount.Close()
Set MusicCount = Nothing
%>
<%
ParanormalCount.Close()
Set ParanormalCount = Nothing
%>
<%
MemoirCount.Close()
Set MemoirCount = Nothing
%>
<%
PetCareCount.Close()
Set PetCareCount = Nothing
%>
<%
PoetryCount.Close()
Set PoetryCount = Nothing
%>
<%
PsychologyCount.Close()
Set PsychologyCount = Nothing
%>
<%
RelationshipsCount.Close()
Set RelationshipsCount = Nothing
%>
<%
ScienceCount.Close()
Set ScienceCount = Nothing
%>
<%
SelfImprovementCount.Close()
Set SelfImprovementCount = Nothing
%>
<%
SpiritualityCount.Close()
Set SpiritualityCount = Nothing
%>
<%
SportsCount.Close()
Set SportsCount = Nothing
%>
<%
TravelCount.Close()
Set TravelCount = Nothing
%>
<%
UFOsCount.Close()
Set UFOsCount = Nothing
%>
<%
WiccaCount.Close()
Set WiccaCount = Nothing
%>
<%
WomensCount.Close()
Set WomensCount = Nothing
%>
<%
WorldHistoryCount.Close()
Set WorldHistoryCount = Nothing
%>
<%
IsBookNew.Close()
Set IsBookNew = Nothing
%>