<% '*************************************** '* Script written by nexusjnr '* I am planning on adding more '* stuff to this, so no nasty '* comments please. '* please send comments, suggestions '* to mail@nexusjnr.co.uk. '* feel free to distribute this '* code...a mention would be nice '*************************************** %> Journal

ΑΝΑΚΟΙΝΩΣΕΙΣ  

ΑΡΧΙΚΗ ΣΕΛΙΔΑ
ΠΡΟΦΙΛ
ΣΥΜΒΟΥΛΙΟ
ΚΑΝΟΝΙΣΜΟΙ
ΧΡΗΣΙΜΑ LINKS
ΕΠΙΚΟΙΝΩΝΙΑ
ΑΝΑΚΟΙΝΩΣΕΙΣ
ΕΝΤΥΠΑ. ΣΥΜΒ. ΦΑΡΜ.
 Ανακοινώσεις
<% 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%>
Ανακοινώσεις
<% =link%>  -- <% =description%>
 

[ ΑΡΧΙΚΗ ΣΕΛΙΔΑ ] [ ΠΡΟΦΙΛ ] [ ΣΥΜΒΟΥΛΙΟ ] [ ΚΑΝΟΝΙΣΜΟΙ ] [ ΧΡΗΣΙΜΑ LINKS ] [ ΕΠΙΚΟΙΝΩΝΙΑ ] [ ΑΝΑΚΟΙΝΩΣΕΙΣ ] [ ΕΝΤΥΠΑ. ΣΥΜΒ. ΦΑΡΜ. ]
Copyright © 2001-2004 Παγκύπριος Φαρμακευτικός Σύλλογος
Please contact the webmaster for comments and suggestions
Design and Hosting by Novatex Solutions Ltd