Please feel free to browse through our stocklist. If you are interested in receiving more information or a quote on any of the items listed below please contact us.

Inventory Information

<% Dim objConn Dim rsInventory Dim strInventory Dim strConn strConn = "DRIVER=SQL Server;" strConn = strConn & "UID=sa;" strConn = strConn & "PASSWORD=cgb11!;" strConn = strConn & "Address=66.253.11.5,1433;" strConn = strConn & "DATABASE=WoodLogics;" strConn = strConn & "SERVER=66.253.11.5\SQLExpress" strInventory = "Select * " strInventory = strInventory & " From Inventory" strInventory = strInventory & " Where CompanyID = 100022" strInventory = strInventory & " And privacyind = 'No'" strInventory = strInventory & " Order By SpeciesSort, ThicknessSort, GradeSort" Set rsInventory = Server.CreateObject("ADODB.RecordSet") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open strConn rsInventory.Open strInventory, objConn %>

Current Stock List

<% Dim objStripe RowColor = "white" Do Until rsInventory.Eof if objStripe = "gainsboro" then objStripe = "white" Else objStripe = "gainsboro" End If %> <% rsInventory.MoveNext Loop %>

<%=rsInventory("Quantity")%> <%=rsInventory("QuantityID")%>

<%=rsInventory("Thickness")%>

<%=rsInventory("Grade")%>

<%=rsInventory("Species")%>

<%=rsInventory("Specifications")%>

HOME

PROFILE

PRODUCTION

SALES

INVENTORY

TIMBER/ LOG & LAND PURCHASING