<% Dim rs Dim rs_numRows Set rs = Server.CreateObject("ADODB.Recordset") rs.ActiveConnection = MM_jr_STRING rs.Source = "SELECT name_en, url_en, sort_order FROM friends ORDER BY sort_order" rs.CursorType = 0 rs.CursorLocation = 2 rs.LockType = 1 rs.Open() rs_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_numRows = rs_numRows + Repeat1__numRows %> Français <% if rs.EOF then %>

Coming Soon!

<% else %>

<% While ((Repeat1__numRows <> 0) AND (NOT rs.EOF)) %>

" target="_blank"><%=(rs.Fields.Item("name_en").Value)%>

<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs.MoveNext() Wend %>

<% end if %> <% rs.Close() Set rs = Nothing %>