<%
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 srsMessageList, srsThreadInfo,sstrSQL
Private sintThreadID,sstrName, sintMessageID,sstrUserName, sdtmPosted, sstrEmailAddress, sstrSubject,sstrBody,sstrThreadName,sintNoMessagesFlag
sintThreadID = Request.QueryString("threadid")
if (Len(sintThreadID) > 0) then
sstrSQL = "SELECT * FROM TMessages WHERE Thread_ID =" & sintThreadID
Set srsMessageList = dbConn.Execute(sstrSQL)
sstrSQL = "SELECT * FROM TThreads WHERE Thread_ID =" & sintThreadID
Set srsThreadInfo = dbConn.Execute(sstrSQL)
else
sstrSQL = "SELECT * FROM TMessages WHERE Thread_ID = 0"
Set srsMessageList = dbConn.Execute(sstrSQL)
end if
%>
<% if (srsThreadInfo.EOF = false) and (srsThreadInfo.BOF = false) then
srsThreadInfo.MoveFirst()
sstrThreadName = srsThreadInfo("Name")
%>
ガイア ２１ messages-j.asp
<%=sstrThreadName%>
今までのメッセージ:
<% else
Response.Write("Invalid thread specified. No thread exists for the ID.")
end if
%>
<% If (srsMessageList.EOF = false) and (srsMessageList.BOF = false) then
srsMessageList.MoveFirst()
Do while (srsMessageList.EOF = false)
sintMessageID = srsMessageList("Message_ID")
sstrUserName = srsMessageList("UserName")
sdtmPosted = srsMessageList("Posted")
%>
| <%=sstrUserName%> |
<%=FormatDateTime(sdtmPosted,2)%>
|
<%
srsMessageList.MoveNext()
Loop
else
sintNoMessagesFlag = 1
end if
%>
<% If sintNoMessagesFlag = 0 then
Dim strCRLF
strCRLF = Chr(10) & Chr(13)
srsMessageList.MoveFirst()
Do while (srsMessageList.EOF = false)
sintMessageID = srsMessageList("Message_ID")
sstrEmailAddress = srsMessageList("EmailAddress")
sstrUserName = srsMessageList("UserName")
sdtmPosted = srsMessageList("Posted")
sstrSubject = srsMessageList("Subject")
' Replace CR/LFs with paragraph marker
sstrBody = Replace(srsMessageList("Body"),strCRLF,"")
%>
Subject: <%=sstrSubject%>
From: <%=sstrUserName%> (
<%=sstrEmailAddress%>)
Date: <%=FormatDateTime(sdtmPosted,1)%>
<%=sstrBody%>
<%
srsMessageList.MoveNext()
Loop
end if
%> <%
dbConn.Close()
%>
この話題について返事を書く