%@ Language=VBScript %> <% Option Explicit Response.Expires = 720 Dim Flag Dim Height, Width, Length Dim FrameBdLength, FrameBdWidth Dim KickFrameLength, KickFrameWidth %>
Here is a page that GARF has developed to assist you in building your own aquarium stand the size you want. Just enter the height, width, length and for the stand. A cut list will be calculated and displayed on the following page along with assembly instructions.
Stand Height = <%=height%>" Stand Width = <%=Width%>" Stand Length = <%=Length%>" |
Top Frame: 2 - 2 x 4 x <%=getfraction(FrameBdLength)%> <%=2 + cint((cint(length)/18 -1))%> - 2 x 4 x <%=getfraction(FrameBdWidth)%> Bottom Frame: 2 - <%=getfraction(FrameBdLength)%> x 2 x 4 <%=2 + cint((cint(length)/36 -1))%> - 2 x 4 x <%=getfraction(FrameBdWidth)%> Uprights: <%=4 + 2 * cint((cint(length)/24 -1))%> - 2 x 4 x <%=getfraction(Height)%> Stand Top: 1 - 3/4 inch plywood - <%=getfraction(length)%> x <%=getfraction(width)%> Aquarium Stand Construction Procedure
a. Inspect all pieces for rough or flawed edges. Sand as needed.
|
|
<% End If function GetFraction(fraction) dim period, sInteger, sFraction period = instr(1,fraction,".") if period <> 0 then sInteger = left(fraction,period -1) if sinteger = 0 then sinteger = "" end if sfraction = right(fraction,len(fraction) - period) sfraction = ConvertFraction(sFraction) else sfraction = fraction end if getfraction = sInteger & sFraction end function function ConvertFraction(temp) select case temp case "5" ConvertFraction = " 1/2" case "25" ConvertFraction = " 1/4" case "375" ConvertFraction = " 3/8" case "75" ConvertFraction = " 3/4" case else ConvertFraction = temp end select end function %>