<%@ Language=VBScript %> <% i = Request.QueryString("id") 'Response.Write i %> 伝言版

伝言版　戻る

<% 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 id='" & i & "'" cmd.CommandText = strSQL set rs = CreateObject("ADODB.Recordset") rs.Open strSQL,Conn,0,1 rs.MoveFirst %>
時刻　<% Response.Write rs("mday") %>
名前　<% Response.Write "　" & rs("name") %>
E-mail<% Response.Write "" & rs("mail") & "" %>
URL　 <% Response.Write "" & rs("url") & "" %>
 
題　　<% Response.Write rs("title") %>

<% memo1=rs("memo") MyArray=Split(memo1,Chr(&HA)) For Each pmemo2 In MyArray %> 　 <% Response.Write pmemo2 %>
<% Next %>

<% If rs("level2") = 0 Then Response.Write "" & "この発言に対して返信する" & "" End If rs.Close set cmd = nothing conn.Close %>