function make_html_pricelist(cFile,cListname,cTable) nEndYear = 1900 // year(date())-5 // Change value here to limit entried to a specified number of years cGendate = dtoc(date()) //Set pricelist table options here nTableW = 90 // % of html page width nRowH = 14 //height of table row. Values less then font size have no effect. nCol1W = 55 //percent table width for Description nCol2W = 27 //percent table width for Grade nCol3W = 8 //percent table width for Year nCol4W = 8 //percent table width for Price // Column width values must total 100 cFont = "Arial,Helvitica" nFontSize = 14 //font size must be not more then 14 if lMixedCase is set fasle lMixedCase = true //set false for all uppercase f = new file() f.create(cFile) f.puts('') f.puts([]) f.puts([]) f.puts([Free Electric Train Price Guide]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([
]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([
]) f.puts([

choochooauctions.com

]) f.puts([]) f.puts([		 Click here if you have trains for sale!
]) f.puts([
]) f.puts([

]) f.puts([ Free Electric Train Price Guide
]) f.puts([(To print: Right click on list, then click print in the pop-up menu.)

]) f.puts([Items shown on this list are not for sale. This is a price guide generated from our database based on past sales history. Items appearing in this guide have been sold and are no longer in our inventory. To view our current inventory please check out choochooauctions.com or traincity.com. Thanks for using our guides.

]) f.puts([]) f.puts([]) f.puts([

This free electric train Price Guide brought to you by:
]) f.puts([choochooauctions.com and traincity.com]) f.puts([]) f.puts([

]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([
]+cListName+[Generated ]+cGendate+[
]) ******************* Build pricelist *************** q = new query() q.sql = 'select title,; grade,; yr ,; asell1 from "'+cTable+'" ; where yr > '+nEndYear q.active = true f.puts([

]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) do while not q.rowset.endofset f.puts([]) if lMixedcase = true f.puts([]) f.puts([]) else f.puts([]) f.puts([]) endif f.puts([]) f.puts([]) f.puts([]) q.rowset.next() enddo f.puts([]) f.puts([
DescriptionGradeYearPrice
]+proper(q.rowset.fields["title"].value)+[]+proper(q.rowset.fields["grade"].value)+[]+q.rowset.fields["title"].value+[]+q.rowset.fields["grade"].value+[]+q.rowset.fields["yr"].value+[]+q.rowset.fields["asell1"].value+[
]) f.puts([]) // f.puts([]) q.active = false ***************** End of pricelist ********************* f.puts([]) f.puts([
]) f.puts([

]) f.puts([

]) f.puts([]) f.puts([]) f.puts([
]) f.puts([]) f.puts([Home | About this guide | Visit choochooauctions.com | Visit traincity.com | Contact Us]) f.puts([]) f.puts([
]) f.puts([]) f.puts([]) f.puts([
]) f.puts([]) f.puts([
All rights reserved. choochooauctions.com
]) f.puts([]) f.puts([
]) f.puts([

]) f.puts([

]) f.puts([]) f.puts([Visit Choochooauctions.com]) f.puts([
]) f.puts([
]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.puts([]) f.close() return true