<%@ Language=VBScript %> <% 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 %> <% If Request.Form()="" Then i = Request.QueryString("id") %> 返信を書く

掲示板書き込み　戻る

お名前・メールアドレス等、記入いただいたものはすべて掲載されます。
誹謗、中傷などの内容は削除される場合がありますのでご了承下さい。



アイコン <% strSQL = "SELECT * FROM message WHERE((message.id)=" & i & ")" cmd.CommandText = strSQL set rs = CreateObject("ADODB.Recordset") rs.Open strSQL,Conn,0,1 rs.MoveFirst 'msg1=rs("memo") 'msg2="" 'MyArray=Split(msg1,Chr(&HA)) 'For Each msg2 In MyArray ' Response.Write Chr(62) & msg2 'Next 'msg1=rs("memo") 'msg2="" 'MyArray=Split(msg1,vbCrLf) 'For n=0 To 9 ' Response.Write Chr(62) & MyArray(n) 'Next %>
名前　　
E-mail　 　(入力必須)
URL　　
題　　　 ">
返事　　
内容を確認して「掲示板」に投稿して下さい。
"> "> 　
<% rs.Close %>


<% Else If Request.Form("mail")<>"" Then strSQL = "SELECT * FROM message" cmd.CommandText = strSQL set rs = CreateObject("ADODB.Recordset") rs.Open strSQL,Conn,3,2 rs.AddNew rs("icon")=Request.Form("icon") rs("name")=Request.Form("name") rs("mail")=Request.Form("mail") rs("url")=Request.Form("url") rs("title")=Request.Form("title") rs("memo")=Request.Form("memo") rs("mday")=Now() rs("parent")=Request.Form("parent") rs("level2")=Request.Form("level") rs.Update rs.Close set cmd = nothing conn.Close End If Response.Redirect "disp.asp" End If %>