<% '----- HTMLファイル読み込み ----- Set fso = Server.CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(Server.Mappath("./") & "\form_email.html") PutHtml = ts.ReadAll Set bobj = Server.CreateObject("basp21") ename = "" eemail = "" eselect = "" errmsg = "" If Request("err") = 1 Then ename = Session("ename") eemail = Session("eemail") eselect = Session("eselect") If Session("ppolicy") = 1 Then PutHtml = Replace(PutHtml, "name=""ppolicy"" type=""radio"" value=""1""", "name=""ppolicy"" type=""radio"" value=""1"" checked") PutHtml = Replace(PutHtml, "name=""ppolicy"" type=""radio"" value=""0"" checked", "name=""ppolicy"" type=""radio"" value=""0""") End If errmsg = "
" & Session("eerrmsg") & "" End If PutHtml = Replace(PutHtml, "%%name%%", ename) PutHtml = Replace(PutHtml, "%%email%%", eemail) PutHtml = Replace(PutHtml, "