全文表示　新しく投稿された順に表示します。

目次表示　投稿された目次を掲載します。

書き込む　新しい話題を提供して下さる時はこちらです。

<% cnt = 1 set Conn = CreateObject("ADODB.Connection") Conn.ConnectionString = "uid=sa;pwd=;driver={SQL Server};server=pserver;database=ASP;dsn=''" Conn.Open set cmd = CreateObject("ADODB.Command") cmd.ActiveConnection = Conn strSQL = "SELECT * FROM message WHERE((message.parent)=0) ORDER BY mday DESC" cmd.CommandText = strSQL set rs = CreateObject("ADODB.Recordset") rs.Open strSQL,Conn,0,1 rs.MoveFirst Do While not rs.EOF %>

---

<% Response.Write "" & "　" & Mid(rs("mday"),1,8) & "　" & "[" & rs("name") & "]" & "　" & rs("title") %>

<% msg1=rs("memo") msg2="" MyArray=Split(msg1,Chr(&HA)) For Each msg2 In MyArray %> 　 <% Response.Write msg2 %>
<% Next %>
<% strSQL = "SELECT * FROM message WHERE((message.parent)=" & rs("id") & ") ORDER BY mday ASC" cmd.CommandText = strSQL set rs1 = CreateObject("ADODB.Recordset") rs1.Open strSQL,Conn,0,1 Do While not rs1.EOF %> <% Response.Write "　　　　" & "" & "　" & Mid(rs1("mday"),1,8) & "　" & "[" & rs1("name") & "]" & "　" & rs1("title") %>

<% msg1=rs1("memo") msg2="" MyArray=Split(msg1,Chr(&HA)) For Each msg2 In MyArray %> 　 <% Response.Write "　　　　　　" & msg2 %>
<% Next rs1.MoveNext Loop rs1.Close rs.MoveNext cnt=cnt+1 If cnt>100 Then Exit Do Loop rs.Close set cmd = nothing conn.Close %>