|
|
 |
|
|
|
<%
strSQL = "SELECT ProductID, Name, PurchaseURI, Price FROM Product WHERE DisplayOrder > 0 ORDER BY DisplayOrder, Name"
Set objRs = ExecuteSQL(objDB, strSQL, Empty, Empty)
intCol = 0
Do While Not objRs.EOF
If intCol = 0 Then
%><%
intCol = 1
End If
%>
|
<%
intCol = intCol + 1
If intCol > 2 Then
%> <%
intCol = 0
End If
objRs.MoveNext
Loop
objRs.Close
If intCol = 1 Then
%> | <%
End If
%>
|
|
| |
|
|
|
 |
| |