<%@LANGUAGE="VBSCRIPT"%> <% Dim rsAssociats Dim rsAssociats_numRows Set rsAssociats = Server.CreateObject("ADODB.Recordset") rsAssociats.ActiveConnection = MM_connArac_STRING rsAssociats.Source = "SELECT * FROM Associats ORDER BY nomAgencia ASC" rsAssociats.CursorType = 0 rsAssociats.CursorLocation = 2 rsAssociats.LockType = 1 rsAssociats.Open() rsAssociats_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsAssociats_numRows = rsAssociats_numRows + Repeat1__numRows %> ARAC <% While ((Repeat1__numRows <> 0) AND (NOT rsAssociats.EOF)) %> <%If (Repeat1__numRows Mod 2) Then%> <%Else%> <%End If%> <%If (rsAssociats.Fields.Item("Web").Value) <> "" Then%> <%else%> <%End If%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsAssociats.MoveNext() Wend %>
         
  Agencia-Agency Tel Fax E-mail  
" target="_blank"><%=(rsAssociats.Fields.Item("nomAgencia").Value)%><%=(rsAssociats.Fields.Item("nomAgencia").Value)%><%=(rsAssociats.Fields.Item("Telefon").Value)%> <%=(rsAssociats.Fields.Item("Fax").Value)%> "><%=(rsAssociats.Fields.Item("Email").Value)%>
         
<% rsAssociats.Close() Set rsAssociats = Nothing %>