<%@ Language=VBScript %> <% If Request.Form="" Then Response.Write Request.QueryString("id")%>

掲示板書き込み　戻る

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



アイコン
名前　　
E-mail　
URL　　
題　　　 (50文字)
本文　　
内容を確認して「掲示板」に投稿して下さい。
　


<% Else If Request.Form("mail")<>"" Then 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" 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") 'max=Len(Request.Form("memo")) 'Response.Write max 'MyArray=Split(Request.Form("memo")) 'For n=0 To 256 ' s = s & MyArray(n) & Chr(&HA) ' Response.Write s 'NEXT 'rs("memo")=s rs("memo")=Request.Form("memo") rs("mday")=Now() rs.Update rs.Close set cmd = nothing conn.Close Response.Redirect "disp.asp" Else Response.Redirect "new.asp" End If End If %>