A' それぞれの項目から値を取得する に下記1行(赤色)を追加
InputKaiha = Request.Form("Kaiaha")
InputName = Request.Form("Name")
InputYubin = Request.Form("Yubin")
InputAddress = Request.Form("Address")
InputEMail = Request.Form("EMail")
InputTel = Request.Form("Tel")
InputFax = Request.Form("Fax")
InputComments = Request.Form("Comments")
B−− メールの内容 −−
sBody = "会社名 : " & Request.Form("Kaisha") & vbCrlf & _
"お名前 : " & Request.Form("Name") & vbCrlf & _
"郵便番号 : " & Request.Form("Yubin") & vbCrlf & _
"住所 : " & Request.Form("Address") & vbCrlf & _
"電子メール アドレス : " & Request.Form("EMail") & vbCrlf & _
"電話番号 : " & Request.Form("Tel") & vbCrlf & _
"FAX 番号 : " & Request.Form("Fax") & vbCrlf & _
"コメント : " & vbCrlf & Request.Form("Comments") & vbCrlf