<%@ Language = VBScript %> NETPLEX <% set rsCOMP=server.CreateObject ("ADODB.Recordset") rsCOMP.Open "SELECT * FROM tbl_planners ORDER BY company ", conn %>
 
 
<% Do while not rsCOMP.EOF aa=aa+1 if aa mod 2 =1 then %> <% end if %> <% if aa mod 2 =0 then %> <% end if %> <% rsCOMP.MoveNext Loop Set rsCOMP=Nothing %>
<%=aa%>. <%=rsCOMP("company")%>
<% if rsCOMP("line_1")<>"" then Response.Write rsCOMP("line_1")&"
"%> <% if rsCOMP("line_2")<>"" then Response.Write rsCOMP("line_2")&"
"%> <% if rsCOMP("phone")<>"" then Response.Write "Tel: "&rsCOMP("phone")&"
"%> <% if rsCOMP("fax")<>"" then Response.Write "Fax: "&rsCOMP("fax")&"
"%> <% if rsCOMP("email")<>"" then %> e-mail: "><%=rsCOMP("email")%>
<% end if %> <% if rsCOMP("site")<>"" then %> ','','toolbar=yes,location=yes,status=yes,menubar=yes,scrollbars=yes,resizable=yes,width=500,height=300')"><%=rsCOMP("site")%> <% end if %>
  SITE MAP | ORDERING DOCUMENTATION
top