<% DSNtemp="DRIVER={Microsoft Access Driver (*.mdb)}; " DSNtemp=dsntemp & "DBQ=" & server.mappath("../db/anakoinoseis.mdb") sqlstmt = "SELECT * FROM journal ORDER BY id DESC" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sqlstmt, DSNtemp, 3, 3 TotalRecs = rs.recordcount x = 0 For x = 1 to 9999 If rs.eof then Exit For Else date1 = rs("pdate") id = rs("ID") name1 = rs("pname") link = "" & date1 & "" description = name1 %> <% rs.MoveNext End If Next%>

Αριθμός	Θέμα
1	Θέμα: 5ο Παγκύπριο Φαρμακευτικό Συνέδριο 24-26 Νοεμβρίου 2006