<% '*************************************************** response.Write forum() function Forum() set rsMessage = Server.CreateObject("Adodb.RecordSet") sqlMessage = "SELECT DISTINCT message.title, Count(message.articleID) AS CountOfarticleID FROM message GROUP BY message.title" 'sqlmessage = "SELECT DISTINCT message.title, Count(message.articleID) AS CountOfarticleID, First(message.datecreated) AS FirstOfdatecreated FROM message GROUP BY message.title" rsMessage.Open sqlMessage,con,3,2 if not rsMessage.EOF then p=p & "" p=p & "" p=p & "" p=p & "" p=p & "" p=p & "

Discussion Board " p=p & "Post a new topic

Search Topic: " p=p & SearchMessageDropDown("title") & " " p=p & "

" p=p & "" p=p & "" p=p & "" while not rsMessage.EOF title = rsMessage("Title") replies = rsMessage("CountOfarticleID") urltitle = "" & title & "" urlimage = "" p=p & "" p=p & "" p=p & "" p=p & "" p=p & "" rsMessage.MoveNext wend p=p & "

	Topic	Replies
" & urlimage & "	" & urltitle & "	" & replies & "

" else p=p & "

Nothing to show

" end if rsMessage.Close set rsMessage = Nothing Forum = p end function '*************************************************************************** %>