<% Dim objConn Dim rsInventory Dim strInventory Dim strConn strConn = "DRIVER=SQL Server;" strConn = strConn & "UID=hwr;" strConn = strConn & "PASSWORD=hwrzzz1!;" strConn = strConn & "DATABASE=CRM02;" strConn = strConn & "SERVER=D7LR0CC1\SQLWOODLOGICS" strInventory = "Select *" strInventory = strInventory & " FROM ((Inventory INNER JOIN WL_GradeCodes ON Inventory.gradeid = WL_GradeCodes.GradeID) INNER JOIN WL_SpeciesCodes ON Inventory.speciesid = WL_SpeciesCodes.SpeciesID) INNER JOIN WL_ThicknessCodes ON Inventory.thicknessid = WL_ThicknessCodes.ThicknessID" strInventory = strInventory & " WHERE (((Inventory.companyid)=103222))" strInventory = strInventory & " ORDER BY WL_SpeciesCodes.SpeciesSort, WL_ThicknessCodes.ThicknessSort, WL_GradeCodes.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")%>