<% NavBarSubsites %> servers <% function safelen(byval title) if Len(title) > 11 then safelen = left(title,9) & ".." else safelen = title end if end function set tigCON = Server.CreateObject("ADODB.Connection") tigCON.Open(DSN) ' set up the query to list the news by date Desc query = "SELECT id, server_name " & _ "FROM server_info " & _ "WHERE shown = 1 " & _ "ORDER BY datestamp DESC" 'Response.Write("Query = [" & query & "] ") set tigRS = tigCON.Execute(query) ' make sure we have see if there is no records if (tigRS.EOF) Then %> <% end if i = 1 do while not (tigRS.EOF) and (i < 31) %> <% i = i + 1 tigRS.MoveNext loop tigRS.close tigCON.close %> nothing atm " class="navlink"><%=safelen(no_tags(tigRS("server_name")))%> sysadmin <% if (Request.Cookies("lvlserver")("sysadminid")) > 0 then %> <% else %> <% end if %> admin add server " class="navlink">edit server my details join login password info about LvL submission broken link help me! .asp code email LvL