 |
|
| Selected Client List : Alphabetical Order |
|
<%
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.CursorType = adOpenKeyset
rs2.LockType = adLockPessimistic
strSQL = "select * from ClientCategories order by Page"
rs.open strSQL, conn
while not rs.EOF
%>
<%=rs("Name")%>: <% strSQL = "select * from Clients where Hidden=0 and CategoryID=" & rs("ID") & " order by Name" rs2.open strSQL, conn while not rs2.EOF %> <%if rs2("Domain") = "" then%> <%=rs2("Name")%> <%else%> " target="_blank"><%=rs2("Name")%> <%end if%> <% rs2.movenext wend rs2.close %> <% rs.movenext wend rs.close %> |
 Home |