<%@ Language=VBScript %> <% Option Explicit Response.Expires = 720 Dim Flag Dim Height, Width, Length Dim FrameBdLength, FrameBdWidth Dim KickFrameLength, KickFrameWidth %>
GARF HOME PAGE |  <% Flag = request.form("Flag") If IsEmpty(Flag) or Flag = "" or Flag = "0" then %>

 Building your own stand

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.
 

Height  
Width  
Length 
<% End If If Flag = "1" then Height = request.form("txtHeight") Width = request.form("txtWidth") Length = request.form("txtLength") FrameBdLength = Length FrameBdWidth = width - 3 'KickFrameLength = Length - 4 'KickFrameWidth = width - 5 %>
The cutlist below requires 2 x 4 lumber that has the actual dimensions of 1 1/2 x 3 1/2.

Stand Dimensions:

Stand Height = <%=height%>"
Stand Width = <%=Width%>"
Stand Length = <%=Length%>"

Cut List:

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.
b. Lay out boards for top frame.
c. Screw the end boards and supports to front and back pieces
d. Lay out boards for bottom frame.
e. Screw the end boards and supports to front and back pieces
f. Screw the upright boards to bottom frame.
g. Screw the upright boards to the top frame.
h. Put the 3/4" plywood top on the stand.
i. Cover the stand with your choice of covers i.e 1/4 inch finish plywood.

<% 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 %>