Staff Diaries
<%
Set Count = Server.CreateObject("ADODB.Connection")
Count.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\www\databases\3d Retreat\snitz_forums_2000.mdb"
SQL_query = "Select top 10 FORUM_TOPICS.TOPIC_ID, FORUM_TOPICS.T_DATE, FORUM_TOPICS.T_AUTHOR, FORUM_MEMBERS.M_NAME FROM FORUM_MEMBERS, FORUM_TOPICS WHERE FORUM_TOPICS.CAT_ID=10 AND FORUM_MEMBERS.MEMBER_ID = FORUM_TOPICS.T_AUTHOR order by FORUM_TOPICS.T_DATE Desc"
Set CC = Count.Execute(SQL_query)
While Not CC.EOF
'format Date
tmpDate = Mid(CC("T_DATE"),5,2) & "." & Mid(CC("T_DATE"),7,2)
%>
" class="whitelink"><%= CC("M_NAME")%> (<%= tmpDate%>)
<%
CC.MoveNext
Wend
CC.Close
CC = null
Count.close
Count = null
%>
|
