<% Dim Con Dim databaseConnect sqlString = "SELECT id,dat,title FROM news ORDER BY dat" databaseConnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../admin/temka.mdb") Set Con = Server.CreateObject("ADODB.Connection") Con.Open databaseConnect Set prodRS = Con.Execute(sqlString) %> TEMKA


<%IF prodRS.BOF OR prodRS.EOF THEN %> In cooperation with Messrs. MACCAFERRI Ιtaly, our company has launched the promotion on the Greek market of a new project MAC.RO. STEELGRID (special security systems for rockfall protection).
 <% ELSE %>

<% WHILE NOT prodRS.EOF %> <% prodRS.MoveNext IF not prodRS.EOF THEN Response.Write ""%> <% WEND %>
<% end if %>