<% Set rsPr = Server.CreateObject("ADODB.Recordset") rsPr.ActiveConnection =con_string rsPr.source="SELECT News.*, News.language_id, News.News_Date FROM News WHERE (((News.language_id)="&lang_id&" )) ORDER BY News.News_Date DESC;" rsPr.CursorType = 3 rsPr.CursorLocation = 3 rsPr.LockType = 1 rsPr.Open() totalnews=rspr.recordcount %>

» <%=Read_my_latest_news%>

<%ctr=0%> <% if not rspr.eof then do until rsPr.eof%> <% if ctr=>3 then exit do rsPr.movenext%> <%loop else%>

<%=Coming_Soon%>..

<%end if %>

> <%if rsPr("Thumb_Image")<>"" then%> " border="0" style="padding:5px;" > <%end if%>

> &lang=<%=lang%>" target=_blank <%if ctr mod 2 = 1 then response.Write("style='color:#000000;'") else response.Write("style='color:#ffffff;'") end if %> > <%=rsPr("News_Title")%> <%ctr=ctr+1%>

<%if totalnews>3 then%> <%end if%>