') if (nof_recs == 0) {return;} coln = 0 // CHANGED BELOW TO ADD THUMBNAILS s = '
| '
+ ' | '
s += ''
+ ''
+ CLDB.CLstoreitems.iname + astchr + ' ' + CLDB.CLstoreitems.desc1 + '' + onsline + ' | '
if (coln == 1)
{s += '' } CLDB.CLstoreitems.FindNext(query) } if (coln == 1) {s += ' | \n'; coln = 0} s += ' |
"
if (! nast1 == 0)
{t += "* -- item available by special order only
\n"}
if (! nast2 == 0)
{t += "** -- item available from inventory as shown and may also be special-ordered\n"}
if ((!nast1 == 0) || (!nast2 == 0))
{t += ""
where.document.write(t)}
return
}
function loadgcseq(gsq) // Load docs into frames mainhd and main based on gcseq
{
curgcseq=gsq
top.mainhd.location.href = "clhptitle.htm" // Page title based on gsq
main.location.href = "cllistitems.htm" // goes to showselected3
}
// ---- Loads homepage -------------
// function loadhp()
// {
// top.curgroupid = 0
// top.curcategid = 0
// }
// -------- Loads documents into frames 'mainhd' and 'main'---------
function loadhome() {
top.mainhd.location.href = "clhptitleh.htm"
top.main.location.href= "clhomepg.htm"
}
function loadmainfx(gp) { // gp=1,2,... loads gcseq 100,200,...
curgcseq=String(gp) + "00"
top.mainhd.location.href = "clhptitle.htm" // Page title based on gsq
main.location.href = "cllistitems.htm" // goes to showselected3
}
// Following called only with gp = 0 (About This Site, etc)
function loadmainfm(gp,cat,bkm)
{
top.curgroupid = gp
top.curcategid = cat
if (gp == 0) {top.curgcseq = cat}
top.mainhd.location.href = "clhptitle.htm" // Page title based on curgcseq
var demon
demon = "cllistitems.htm"
if (gp == 0) // "clhomepg.htm", etc
{
if (bkm != 0)
{
top.main.location.href = gpzd[cat][0] + "#" + gpzd[cat][bkm]
}
else
{
top.main.location.href = gpzd[cat][0] // "clhomepg.htm", etc
}
}
else
top.main.location.href = demon
return
}
// Return picture filename given picture base code and picture number
function picfilename(pbcode, picno, pxtra) // pxtra =1 if extra letter code in picno
{
var zerostrng = new String("00000")
var midlength
var zandpic
var wkstring = ""
var wkstring2 = ""
var picstring = ""
// var picstrings = new Array(2);
// picstrings["mainstring"] = ""
// picstrings["thumbstring"] = ""
zandpic = zerostrng + picno
CLDB.CLPicURLs.FindFirst("picbase==" + pbcode)
if (CLDB.CLPicURLs.RsetProperties.NoMatch==false)
{
wkstring = CLDB.CLPicURLs.leadstring // Ex "DCP_"
midlength = CLDB.CLPicURLs.nmbrlen
if (pxtra == 1) {midlength++} // add 1
wkstring += zandpic.substring(zandpic.length-midlength,zandpic.length) // Ex "DCP_0123"
// wkstring2 = wkstring + "T"
// picstrings["mainstring"] = wkstring + CLDB.CLPicURLs.trailstring // Ex "DCP_0123.JPG"
// picstrings["thumbstring"] = wkstring2 + CLDB.CLPicURLs.trailstring // Ex "DCP_0123T.JPG"
// return picstrings
picstring = wkstring + CLDB.CLPicURLs.trailstring // Ex "DCP_0123.JPG"
return picstring
}
else
{
return ""
}
}
// ------- Window Management Functions ----------
// ---------- Opens/Reloads Details Frameset Window ------------------------
function godetails(itemno)
{
// var sw = screen.width - 700
var ckoww = 750
var ckowh = ush - 100
var ckowleft = 70
if (usw < 650)
{
ckoww = 600;
ckowleft = 70;
}
selecteditemno = itemno
if (CLDB.CLstoreitems.Seek(itemno)) // make DB record for selected item current
{
selecteditemname = CLDB.CLstoreitems.iname
selitemregprice= CLDB.CLstoreitems.price
selitemredprice = CLDB.CLstoreitems.rprice
if (selitemredprice > 0)
{selitemprice = selitemredprice}
else
{selitemprice = selitemregprice}
//selitemprice = CLDB.CLstoreitems.price
selitemdesc1 = CLDB.CLstoreitems.desc1
// Open details window
detwndw = window.open(pagetoopen, wtoopen,
'width=' + ckoww + ',height=' + ckowh + ',toolbar,resizable,status,scrollbars,left=' + ckowleft +',top=10');
detwndw.focus();
}
else
{
alert("did not find this item")
}
}
// --------Contact Info Window-------
function contact(ml) // ml selects Contact vs News title
{
var ckoww = 650
var ckowh = ush - 170
var ckowleft = usw - 700
//dbx("Open Contact Window")
if (usw < 650)
{
ckoww = 400;
ckowleft = 50;
}
if (ckowndw && !ckowndw.closed)
{
if (ckowndw.close())
{
// wait for window to close
}
}
if (!ckowndw || ckowndw.closed) // Error here if this window is already open
{
ckowndw = window.open(rootdir + 'contactinfo.htm?' + ml,'CLckout',
'width=' + ckoww + ',height=' + ckowh + ',toolbar,resizable,status,scrollbars,left=' + ckowleft + ',top=30');
}
ckowndw.focus()
}
// -----close big picture window
function pwincls()
{
if (picwndw && !picwndw.closed)
{
if(picwndw.close())
{
// wait
}
}
}
// -----close cart window
function cwincls()
{
if (cartwndw && !cartwndw.closed)
{
if (cartwndw.close())
{
// wait
}
}
}
// --------close info window (item added)
function iwincls()
{
if (infwndw && !infwndw.closed)
{
if (infwndw.close())
{
// wait
}
}
}
// -----close details window
function dwincls()
{
if (detwndw && !detwndw.closed)
{
if (detwndw.close())
{
// wait
}
}
}
// -----close checkout window
function kwincls()
{
if (ckowndw && !ckowndw.closed)
{
if (ckowndw.close())
{
// wait
}
}
}
function kwinclsf()
{
kwincls()
self.focus()
}
// ------close pic wndw, inf wndw & cart window
function clspicwndw()
{
pwincls()
iwincls()
cwincls()
return;
}
// close picwindow,infwindow,cartwndw,detwndw
function clspicdwndw()
{
pwincls()
iwincls()
cwincls()
dwincls()
}
// ----continue shopping from details window
function clsdetcont()
{
clspicdwndw()
self.focus()
}
// --- continue shopping from info window ------
function clsinfcont()
{
iwincls()
if (detwndw && !detwndw.closed)
{detwndw.focus()}
else
{self.focus} // focus on main CraftiLori frameset
}
// ----continue shopping from checkout window
function clsckocont()
{
kwincls()
clspicdwndw()
self.focus()
}
// --- continue shopping from cart window ---
function clscartcont()
{
iwincls()
cwincls()
if (detwndw && !detwndw.closed)
{detwndw.focus()}
else
{self.focus} // focus on main CraftiLori frameset
}
// --------clean up after order acknowledgement -----
function endorder()
{
emptycart()
clsckocont()
}
function wstatus()
{
}
// -----------Forms Operations Functions--------
function sendclorder(redirct) // redirct only used if wnet
{
var status = false;
if ( ckowndw.document.clorder.cusemail.value == "" )
{alert("Please enter a valid email address."); }
else
{
if ( ckowndw.document.clorder.cusname.value.length == 0 )
{alert("Please enter your name.");}
else {status = true;}
}
if ( status )
{
gotopage = rootdir + redirct // only used if wnet
if (formhost != 0)
{
ckowndw.document.clorder.submit();
}
else
{
wnetload1(ckowndw);
ckowndw.document.wnetform.submit();
}
}
else
{
alert("Information not sent.")
}
}
function CLcontactShow1(where) // Dedicated to Webstrike Host
{
var ydate = todaystrng
var contws // webstrike
contws = ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
where.document.write(contws)
}
function CLckoutShow1(where) // Webstrike host only
{
var zordnum = cartinf['ordn']
var zdate = todaystrng
var ne = cartinf.nit - cartinf.zqit // number entries
var ni = cartinf.tnit // number items
var ckows // Webstrike
ckows = ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
+ ''
where.document.write(ckows)
}
function wnetformshow(where,optn) // optn: 0=order,1=contact,2=maillist
{
// claux
}
function wnetload1(where)
{
// claux
}
function wnetload2(where)
{
// claux
}
// ------PERFORMANCE TRACKING FUNCTIONS --------------
function timecheck(tid,tdsc,tdelt){
if (enabtime != "1")
{
return;}
else {
xtime[tid] = elpsd()
wtime[tid] = tdsc
if (tdelt != 0)
{dtime[tid] = xtime[tid]-xtime[tdelt]}
}
}
function elpsd(){
var rightnow = new Date()
var elt
elt = rightnow - time0
return elt
}
function showtimes(){
var tcct = 0
forloop:
for (i=1; i
";
}
return;
}
else
{
if (msg == "X")
{
debugwndw.top.cldebug2.document.write("Unloading Debug Message Buffer");
debugwndw.top.cldebug2.document.write("
");
debugwndw.top.cldebug2.document.write(dbgbfr);
dbgbfr = ""
debugwndw.top.cldebug2.document.write("END Debug Message Buffer");
debugwndw.top.cldebug2.document.write("
");
// debugwndw.top.cldebug2.document.close();
}
else
{
debugwndw.top.cldebug2.document.write(msg);
debugwndw.top.cldebug2.document.write("
");
// debugwndw.top.cldebug2.document.close();
}
if (debugfocus == 1)
{debugwndw.focus();}
}
return
}
// ------------------BEGIN FUNCTION DatabaseCreateObjects()--------------------------------
// This was preceded by DBCookie.CookieLoad() which loads database DBCookie from stored cookie
// (if one was stored -- as indicated by flag: DBCookie.DBaseCookieProperties.Loaded)
// If cookie was loaded but is obsolete (version# < dbcookievers),
// cookie is removed from disk (using DBCookie.CookieRemove())
// This function then creates recordsets in database DBCookie as follows:
// admin [with field 'CookieVersion', value set = dbcookievers]
// userinfo [with fields 'uname', 'utel', 'uemail', dummy values set if necess]
// basket [with fields xidofitem (with index), qtyitm, -- no records are added]
// All of above are stored and retrieved from Cookie. New recordsets/fields created only if
// they were not already present as result of being loaded from prev saved cookie.
function DatabaseCreateObjects()
{
// *** START cookie version test to see if the user's cookie that was used
// to load JS Database object "DBCookie" is of latest version.
// If not remove cookie and recreate DBCookie Database (will have empty entries
// except for Recordset "admin" which will have field "CookieVersion" set = dbcookievers.
if (DBCookie.DBaseCookieProperties.Loaded == true) // check to see if cookie has been loaded into JS Database object "DBcookie"
{
DBCookie.admin.MoveFirst()
if (DBCookie.admin.CookieVersion != dbcookievers) // check to see if DBCookie has correct version of cookie
{
if (DBCookie.CookieRemove()) // remove cookie from users disk
{
// wait make sure cookie removed
}
DBCookie = new Database('DBCookie') // reset DBCookie database
if (DBCookie.CookieLoad()) // sets up new empty cookie on user disk, sets DBCookie.DBaseCookieProperties.Loaded to true
{ // wait make sure cookie is fully loaded before coninuing
}
else
{
}
}
}
else {
}
// *** END cookie version test
// *** START create recordset admin
// If cookie has been loaded and you try and create any recordsets or fields that
// already exist, the Create method requests will be ignored
DBCookie.CreateRecordset('admin')
DBCookie.admin.CreateField('CookieVersion')
DBCookie.admin.RsetProperties.CookieOn = true // required to save 'admin' recordset
// check to see if cookie has been loaded. If false then initialise a record -
// only one record required for this record.
if (DBCookie.DBaseCookieProperties.Loaded == false) DBCookie.admin.A([dbcookievers]) // Adds record with field 'CookieVersion' set= latest version
// *** END create recordset admin
// *** START create recordset basket
DBCookie.CreateRecordset('basket')
DBCookie.basket.CreateField('xidofitm',dbIndex) // unique id field - primary key, so can use Seek method for fast retrieval,
DBCookie.basket.CreateField('qtyitm') // quantity
DBCookie.basket.CreateField('prcitm') // unformatted price
DBCookie.basket.CreateField('nameitm') // item name
DBCookie.basket.RsetProperties.CookieOn = false // 'true' required to save this recordset when cookie saved
// will be set true if user desires prior to exiting the site
// *** END create recordset basket
// *** START create recordset 'userinfo'
DBCookie.CreateRecordset('userinfo')
// userinfo [with fields 'cusname',etc. utype = 0/dummy 1/normal 2/sup 3/sup-debug]
with (DBCookie.userinfo) { // this recordset will store users details and automatically set these values when they next visit
CreateField('utype')
CreateField('cusname')
CreateField('cusstreet')
CreateField('cusemail')
CreateField('cusphone')
CreateField('cuscity')
CreateField('cusstate')
CreateField('cuszip')
RsetProperties.CookieOn = true // required to save this recordset
}
if (DBCookie.DBaseCookieProperties.Loaded == false)
{
DBCookie.userinfo.A([0,"","","","","","",""]) // one record required
}
// *** END create userinfo recordset
}
// --------------------END FUNCTION DatabaseCreateObjects() --------------------------------
// ------------------BEGIN FUNCTION DatabaseSaveCookie()--------------------------------
function DatabaseSaveCookie() {
// save database DBCookie recordsets as a cookie on users disk
// A 'DBaseCookieRecordset' recordset is created for each Database created by AO-JS
// (actually, based on Database property 'CreateCookieRecordset' being set 'true', which it always is
// (see function DatabaseProperties() in AO-JS.js)
// It contains expiration, domain, path, and secure info relative to Cookie
with (DBCookie.DBaseCookieRecordset) // Update expiration date
{
MoveFirst()
UpdateField('ExpireHours',1*24*7*cookiexpire) // set expiration time = 'cookiexpire' weeks
UpdateField('ExpireMinutes',0) // 0 minutes
RsetProperties.CookieOn = true // required to save this recordset
}
// Following actually stores selected recordsets from database DBCookie in a cookie on users disk
// Recordsets stored are those having CookieOn property = true
// These include: 'admin', 'userinfo', 'DBaseCookieRecordset'(expiration date), and possibly 'basket'
if (DBCookie.CookieSave()) {
// wait - make sure cookie is saved before continuing
}
else {
}
}
// ------------------END FUNCTION DatabaseSaveCookie()--------------------------------
// --------------------BEGIN FUNCTION DatabaseLoadCookie() ---------------------------------
function DatabaseLoadCookie() {
DBCookie = new Database('DBCookie') // create JS Database object
if (DBCookie.CookieLoad()) // Initialize JS Database properties from Cookie named "DBCookie"
{
return true // sets DBCookie.DBaseCookieProperties.Loaded to true
} // if cookie database loaded else false
else
{
return false
}
// wait make sure cookie is fully loaded before coninuing
}
// --------------------END FUNCTION DatabaseLoadCookie() ---------------------------------