% 'Response.Buffer = True Dim EMail Dim DatabaseFileName Dim ConnString Dim Conn Dim Rec Dim Value if Request("Entry") <> "" Then Value = Request.form("name") Session("name") = Value Value = Request.form("name_kana") Session("name_kana") = Value Value = Request.form("sei") Session("sei") = Value Value = Request.form("post") Session("post") = Value Value = Request.form("address") Session("address") = Value Value = Request.form("tel") Session("tel") = Value Value = Request.form("fax") Session("fax") = Value Value = Request.form("email") Session("email") = Value Value = Request.form("syubetu") Session("syubetu") = Value Value = Request.form("syoku") Session("syoku") = Value Value = Request.form("sanka") Session("sanka") = Value Value = Request.form("free") Session("free") = Value Response.Redirect "Check.asp" Response.end End If %>
|
●インターネットでのお申し込み
|
|||||||||||||||||||
|
|