/*

This function builds HTML code required by the "NSscrollbars.js" file
The HTML code was writen by:
Peter Belesis, webreference.com -- 2001-08-21
see: http://www.webreference.com/dhtml/column23/index.html

the HTML was converted to a javascript function by:
Michael Edmonson, ParacletePress.com -- 2003-03-19

syntax : newNetscape(HEIGHT,WIDTH,URL,nameOfObj)

The following function returns the html code for an image spacer.gif
syntax : newScrollerPad(WIDTH, HEIGHT)

*/

globalCnt=1;

function newNetscape(myW, myH, mypage,myname){

var ImageBaseDir="NSimages\/"

//Total
constWidthTotal=myW
//Total-18
constWidthTotalMin=myW-18
//-6
constWidthMiddle=myW-6
//-18
constWidthInner=myW-24

//Total
constHeightTotal=myH
//Total - 4
constHeightMiddle=myH-4
//Total -4 -16
constHeightInner=myH-20


// Other numbers

otherHeightPlus=myH+50
otherHeightHalf=myH/2

//

myBGColor="#cccc99"


// PLACE THE BOGUS IMAGE
var NetscapeText=""
NetscapeText+="<LAYER TOP=30 LEFT=30 ID="+myname+" WIDTH="
NetscapeText+=constWidthTotal
NetscapeText+=" BGCOLOR="+myBGColor+" CLIP="

NetscapeText+=constWidthTotal

NetscapeText+="\,"
NetscapeText+=constHeightTotal
NetscapeText+=">\n\t"
NetscapeText+="<LAYER ID=elMain SRC=\""

//onLoad='initScroll()'

NetscapeText+=mypage

NetscapeText+="\" TOP=2 LEFT=4 WIDTH="
NetscapeText+=constWidthInner
NetscapeText+=" BGCOLOR=white CLIP=-2,0,"
NetscapeText+=constWidthMiddle+","+constHeightMiddle
NetscapeText+="></LAYER>\n\t<LAYER ID=elScroll LEFT="
NetscapeText+=constWidthTotalMin
NetscapeText+=" TOP=2 WIDTH=16 CLIP=16,"
NetscapeText+=constHeightMiddle
NetscapeText+=" VISIBILITY=HIDE>\n\t\t"
NetscapeText+= "<IMG SRC=" + ImageBaseDir
NetscapeText+="butTu.gif WIDTH=16 HEIGHT=16 BORDER=0 HSPACE=0 VSPACE=0>\n\t"
NetscapeText+="<LAYER ID=elBGcol LEFT=0 TOP=16 CLIP=16,"
NetscapeText+=otherHeightPlus
NetscapeText+=" BACKGROUND=\""
NetscapeText+=ImageBaseDir+"barBgBl.gif\"></LAYER>\n\t"
NetscapeText+="<LAYER ID=elBG LEFT=0 TOP=16 CLIP=16,"
NetscapeText+=otherHeightPlus
NetscapeText+=" BACKGROUND=\""
NetscapeText+=ImageBaseDir+"barBg.gif\"></LAYER>\n\t"
NetscapeText+="<LAYER ID=elThumb LEFT=0 TOP=16 WIDTH=16 CLIP=16,"
NetscapeText+=otherHeightHalf
NetscapeText+=" BACKGROUND=\""
NetscapeText+=ImageBaseDir+"tmbBg.gif\""
NetscapeText+=" onMouseOver=\"makeScroll("+myname+");\" ";
NetscapeText+=" >\n\t\t";
NetscapeText+="<IMG SRC=\""
NetscapeText+=ImageBaseDir+"tmbTop.gif\" WIDTH=16 HEIGHT=2 BORDER=0 HSPACE=0 VSPACE=0 ALIGN=RIGHT>\n\t"
NetscapeText+="<LAYER ID=elThumbBot LEFT=0 TOP=98 WIDTH=16 CLIP=16,2"
NetscapeText+=" onMouseOver=\"makeScroll("+myname+");\" ";
NetscapeText+=" >\n\t\t";
NetscapeText+="<IMG SRC=\""
NetscapeText+=ImageBaseDir+"tmbBot.gif\" WIDTH=16 HEIGHT=2 BORDER=0 HSPACE=0 VSPACE=0 ALIGN=RIGHT>\n\t"
NetscapeText+="</LAYER>\n\t</LAYER>\n\t\t<LAYER ID=elButtonBot"
NetscapeText+=" onMouseOver=\"makeScroll("+myname+");\" LEFT=0 TOP=";
NetscapeText+=constHeightInner
NetscapeText+=" WIDTH=16 CLIP=16,16>\n\t\t\t<IMG SRC=\""
NetscapeText+=ImageBaseDir+"butBu.gif\" WIDTH=16 HEIGHT=16 HSPACE=0 BORDER=0>\n\t\t</LAYER>\n\t</LAYER>\n</LAYER>\n"

//alert(NetscapeText)

return(NetscapeText)
} // end function - newNetscape


function newScrollerPad(myW, myH,obj){
	obj.cnt="placeHolder"+globalCnt;
	globalCnt++;

var ImageBaseDir="NSimages\/"
/* This Function Dynamicly Builds the image that the scroller pad will lie on */
	NetscapeText="<IMG SRC=\""
	NetscapeText+=ImageBaseDir+"spacer.gif\" name=\""+obj.cnt+"\" WIDTH="
	NetscapeText+=myW
	NetscapeText+=" HEIGHT=\""
	NetscapeText+=myH
	NetscapeText+="\">"
return(NetscapeText)
} // end function - newScrollerPad