<%@ LANGUAGE="VBSCRIPT" %> Stirling Internet web design PC support clients internet access satellite broadband Scotland
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