<% Set rsPr = Server.CreateObject("ADODB.Recordset") rsPr.ActiveConnection = con_string rsPr.source="SELECT News.id,News.News_Title, News.News_Date, News.language_id FROM News WHERE (((News.language_id)="&lang_id&")) ORDER BY News.News_Date DESC;" rsPr.CursorType = 0 rsPr.CursorLocation = 2 rsPr.LockType = 1 rsPr.Open() dim ctr %>

<%ctr=0%> <%do while not rsPr.eof%>
• &lang=<%=lang%>" style="color:#369; font-family:tahoma,arial;" target=_blank> <%=rsPr("News_Title")%>
  <%=rsPr("News_Date")%>
<%ctr=ctr+1%> <%rsPr.movenext%> <%loop%>