Εορτολόγιο σε asp

[Roland]

Γειά σας

Έχω κάνει ένα εορτολόγιο σε asp. Τα δεδομένα είναι σε μια access σε μορφή

 

ID Day Month Name

 

O κώδικας:

 

<%

Response.Charset = "utf-8"

Response.CodePage = 65001

Set con = Server.CreateObject("ADODB.Connection")

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("private/datadb.mdb")

 

Dim RS

Dim iMonth

Dim iDay

Dim iYear

 

iDay = Day(Date)

iMonth = Month(Date)

iYear = Year(Date)

 

Set RS = con.Execute("SELECT * FROM eortologio WHERE Eortologio_month = " & iMonth & " AND Eortologio_date = " & iDay & " ORDER BY Eortologio_Id " )

 

Do While Not RS.EOF

%>

 

 

Σήμερα γιορτάζει : <%=RS.Fields("eortologio_name")%>

 

<%

RS.MoveNext

Loop

%>

 

 

Δουλεύει κανονικά.

Αυτό που δεν κατάφερα να κάνω είναι να μου δείχνει την αμέσως επόμενη γιορτή.

 

ΠΧ

Τώρα

"Σήμερα γιορτάζει : Ευάγγελος"

 

Μετά

"Σήμερα γιορτάζει : Ευάγγελος , στις 15/10 γιορτάζει : Ελπίδα "

 

Μπορεί κάποιος που ξέρει να με βοηθήσει σε αυτό?

Ευχαριστώ πολύ