<%
Dim RSForside
Dim RSForside_numRows
Set RSForside = Server.CreateObject("ADODB.Recordset")
RSForside.ActiveConnection = MM_ConnNews_STRING
RSForside.Source = "SELECT DatePart('d',[eventdate]) AS Day , DatePart('m',[eventdate]) AS month , DatePart('yyyy',[eventdate]) AS Year
FROM tblmenu;"
RSForside.CursorType = 0
RSForside.CursorLocation = 2
RSForside.LockType = 1
RSForside.Open()
RSForside_numRows = 0
%>
|