Used Equipment
|
Used Equipment |
<%
dim MaxCols, cntCols, cntRows
MaxCols = 2
cntCols = 0
cntRows = 0
qCategory = "SELECT DISTINCT Field1 FROM tblProdData ORDER BY Field1 ASC"
Set objCat = objConn.Execute(qCategory)
WHILE NOT objCat.EOF
cntCols = cntCols + 1
IF cntCols = 1 THEN
Response.Write ""
cntRows = cntRows + 1
END IF
%>
|
" style="text-decoration:none">
<%= objCat("Field1") %>
|
<%
IF cntCols = MaxCols THEN
Response.Write " "
cntCols = 0
END IF
objCat.MoveNext
WEND
Set objCat = Nothing
IF cntCols <> 0 AND cntCols < MaxCols AND cntRows > 1 THEN
dim cntAddCols
FOR cntAddCols = 1 TO (MaxCols - cntCols)
Response.Write " | "
NEXT
Response.Write ""
ELSE
Response.Write ""
END IF
%>
|
|
Click logos below to visit
the manufacturer website
for a full product line catalog.
|
|
|
