% ' FP_ASP ASP は FrontPage コンポーネントによって自動的に生成されました。 編集しないでください。 On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Session.LCID = 1041 Err.Clear strErrorUrl = "http://japantv.serverjp.net/500_server_error.html" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "接続を作成できません" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "レコードセットを作成できません" fp_conn.Open Application("index_ConnectionString") FP_DumpError strErrorUrl, "データベースを開けません" fp_rs.Open "結果", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "レコードセットを開けません" fp_rs.AddNew FP_DumpError strErrorUrl, "データベースの新しいレコードセットを追加できません" Dim arFormFields0(1) Dim arFormDBFields0(1) Dim arFormValues0(1) arFormFields0(0) = "ID" arFormDBFields0(0) = "ID1" arFormValues0(0) = Request("ID") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "ユーザー名" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "ブラウザの種類" End If FP_SaveFieldToDB fp_rs, Now, "タイムスタンプ" If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "リモート_コンピュータ名" End If fp_rs.Update FP_DumpError strErrorUrl, "データベースを更新できません" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://japantv.serverjp.net/subscripcion.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>