<%@ Language=VBScript %> <% Option Explicit 'SSLがOFFの場合は、強制的にSSLをONにする If Request.ServerVariables("HTTPS") = "off" Then Response.Redirect "https://www.imca.co.jp/reg/reg_normal.asp" End If 'エラーチェックを通過し、送信ボタンが押された場合は次処理用に、セッションに値を保存 If (InStr(CStr(Trim(Request.Form("submit_b"))), "送信") >= 1 And (Request.Form("s_button") = "")) Then Dim m Session.Contents("sei") = CStr(Trim(Request.Form("sei"))) Session.Contents("mei") = CStr(Trim(Request.Form("mei"))) Session.Contents("kana_sei") = CStr(Trim(Request.Form("kana_sei"))) Session.Contents("kana_mei") = CStr(Trim(Request.Form("kana_mei"))) Session.Contents("sex") = CStr(Trim(Request.Form("sex"))) Session.Contents("birth") = CStr(Trim(Request.Form("birthyear"))) & "/" & CStr(Trim(Request.Form("birthmonth"))) & "/" & CStr(Trim(Request.Form("birthday"))) Session.Contents("email") = CStr(Trim(Request.Form("email"))) If CStr(Trim(Request.Form("postcode1"))) <> "" And CStr(Trim(Request.Form("postcode2"))) <> "" Then Session.Contents("postcode") = CStr(Trim(Request.Form("postcode1"))) & "-" & CStr(Trim(Request.Form("postcode2"))) Else Session.Contents("postcode") = "未入力" End If Session.Contents("ken") = CStr(Trim(Request.Form("ken"))) Session.Contents("address1") = CStr(Trim(Request.Form("address1"))) If CStr(Trim(Request.Form("address2"))) <> "" Then Session.Contents("address2") = CStr(Trim(Request.Form("address2"))) Else Session.Contents("address2") = "未入力" End If If CStr(Trim(Request.Form("tel1"))) <> "" And CStr(Trim(Request.Form("tel2"))) <> "" And CStr(Trim(Request.Form("tel3"))) <> "" Then Session.Contents("tel") = CStr(Trim(Request.Form("tel1"))) & "-" & CStr(Trim(Request.Form("tel2"))) & "-" & CStr(Trim(Request.Form("tel3"))) Else Session.Contents("tel") = "未入力" End If If CStr(Trim(Request.Form("m_tel1"))) <> "" And CStr(Trim(Request.Form("m_tel2"))) <> "" And CStr(Trim(Request.Form("m_tel3"))) <> "" Then Session.Contents("m_tel") = CStr(Trim(Request.Form("m_tel1"))) & "-" & CStr(Trim(Request.Form("m_tel2"))) & "-" & CStr(Trim(Request.Form("m_tel3"))) Else Session.Contents("m_tel") = "未入力" End If Session.Contents("method") = CStr(Trim(Request.Form("method"))) Session.Contents("school_name") = CStr(Trim(Request.Form("school_name"))) Session.Contents("school_class") = CStr(Trim(Request.Form("school_class"))) Session.Contents("school_career") = CStr(Trim(Request.Form("school_career"))) Session.Contents("g_date") = CStr(Trim(Request.Form("g_year"))) & "/" & CStr(Trim(Request.Form("g_month"))) Session.Contents("c_num") = CInt(Trim(Request.Form("c_num"))) For m = 1 To CInt(Session.Contents("c_num")) Session.Contents("com_name" & m) = CStr(Trim(Request.Form("com_name" & m))) Session.Contents("tob" & m) = CStr(Trim(Request.Form("tob" & m))) Session.Contents("toj" & m) = CStr(Trim(Request.Form("toj" & m))) Session.Contents("s_date" & m) = CStr(Trim(Request.Form("s_year" & m))) & "/" & CStr(Trim(Request.Form("s_month" & m))) Session.Contents("w_type" & m) = CStr(Trim(Request.Form("w_type" & m))) If CStr(Trim(Request.Form("e_year" & m))) <> "" And CStr(Trim(Request.Form("e_month" & m))) <> "" Then Session.Contents("e_date" & m) = CStr(Trim(Request.Form("e_year" & m))) & "/" & CStr(Trim(Request.Form("e_month" & m))) Else Session.Contents("e_date" & m) = "未入力" End If Session.Contents("job_scr" & m) = CStr(Trim(Request.Form("job_scr" & m))) Next If CStr(Trim(Request.Form("TOEIC"))) <> "" Then Session.Contents("TOEIC") = CStr(Trim(Request.Form("TOEIC"))) Else Session.Contents("TOEIC") = "未入力" End If If CStr(Trim(Request.Form("TOEFL"))) <> "" Then Session.Contents("TOEFL") = CStr(Trim(Request.Form("TOEFL"))) Else Session.Contents("TOEFL") = "未入力" End If If CStr(Trim(Request.Form("eng_r_level"))) <> "" Then Session.Contents("eng_r_level") = CStr(Trim(Request.Form("eng_r_level"))) Else Session.Contents("eng_r_level") = "未入力" End If If CStr(Trim(Request.Form("eng_w_level"))) <> "" Then Session.Contents("eng_w_level") = CStr(Trim(Request.Form("eng_w_level"))) Else Session.Contents("eng_w_level") = "未入力" End If If CStr(Trim(Request.Form("eng_s_level"))) <> "" Then Session.Contents("eng_s_level") = CStr(Trim(Request.Form("eng_s_level"))) Else Session.Contents("eng_s_level") = "未入力" End If If CStr(Trim(Request.Form("license"))) <> "" Then Session.Contents("license") = CStr(Trim(Request.Form("license"))) Else Session.Contents("license") = "未入力" End If Session.Contents("k_tob1") = CStr(Trim(Request.Form("k_tob1"))) If CStr(Trim(Request.Form("k_tob2"))) <> "" Then Session.Contents("k_tob2") = CStr(Trim(Request.Form("k_tob2"))) Else Session.Contents("k_tob2") = "未入力" End If Session.Contents("k_toj1") = CStr(Trim(Request.Form("k_toj1"))) If CStr(Trim(Request.Form("k_toj2"))) <> "" Then Session.Contents("k_toj2") = CStr(Trim(Request.Form("k_toj2"))) Else Session.Contents("k_toj2") = "未入力" End If Session.Contents("k_pow1") = CStr(Trim(Request.Form("k_pow1"))) If CStr(Trim(Request.Form("k_pow2"))) <> "" Then Session.Contents("k_pow2") = CStr(Trim(Request.Form("k_pow2"))) Else Session.Contents("k_pow2") = "未入力" End If If CStr(Trim(Request.Form("income"))) <> "" Then Session.Contents("income") = CStr(Trim(Request.Form("income"))) Else Session.Contents("income") = "未入力" End If If CStr(Trim(Request.Form("contact"))) <> "" Then Session.Contents("contact") = CStr(Trim(Request.Form("contact"))) Else Session.Contents("contact") = "未入力" End If If Not IsEmpty(Request.Form("toikyuujin")) Then Session.Contents("toikyuujin") = CStr(Trim(Request.Form("toikyuujin"))) End If Session.Timeout = 2 Response.Redirect "write_normal.asp" End If Dim agree Dim sei, mei Dim kana_sei, kana_mei Dim sex_m, sex_f Dim birthyear, birthmonth, birthday Dim s_str Dim email Dim postcode1, postcode2 Dim ken Dim address1, address2 Dim tel1, tel2, tel3 Dim m_tel1, m_tel2, m_tel3 Dim method, s_method(2), mc Dim school_name, school_class, school_career Dim g_year, g_month Dim c_num Dim com_name(8) Dim tob_dic, tobkey, tobsel(8), tobstr Dim toj_dic, tojkey, tojsel(8), tojstr Dim s_year(8), s_month(8) Dim w_type(8, 1), e_year(8), e_month(8) Dim job_scr(8) Dim TOEIC Dim TOEFL Dim eng_r_level(2) Dim eng_w_level(2) Dim eng_s_level(2) Dim license Dim k_tob1, k_tob2 Dim k_toj1, k_toj2 Dim k_pow1, k_pow2 Dim income Dim contact Dim dic, skey Dim g_dic, gkey, ckey(1) Dim k Dim k_dic1, k_dic2, kkey1, kkey2 Dim j_dic1, j_dic2, jkey1, jkey2 Dim p_dic1, p_dic2, pkey1, pkey2 '都道府県を定義 Set dic = Server.CreateObject("Scripting.Dictionary") dic.Add "北海道", "" dic.Add "青森県", "" dic.Add "岩手県", "" dic.Add "宮城県", "" dic.Add "秋田県", "" dic.Add "山形県", "" dic.Add "福島県", "" dic.Add "茨城県", "" dic.Add "栃木県", "" dic.Add "群馬県", "" dic.Add "埼玉県", "" dic.Add "千葉県", "" dic.Add "東京都", "" dic.Add "神奈川県", "" dic.Add "新潟県", "" dic.Add "富山県", "" dic.Add "石川県", "" dic.Add "福井県", "" dic.Add "山梨県", "" dic.Add "長野県", "" dic.Add "岐阜県", "" dic.Add "静岡県", "" dic.Add "愛知県", "" dic.Add "三重県", "" dic.Add "滋賀県", "" dic.Add "京都府", "" dic.Add "大阪府", "" dic.Add "兵庫県", "" dic.Add "奈良県", "" dic.Add "和歌山県", "" dic.Add "鳥取県", "" dic.Add "島根県", "" dic.Add "岡山県", "" dic.Add "広島県", "" dic.Add "山口県", "" dic.Add "徳島県", "" dic.Add "香川県", "" dic.Add "愛媛県", "" dic.Add "高知県", "" dic.Add "福岡県", "" dic.Add "佐賀県", "" dic.Add "長崎県", "" dic.Add "熊本県", "" dic.Add "大分県", "" dic.Add "宮崎県", "" dic.Add "鹿児島県", "" dic.Add "沖縄県", "" dic.Add "海外", "" '学歴を定義 Set g_dic = Server.CreateObject("Scripting.Dictionary") g_dic.Add "大学院（博士課程）", "" g_dic.Add "大学院（修士課程）", "" g_dic.Add "大学", "" g_dic.Add "短大", "" g_dic.Add "高等専門学校", "" g_dic.Add "専門学校", "" g_dic.Add "高等学校", "" g_dic.Add "中学校", "" g_dic.Add "その他", "" '業種を定義 Set tob_dic = Server.CreateObject("Scripting.Dictionary") tob_dic.Add "ＩＴ関連（ＳＩ・コンサルティング・ソフトウェア・ネットワーク）", "" tob_dic.Add "エレクトロニクス（電気・電子・通信）", "" tob_dic.Add "機械・メカトロニクス（精密・産業機械・自動車）", "" tob_dic.Add "素材（金属・鉄非鉄・ガラス・土石・セメント）", "" tob_dic.Add "化学（石油・繊維・ゴム・紙）", "" tob_dic.Add "バイオ（医薬品・食品・農業）", "" tob_dic.Add "設備（プラント・エネルギー）", "" tob_dic.Add "商業（商社・小卸売・娯楽・外食・物流）", "" tob_dic.Add "金融（銀行・証券・保険・その他金融）", "" tob_dic.Add "不動産", "" tob_dic.Add "派遣", "" tob_dic.Add "学生", "" tob_dic.Add "その他", "" '職種を定義 Set toj_dic = Server.CreateObject("Scripting.Dictionary") toj_dic.Add "SE／プログラマ", "" toj_dic.Add "ネットワーク関連エンジニア", "" toj_dic.Add "コンサルタント", "" toj_dic.Add "マネジメント", "" toj_dic.Add "営業", "" toj_dic.Add "マーケティング", "" toj_dic.Add "技術営業", "" toj_dic.Add "技術サポート・フィールドエンジニア", "" toj_dic.Add "品質管理（検査技術）", "" toj_dic.Add "生産管理（プロセス技術）", "" toj_dic.Add "電気・電子関連エンジニア", "" toj_dic.Add "機械関連エンジニア", "" toj_dic.Add "半導体関連エンジニア", "" toj_dic.Add "研究（分析・解析）", "" toj_dic.Add "調査（企画）", "" toj_dic.Add "実験・解析・評価", "" toj_dic.Add "スタッフ（事務）", "" toj_dic.Add "総務", "" toj_dic.Add "人事（労務・採用・教育）", "" toj_dic.Add "経理・財務", "" toj_dic.Add "法務", "" toj_dic.Add "特許", "" toj_dic.Add "広報・宣伝", "" toj_dic.Add "購買・資材", "" toj_dic.Add "貿易・海外", "" toj_dic.Add "その他", "" '希望業種を定義 Set k_dic1 = Server.CreateObject("Scripting.Dictionary") k_dic1.Add "ＩＴ関連（ＳＩ・コンサルティング・ソフトウェア・ネットワーク）", "" k_dic1.Add "エレクトロニクス（電気・電子・通信）", "" k_dic1.Add "機械・メカトロニクス（精密・産業機械・自動車）", "" k_dic1.Add "素材（金属・鉄非鉄・ガラス・土石・セメント）", "" k_dic1.Add "化学（石油・繊維・ゴム・紙）", "" k_dic1.Add "バイオ（医薬品・食品・農業）", "" k_dic1.Add "設備（プラント・エネルギー）", "" k_dic1.Add "商業（商社・小卸売・娯楽・外食・物流）", "" k_dic1.Add "金融（銀行・証券・保険・その他金融）", "" k_dic1.Add "不動産", "" k_dic1.Add "派遣", "" k_dic1.Add "学生", "" k_dic1.Add "その他", "" Set k_dic2 = Server.CreateObject("Scripting.Dictionary") k_dic2.Add "ＩＴ関連（ＳＩ・コンサルティング・ソフトウェア・ネットワーク）", "" k_dic2.Add "エレクトロニクス（電気・電子・通信）", "" k_dic2.Add "機械・メカトロニクス（精密・産業機械・自動車）", "" k_dic2.Add "素材（金属・鉄非鉄・ガラス・土石・セメント）", "" k_dic2.Add "化学（石油・繊維・ゴム・紙）", "" k_dic2.Add "バイオ（医薬品・食品・農業）", "" k_dic2.Add "設備（プラント・エネルギー）", "" k_dic2.Add "商業（商社・小卸売・娯楽・外食・物流）", "" k_dic2.Add "金融（銀行・証券・保険・その他金融）", "" k_dic2.Add "不動産", "" k_dic2.Add "派遣", "" k_dic2.Add "学生", "" k_dic2.Add "その他", "" '希望職種を定義 Set j_dic1 = Server.CreateObject("Scripting.Dictionary") j_dic1.Add "SE／プログラマ", "" j_dic1.Add "ネットワーク関連エンジニア", "" j_dic1.Add "コンサルタント", "" j_dic1.Add "マネジメント", "" j_dic1.Add "営業", "" j_dic1.Add "マーケティング", "" j_dic1.Add "技術営業", "" j_dic1.Add "技術サポート・フィールドエンジニア", "" j_dic1.Add "品質管理（検査技術）", "" j_dic1.Add "生産管理（プロセス技術）", "" j_dic1.Add "電気・電子関連エンジニア", "" j_dic1.Add "機械関連エンジニア", "" j_dic1.Add "半導体関連エンジニア", "" j_dic1.Add "研究（分析・解析）", "" j_dic1.Add "調査（企画）", "" j_dic1.Add "実験・解析・評価", "" j_dic1.Add "スタッフ（事務）", "" j_dic1.Add "総務", "" j_dic1.Add "人事（労務・採用・教育）", "" j_dic1.Add "経理・財務", "" j_dic1.Add "法務", "" j_dic1.Add "特許", "" j_dic1.Add "広報・宣伝", "" j_dic1.Add "購買・資材", "" j_dic1.Add "貿易・海外", "" j_dic1.Add "その他", "" Set j_dic2 = Server.CreateObject("Scripting.Dictionary") j_dic2.Add "SE／プログラマ", "" j_dic2.Add "ネットワーク関連エンジニア", "" j_dic2.Add "コンサルタント", "" j_dic2.Add "マネジメント", "" j_dic2.Add "営業", "" j_dic2.Add "マーケティング", "" j_dic2.Add "技術営業", "" j_dic2.Add "技術サポート・フィールドエンジニア", "" j_dic2.Add "品質管理（検査技術）", "" j_dic2.Add "生産管理（プロセス技術）", "" j_dic2.Add "電気・電子関連エンジニア", "" j_dic2.Add "機械関連エンジニア", "" j_dic2.Add "半導体関連エンジニア", "" j_dic2.Add "研究（分析・解析）", "" j_dic2.Add "調査（企画）", "" j_dic2.Add "実験・解析・評価", "" j_dic2.Add "スタッフ（事務）", "" j_dic2.Add "総務", "" j_dic2.Add "人事（労務・採用・教育）", "" j_dic2.Add "経理・財務", "" j_dic2.Add "法務", "" j_dic2.Add "特許", "" j_dic2.Add "広報・宣伝", "" j_dic2.Add "購買・資材", "" j_dic2.Add "貿易・海外", "" j_dic2.Add "その他", "" '希望勤務地１を定義 Set p_dic1 = Server.CreateObject("Scripting.Dictionary") p_dic1.Add "全国可", "" p_dic1.Add "北海道", "" p_dic1.Add "青森県", "" p_dic1.Add "岩手県", "" p_dic1.Add "宮城県", "" p_dic1.Add "秋田県", "" p_dic1.Add "山形県", "" p_dic1.Add "福島県", "" p_dic1.Add "茨城県", "" p_dic1.Add "栃木県", "" p_dic1.Add "群馬県", "" p_dic1.Add "埼玉県", "" p_dic1.Add "千葉県", "" p_dic1.Add "東京都", "" p_dic1.Add "神奈川県", "" p_dic1.Add "新潟県", "" p_dic1.Add "富山県", "" p_dic1.Add "石川県", "" p_dic1.Add "福井県", "" p_dic1.Add "山梨県", "" p_dic1.Add "長野県", "" p_dic1.Add "岐阜県", "" p_dic1.Add "静岡県", "" p_dic1.Add "愛知県", "" p_dic1.Add "三重県", "" p_dic1.Add "滋賀県", "" p_dic1.Add "京都府", "" p_dic1.Add "大阪府", "" p_dic1.Add "兵庫県", "" p_dic1.Add "奈良県", "" p_dic1.Add "和歌山県", "" p_dic1.Add "鳥取県", "" p_dic1.Add "島根県", "" p_dic1.Add "岡山県", "" p_dic1.Add "広島県", "" p_dic1.Add "山口県", "" p_dic1.Add "徳島県", "" p_dic1.Add "香川県", "" p_dic1.Add "愛媛県", "" p_dic1.Add "高知県", "" p_dic1.Add "福岡県", "" p_dic1.Add "佐賀県", "" p_dic1.Add "長崎県", "" p_dic1.Add "熊本県", "" p_dic1.Add "大分県", "" p_dic1.Add "宮崎県", "" p_dic1.Add "鹿児島県", "" p_dic1.Add "沖縄県", "" '希望勤務地２を定義 Set p_dic2 = Server.CreateObject("Scripting.Dictionary") p_dic2.Add "北海道", "" p_dic2.Add "青森県", "" p_dic2.Add "岩手県", "" p_dic2.Add "宮城県", "" p_dic2.Add "秋田県", "" p_dic2.Add "山形県", "" p_dic2.Add "福島県", "" p_dic2.Add "茨城県", "" p_dic2.Add "栃木県", "" p_dic2.Add "群馬県", "" p_dic2.Add "埼玉県", "" p_dic2.Add "千葉県", "" p_dic2.Add "東京都", "" p_dic2.Add "神奈川県", "" p_dic2.Add "新潟県", "" p_dic2.Add "富山県", "" p_dic2.Add "石川県", "" p_dic2.Add "福井県", "" p_dic2.Add "山梨県", "" p_dic2.Add "長野県", "" p_dic2.Add "岐阜県", "" p_dic2.Add "静岡県", "" p_dic2.Add "愛知県", "" p_dic2.Add "三重県", "" p_dic2.Add "滋賀県", "" p_dic2.Add "京都府", "" p_dic2.Add "大阪府", "" p_dic2.Add "兵庫県", "" p_dic2.Add "奈良県", "" p_dic2.Add "和歌山県", "" p_dic2.Add "鳥取県", "" p_dic2.Add "島根県", "" p_dic2.Add "岡山県", "" p_dic2.Add "広島県", "" p_dic2.Add "山口県", "" p_dic2.Add "徳島県", "" p_dic2.Add "香川県", "" p_dic2.Add "愛媛県", "" p_dic2.Add "高知県", "" p_dic2.Add "福岡県", "" p_dic2.Add "佐賀県", "" p_dic2.Add "長崎県", "" p_dic2.Add "熊本県", "" p_dic2.Add "大分県", "" p_dic2.Add "宮崎県", "" p_dic2.Add "鹿児島県", "" p_dic2.Add "沖縄県", "" '最初の職歴数を定義(最初は1) If Request.Form("c_num") = Empty Then c_num = 1 Elseif CInt(Request.Form("c_num")) >= 1 And CInt(Request.Form("c_num")) <= 8 Then c_num = CInt(Request.Form("c_num")) Else c_num = 1 End If '「職歴を追加」または「最後の職歴を削除」ボタンが押された場合の処理 If Request.Form("s_button") = " 職歴を追加 " Or Request.Form("s_button") = " 最後の職歴を削除 " Then '「職歴を追加」ボタンが押された場合は、職歴数を+1する If Request.Form("s_button") = " 職歴を追加 " And c_num <= 2 Then c_num = c_num + 1 '「最後の職歴を削除」ボタンが押された場合は、職歴数を-1する Elseif Request.Form("s_button") = " 最後の職歴を削除 " And c_num >= 2 Then c_num = c_num - 1 End If '既に入力されているフォームの内容を変数に入れる If Request.Form("agree") = "true" Then agree = " checked" End If sei = CStr(Trim(Request.Form("sei"))) mei = CStr(Trim(Request.Form("mei"))) kana_sei = CStr(Trim(Request.Form("kana_sei"))) kana_mei = CStr(Trim(Request.Form("kana_mei"))) If CStr(Trim(Request.Form("sex"))) = "男性" Then sex_m = " checked" Elseif CStr(Trim(Request.Form("sex"))) = "女性" Then sex_f = " checked" End If birthyear = CStr(Trim(Request.Form("birthyear"))) birthmonth = CStr(Trim(Request.Form("birthmonth"))) birthday = CStr(Trim(Request.Form("birthday"))) email = CStr(Trim(Request.Form("email"))) If CStr(Trim(Request.Form("postcode1"))) <> Empty Then postcode1 = CStr(Trim(Request.Form("postcode1"))) End If If CStr(Trim(Request.Form("postcode2"))) <> Empty Then postcode2 = CStr(Trim(Request.Form("postcode2"))) End If '都道府県を選択状態にする If CStr(Trim(Request.Form("ken"))) <> "" Then dic.Item(CStr(Trim(Request.Form("ken")))) = " selected" End If address1 = CStr(Trim(Request.Form("address1"))) address2 = CStr(Trim(Request.Form("address2"))) If CStr(Trim(Request.Form("tel1"))) <> Empty Then tel1 = CStr(Trim(Request.Form("tel1"))) End If If CStr(Trim(Request.Form("tel2"))) <> Empty Then tel2 = CStr(Trim(Request.Form("tel2"))) End If If CStr(Trim(Request.Form("tel3"))) <> Empty Then tel3 = CStr(Trim(Request.Form("tel3"))) End If If CStr(Trim(Request.Form("m_tel1"))) <> Empty Then m_tel1 = CStr(Trim(Request.Form("m_tel1"))) End If If CStr(Trim(Request.Form("m_tel2"))) <> Empty Then m_tel2 = CStr(Trim(Request.Form("m_tel2"))) End If If CStr(Trim(Request.Form("m_tel3"))) <> Empty Then m_tel3 = CStr(Trim(Request.Form("m_tel3"))) End If '連絡方法を選択状態にする If Request.Form("method").Count >= 1 Then For Each mc In Request.Form("method") Select Case mc Case "Eメール" s_method(0) = " checked" Case "携帯電話" s_method(1) = " checked" Case "自宅電話" s_method(2) = " checked" End Select Next End If school_name = CStr(Trim(Request.Form("school_name"))) '学歴種別を選択状態にする If CStr(Trim(Request.Form("school_class"))) <> "" Then g_dic.Item(CStr(Trim(Request.Form("school_class")))) = " selected" End If '卒業区分を選択状態にする Select Case CStr(Trim(Request.Form("school_career"))) Case "卒業" ckey(0) = " selected" Case "中退" ckey(1) = " selected" End Select g_year = CStr(Trim(Request.Form("g_year"))) g_month = CStr(Trim(Request.Form("g_month"))) For k = 1 To c_num com_name(k) = CStr(Trim(Request.Form("com_name" & k))) tobsel(k) = CStr(Trim(Request.Form("tob" & k))) tojsel(k) = CStr(Trim(Request.Form("toj" & k))) s_year(k) = CStr(Trim(Request.Form("s_year" & k))) s_month(k) = CStr(Trim(Request.Form("s_month" & k))) If CStr(Trim(Request.Form("w_type" & k))) = "現職" Then w_type(k, 0) = " checked" Elseif CStr(Trim(Request.Form("w_type" & k))) = "退職" Then w_type(k, 1) = " checked" End If e_year(k) = CStr(Trim(Request.Form("e_year" & k))) e_month(k) = CStr(Trim(Request.Form("e_month" & k))) job_scr(k) = CStr(Trim(Request.Form("job_scr" & k))) Next TOEIC = CStr(Trim(Request.Form("TOEIC"))) TOEFL = CStr(Trim(Request.Form("TOEFL"))) Select Case CStr(Trim(Request.Form("eng_r_level"))) Case "上級" eng_r_level(0) = " checked" Case "中級" eng_r_level(1) = " checked" Case "初級" eng_r_level(2) = " checked" End Select Select Case CStr(Trim(Request.Form("eng_w_level"))) Case "上級" eng_w_level(0) = " checked" Case "中級" eng_w_level(1) = " checked" Case "初級" eng_w_level(2) = " checked" End Select Select Case CStr(Trim(Request.Form("eng_s_level"))) Case "上級" eng_s_level(0) = " checked" Case "中級" eng_s_level(1) = " checked" Case "初級" eng_s_level(2) = " checked" End Select license = CStr(Trim(Request.Form("license"))) If CStr(Trim(Request.Form("k_tob1"))) <> "" Then k_dic1.Item(CStr(Trim(Request.Form("k_tob1")))) = " selected" End If If CStr(Trim(Request.Form("k_tob2"))) <> "" Then k_dic2.Item(CStr(Trim(Request.Form("k_tob2")))) = " selected" End If If CStr(Trim(Request.Form("k_toj1"))) <> "" Then j_dic1.Item(CStr(Trim(Request.Form("k_toj1")))) = " selected" End If If CStr(Trim(Request.Form("k_toj2"))) <> "" Then j_dic2.Item(CStr(Trim(Request.Form("k_toj2")))) = " selected" End If '希望勤務地を選択状態にする If CStr(Trim(Request.Form("k_pow1"))) <> "" Then p_dic1.Item(CStr(Trim(Request.Form("k_pow1")))) = " selected" End If If CStr(Trim(Request.Form("k_pow2"))) <> "" Then p_dic2.Item(CStr(Trim(Request.Form("k_pow2")))) = " selected" End If income = CStr(Trim(Request.Form("income"))) contact = CStr(Trim(Request.Form("contact"))) End If %> <% If Not IsEmpty(Request.Form("toikyuujin")) Then %> "> <% End If %>

※◆ は入力必須項目。 ※◆ はスペース入力不可。

現在、JavaScriptの設定がOFFになっています。設定をご確認ください。

イムカ株式会社（以下、当社といいます）は以下の内容で個人情報を取り扱います。 個人情報を提供されます際には、以下の内容へご同意の元でご提供いただきますよう お願いいたします。 1）個人情報の定義 当社では、個人情報を以下のように定義しています。 個人情報とは個人に関する情報であり、当該情報に含まれる氏名、生年月日、住所、電話番号、メールアドレス等により、個人を特定できる情報を指します。 2）個人情報の収集・利用目的 当社は、条件に合致する求人企業の検索、求人情報の提供、求人企業への紹介、転職活動を支援する情報の提供、アンケートの実施のために個人情報の収集を行います。 ご本人の承諾を得ていない求人企業、もしくは、ご本人から紹介など を拒絶された求人企業、または第三者に、提供、開示等は一切いたしません。（実施のまた情報開示、訂正、削除、利用・提供の拒否時の本人確認の為に、個人情報を収集します。 3）提供 当社は個人情報の取扱いに関する契約を結んだ求人企業に、2）の目的の範囲内で個人を特定できる情報（氏名、生年月日、住所、電話番号、メールアドレス等）を提供することがあります。ただし、公的機関から、法律に基づく正式な照会を受けた場合、生命・身体・財産などの重大な利益保護の必要性がある場合個人情報の提出者の同意なく提供することがあります。 4）外部委託 当社では個人情報の情報処理を社内で行いますが、データベースの実体を外部データセンターに委託する場合があります。個人情報の委託を行う場合には、十分な個人情報保護水準を確保していることを条件として委託先を選定し、機密保持契約を結んだ上で実施します。 5）収集する個人情報の任意性 当社への個人情報の提供は、提供者の任意となります。 但し、当社が依頼する情報の提供がない場合、適正なサービスの提供、面接の連絡、採用、不採用の結果連絡ができない場合があります。 6）情報の開示・訂正・削除 当社へ個人情報の開示、変更、削除の依頼を頂いた際には、ご登録をいただいた情報をもとに、本人確認をさせていただき、速やかに手続きを行います。 以上 ※個人情報に関するお問い合わせ連絡先 〒105-0004 東京都港区新橋2-12-15 田中田村町ビル5F イムカ株式会社「個人情報相談窓口」 TEL:03-5512-4781 E-mail：privacy@imca.co.jp > 同意する ◆

<% If Not IsEmpty(Request.Form("toikyuujin")) Then %> <% End If %> 応募内容 <%= Request.Form("toikyuujin") %> 氏名 ◆◆ 姓  名  フリガナ ◆◆ セイ  メイ  (全角カタカナ) 性別 ◆ onClick="f1=true"> 男性  onClick="f2=true"> 女性 生年月日 ◆ ▼選択 <% Dim i For i = Int((Year(Date) - 15)) To 1945 Step -1 If CStr(i) = birthyear Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  年  ▼選択 <% For i = 1 To 12 If CStr(i) = birthmonth Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  月  ▼選択 <% For i = 1 To 31 If CStr(i) = birthday Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  日  メールアドレス ◆◆ 郵便番号  −   (半角数字) 都道府県 ◆ ▼選択してください <% For Each skey In dic.keys Response.write("" & skey & "" & Chr(13) & Chr(10)) Next %> 住所 ◆◆ アパート・マンション名 自宅電話番号  -   -   (半角数字) 携帯電話番号  -   -   (半角数字) ご希望の連絡方法 ◆ onClick="f3=!f3"> Eメール  onClick="f4=!f4"> 携帯電話  onClick="f5=!f5"> 自宅電話

学校名・種別・ 卒業区分 ◆◆ ▼選択してください <% For Each gkey In g_dic.keys Response.write("" & gkey & "" & Chr(13) & Chr(10)) Next %> 卒業 >中退 卒業年月 ◆ ▼選択 <% For i = Int((Year(Date) - 1)) To 1945 Step -1 If CStr(i) = g_year Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  年  ▼選択 <% For i = 1 To 12 If CStr(i) = g_month Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  月

※直近の職歴から３社までご入力ください。

<% Dim j For j = 1 To c_num Step 1 %> <% Next %> 職歴 <%= j %> 会社名 ◆ 業種 ◆ ▼選択してください <% For Each tobkey In tob_dic.keys If tobkey = tobsel(j) Then tobstr = " selected" Elseif tobstr <> "" Then tobstr = "" End If Response.write("" & tobkey & "" & Chr(13) & Chr(10)) Next %> 職種 ◆ ▼選択してください <% For Each tojkey In toj_dic.keys If tojkey = tojsel(j) Then tojstr = " selected" Elseif tojstr <> "" Then tojstr = "" End If Response.write("" & tojkey & "" & Chr(13) & Chr(10)) Next %> 勤務開始 ◆ ▼選択 <% For i = Int((Year(Date))) To 1945 Step -1 If CStr(i) = s_year(j) Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  年  ▼選択 <% For i = 1 To 12 If CStr(i) = s_month(j) Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  月  勤務状況 ◆ <% If j = 1 Then %> onClick="f6=true"> 現職 onClick="f7=true"> 退職  <% Else %>  退職 <% End If %> ▼選択 <% For i = Int((Year(Date))) To 1945 Step -1 If CStr(i) = e_year(j) Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  年  ▼選択 <% For i = 1 To 12 If CStr(i) = e_month(j) Then s_str = " selected" Elseif s_str <> "" Then s_str = "" End If Response.Write("" & i & "" & Chr(13) & Chr(10)) Next %>  月  職務要約 ◆ <% = job_scr(j) %> <% If c_num >= 2 Then %> <% End If If c_num <= 2 Then %> <% End If %>

TOEIC  点 (半角数字) TOEFL  点 (半角数字) 英語スキル 読む >上級 (技術文書読解) >中級 (辞書使用で文書読解) >初級 (経験なし) 書く >上級 (契約文書作成) >中級 (メール作成) >初級 (経験なし) 話す >上級 (ビジネスレベル) >中級 (日常会話レベル) >初級 (経験なし) 取得されている資格

希望業種 第一希望 ◆ ▼選択してください <% For Each kkey1 In k_dic1.keys Response.write("" & kkey1 & "" & Chr(13) & Chr(10)) Next %> 第二希望 ▼選択してください <% For Each kkey2 In k_dic2.keys Response.write("" & kkey2 & "" & Chr(13) & Chr(10)) Next %> 希望職種 第一希望 ◆ ▼選択してください <% For Each jkey1 In j_dic1.keys Response.write("" & jkey1 & "" & Chr(13) & Chr(10)) Next %> 第二希望 ▼選択してください <% For Each jkey2 In j_dic2.keys Response.write("" & jkey2 & "" & Chr(13) & Chr(10)) Next %> 希望勤務地 第一希望 ◆ ▼選択してください <% For Each pkey1 In p_dic1.keys Response.write("" & pkey1 & "" & Chr(13) & Chr(10)) Next %> 第二希望 ▼選択してください <% For Each pkey2 In p_dic2.keys Response.write("" & pkey2 & "" & Chr(13) & Chr(10)) Next %> 希望年収  万円以上 (半角数字)

ご連絡事項 <% = contact %>

お使いのブラウザのJavaScriptの設定がOFFになっているため、 フォームの内容を送信できません。 大変お手数ですが、設定を変更後、このページを再読み込みしてから 再度ご入力いただきますよう、お願い申し上げます。

送信