|
|
<%
Set rs = Server.CreateObject("Adodb.Recordset")
sql = "Select * From HTX_Product_Class Order BY ClassSort Asc"
rs.open sql,conn,1,1
Do while not rs.eof
%>
<%
For i = 1 to 2
IF rs.eof Then Exit For
IF i = 2 Then
strBColor = ""
Else
strBColor = "border-right:1px #7F1C1D solid;"
End IF
%>
|
<%
rs.movenext
Next
%>
<%
Loop
rs.close
Set rs = Nothing
%>
|
