Lately when I edit a web page from my website [url]www.bookarcade.com[/url]
[url]http://www.bookarcade.com[/url], I receive the following error Microsoft JScript
runtime error '800a138f' and this one is at
[url]http://www.bookarcade.com/latest.asp[/url]. The only change that I made to this page
was in the month and records noted below: line 366 <div align='center'><font
color='#FFFFCC' size='+2' face='Times New Roman, Times, serif'><strong>LATEST
ACQUISITIONS<br> March 2005 </strong></font></div> line 6 latest.Source =
'SELECT * FROM dbo.vw_booksall WHERE BookID >=100586 ORDER BY category,
writers'; I will attach the code for the page. I hope that you will have some
suggestions. Thank you, Myrna [email]myrna280[/email] Please email when you have
posted a reply. Code below.

<%LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/connbooks.asp" -->
<%
var latest = Server.CreateObject("ADODB.Recordset");
latest.ActiveConnection = MM_connbooks_STRING;
latest.Source = "SELECT * FROM dbo.vw_booksall WHERE BookID >=100586 ORDER
BY category, writers";
latest.CursorType = 0;
latest.CursorLocation = 2;
latest.LockType = 1;
latest.Open();
var latest_numRows = 0;
%>
<%
var Repeat1__numRows = 10;
var Repeat1__index = 0;
latest_numRows += Repeat1__numRows;
%>
<%
// *** Recordset Stats, Move To Record, and Go To Record: declare stats
variables

// set the record count
var latest_total = latest.RecordCount;

// set the number of rows displayed on this page
if (latest_numRows < 0) { // if repeat region set to all records
latest_numRows = latest_total;
} else if (latest_numRows == 0) { // if no repeat regions
latest_numRows = 1;
}

// set the first and last displayed record
var latest_first = 1;
var latest_last = latest_first + latest_numRows - 1;

// if we have the correct record count, check the other stats
if (latest_total != -1) {
latest_numRows = Math.min(latest_numRows, latest_total);
latest_first = Math.min(latest_first, latest_total);
latest_last = Math.min(latest_last, latest_total);
}
%>
<%
// *** Recordset Stats: if we don't know the record count, manually count them

if (latest_total == -1) {

// count the total records by iterating through the recordset
for (latest_total=0; !latest.EOF; latest.MoveNext()) {
latest_total++;
}

// reset the cursor to the beginning
if (latest.CursorType > 0) {
if (!latest.BOF) latest.MoveFirst();
} else {
latest.Requery();
}

// set the number of rows displayed on this page
if (latest_numRows < 0 || latest_numRows > latest_total) {
latest_numRows = latest_total;
}

// set the first and last displayed record
latest_last = Math.min(latest_first + latest_numRows - 1, latest_total);
latest_first = Math.min(latest_first, latest_total);
}
%>
<% var MM_paramName = ""; %>
<%
// *** Move To Record and Go To Record: declare variables

var MM_rs = latest;
var MM_rsCount = latest_total;
var MM_size = latest_numRows;
var MM_uniqueCol = "";
MM_paramName = "";
var MM_offset = 0;
var MM_atTotal = false;
var MM_paramIsDefined = (MM_paramName != "" && String(Request(MM_paramName))
!= "undefined");
%>
<%
// *** Move To Record: handle 'index' or 'offset' parameter

if (!MM_paramIsDefined && MM_rsCount != 0) {

// use index parameter if defined, otherwise use offset parameter
r = String(Request("index"));
if (r == "undefined") r = String(Request("offset"));
if (r && r != "undefined") MM_offset = pInt(r);

// if we have a record count, check if we are past the end of the recordset
if (MM_rsCount != -1) {
if (MM_offset >= MM_rsCount || MM_offset == -1) { // past end or move last
if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount % MM_size);
} else {
MM_offset = MM_rsCount - MM_size;
}
}
}

// move the cursor to the selected record
for (var i=0; !MM_rs.EOF && (i < MM_offset || MM_offset == -1); i++) {
MM_rs.MoveNext();
}
if (MM_rs.EOF) MM_offset = i; // set MM_offset to the last possible record
}
%>
<%
// *** Move To Record: if we dont know the record count, check the display
range

if (MM_rsCount == -1) {

// walk to the end of the display range for this page
for (var i=MM_offset; !MM_rs.EOF && (MM_size < 0 || i < MM_offset +
MM_size); i++) {
MM_rs.MoveNext();
}

// if we walked off the end of the recordset, set MM_rsCount and MM_size
if (MM_rs.EOF) {
MM_rsCount = i;
if (MM_size < 0 || MM_size > MM_rsCount) MM_size = MM_rsCount;
}

// if we walked off the end, set the offset based on page size
if (MM_rs.EOF && !MM_paramIsDefined) {
if ((MM_rsCount % MM_size) != 0) { // last page not a full repeat region
MM_offset = MM_rsCount - (MM_rsCount % MM_size);
} else {
MM_offset = MM_rsCount - MM_size;
}
}

// reset the cursor to the beginning
if (MM_rs.CursorType > 0) {
if (!MM_rs.BOF) MM_rs.MoveFirst();
} else {
MM_rs.Requery();
}

// move the cursor to the selected record
for (var i=0; !MM_rs.EOF && i < MM_offset; i++) {
MM_rs.MoveNext();
}
}
%>
<%
// *** Move To Record: update recordset stats

// set the first and last displayed record
latest_first = MM_offset + 1;
latest_last = MM_offset + MM_size;
if (MM_rsCount != -1) {
latest_first = Math.min(latest_first, MM_rsCount);
latest_last = Math.min(latest_last, MM_rsCount);
}

// set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount != -1 && MM_offset + MM_size >= MM_rsCount);
%>
<%
// *** Go To Record and Move To Record: create strings for maintaining URL and
Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() +
"=";
var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_kee pNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Request.QueryString); !items.atEnd();
items.moveNext()) {
var nextItem = "&" + items.item().toLowerCase() + "=";
if (MM_removeList.indexOf(nextItem) == -1) {
MM_keepURL += "&" + items.item() + "=" +
Server.URLencode(Request.QueryString(items.item()) );
}
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext())
{
var nextItem = "&" + items.item().toLowerCase() + "=";
if (MM_removeList.indexOf(nextItem) == -1) {
MM_keepForm += "&" + items.item() + "=" +
Server.URLencode(Request.Form(items.item()));
}
}

// create the Form + URL string and remove the intial '&' from each of the
strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
if (MM_keepURL.length > 0) MM_keepURL = MM_keepURL.substring(1);
if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
%>
<%
// *** Move To Record: set the strings for the first, last, next, and previous
links

var MM_moveFirst="",MM_moveLast="",MM_moveNext="",MM_m ovePrev="";
var MM_keepMove = MM_keepBoth; // keep both Form and URL parameters for moves
var MM_moveParam = "index";

// if the page has a repeated region, remove 'offset' from the maintained
parameters
if (MM_size > 1) {
MM_moveParam = "offset";
if (MM_keepMove.length > 0) {
params = MM_keepMove.split("&");
MM_keepMove = "";
for (var i=0; i < params.length; i++) {
var nextItem = params[i].substring(0,params[i].indexOf("="));
if (nextItem.toLowerCase() != MM_moveParam) {
MM_keepMove += "&" + params[i];
}
}
if (MM_keepMove.length > 0) MM_keepMove = MM_keepMove.substring(1);
}
}

// set the strings for the move to links
if (MM_keepMove.length > 0) MM_keepMove += "&";
var urlStr = Request.ServerVariables("URL") + "?" + MM_keepMove + MM_moveParam
+ "=";
MM_moveFirst = urlStr + "0";
MM_moveLast = urlStr + "-1";
MM_moveNext = urlStr + (MM_offset + MM_size);
MM_movePrev = urlStr + Math.max(MM_offset - MM_size,0);
%>
<SCRIPT LANGUAGE=VBSCRIPT>
function DoTrim(str, side)
dim strRet
strRet = str

If (side = 0) Then
strRet = LTrim(str)
ElseIf (side = 1) Then
strRet = RTrim(str)
Else
strRet = Trim(str)
End If

DoTrim = strRet
End Function
</SCRIPT>
<SCRIPT LANGUAGE=VBSCRIPT>
function DoCurrency(str, nDigitsAfterDecimal, nLeadingDigit, nUseParensForNeg,
nGroupDigits)
DoCurrency = FormatCurrency(str, nDigitsAfterDecimal, nLeadingDigit,
nUseParensForNeg, nGroupDigits)
End Function
</SCRIPT>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd"><html><!-- InstanceBegin
template="/Templates/welcomelatestmar42004.dwt" codeOutsideHTMLIsLocked="false"
-->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>vintage and rare books</title>
<!-- InstanceEndEditable -->
<META http-equiv="Content-Type" content="text/html; cht=iso-8859-1">
<META http-equiv="Expires" content="0">
<META http-equiv="Pragma" content="No-cache">
<META http-equiv="Cache-Control" content="No-cache">
<META name="Robots" content="All">
<META name="Rating" content="General">
<META name="Distribution" content="Global">
<META name="Revisit-After" content="7 Days">
<META name="Copyright" content="1992 Bookarcade.com & bohemian bookworm">
<META name="Abstract" content="thousands of used, secondhand, rare, vintage
and out-of-print books, ephemera, prints, latest acquisitions">
<META name="Description" content="Thousands used books, secondhand, rare,
out-of-print books, other hard-to-find books