<%
Option Explicit
'All ASP code programmed by: Ross Paul
'Copyright 1997
'Last changed: May 22/97
'NOT FOR RESALE
%>
<%
'===================================================
'MAIN
Private dbConn
Set dbConn = Server.CreateObject("ADODB.Connection")
'Open Data source
dbConn.Open "gaiadiscussion-j"
Private srsThreadList, sstrSQL
Private sintThreadID,sstrName, sdtmLastMessage,sintMessageCount,sintThreadAge,sstrThreadFilter
'sstrSQL = "SELECT * FROM TThreads"
sintThreadAge = Request.Form("ThreadAge")
sstrThreadFilter = Request.Form("ThreadFilter")
if (Len(sintThreadAge) <= 0) then
sintThreadAge = "365"
end if
sstrSQL = "SELECT TThreads.Thread_ID, TThreads.Name, Count(TMessages.Message_ID) AS MessageCount,Max(TMessages.Posted) As LastMessage FROM TMessages TMessages, TThreads TThreads WHERE TThreads.Thread_ID = TMessages.Thread_ID AND TThreads.Name Like '%" & sstrThreadFilter & "%' GROUP BY TThreads.Thread_ID, TThreads.Name HAVING Max(TMessages.Posted) > ({fn Now()}-" & sintThreadAge & ") ORDER BY Max(TMessages.Posted) DESC"
Set srsThreadList = dbConn.Execute(sstrSQL)
%>
Gaia 21 Discussion default-j.asp
新しい話題を作る.
Subject
Last Message
Total Messages
<% If (srsThreadList.EOF = false) and (srsThreadList.BOF = false) then
srsThreadList.MoveFirst()
Do while (srsThreadList.EOF = false)
sintThreadID = srsThreadList("Thread_ID")
sstrName = srsThreadList("Name")
sdtmLastMessage = srsThreadList("LastMessage")
sintMessageCount = srsThreadList("MessageCount")
%>
