<%@ Language = "VBScript" %> <% Option Explicit Response.Buffer=true '画面のバッファリングを行う 'On Error Resume Next 'エラー処理有効化 Response.Expires = 0 %> <% '----------------------------------------------------- '* 機能名 : お問い合わせ '* ファイル名 : entry.asp '* 作成日 : ka '* 作成者 : 2013年07月16日 '* 変更者 : '* 変更日 : '----------------------------------------------------- %> <% '**************************************************************** '* 変数初期化 * '**************************************************************** strFlg = Request.Form("hidflg") strName = Request.Form("txtName") strFurigana = Request.Form("txtFurigana") strMail = Request.Form("txtMail") strTel = Request.Form("txtTel") strCompany = Request.Form("txtCompany") strDepartment = Request.Form("txtDepartment") strPosition = Request.Form("chkPosition") strSex = Request.Form("chkSex") strInquiry = Request.Form("chkInquiry") strInquiryDetail = Request.Form("taInquiryDetail") strPolicy = Request.Form("chkPolicy") strKnow = Request.Form("chkKnow") strLocation = Request.Form("chkLocation") strBirthYaer = Request.Form("pullBirthYaer") strBirthMonth = Request.Form("pullBirthMonth") strBirthDay = Request.Form("pullBirthDay") strZipCode1 = Request.Form("txtZipCode1") strZipCode2 = Request.Form("txtZipCode2") strAddress = Request.Form("txtAddress") strTwitter = Request.Form("txtTwitter") strFaceBook = Request.Form("txtFaceBook") strHPURL = Request.Form("txtHPURL") strEducationalBackground= Request.Form("chkEducationalBackground") strHighSchool =Request.Form("txtHighSchool") strHighSchoolGraduation =Request.Form("pullHighSchoolGraduation") strProfessionalSchool =Request.Form("txtProfessionalSchool") strProfessionalSchoolCourse =Request.Form("txtProfessionalSchoolCourse") strProfessionalSchoolGraduation =Request.Form("pullProfessionalSchoolGraduation") strUniversity =Request.Form("txtUniversity") strUniversityCourse =Request.Form("txtUniversityCourse") strUniversityGraduation =Request.Form("pullUniversityGraduation") strUniversityArtsAndSciences =Request.Form("pullUniversityArtsAndSciences") strGraduateSchool =Request.Form("txtGraduateSchool") strGraduateSchoolCourse =Request.Form("txtGraduateSchoolCourse") strGraduateSchoolDepartment =Request.Form("txtGraduateSchoolDepartment") strGraduateSchoolGraduation =Request.Form("pullGraduateSchoolGraduation") strGraduateSchoolArtsAndSciences =Request.Form("pullGraduateSchoolArtsAndSciences") strSeminar =Request.Form("txtSeminar") strResearch =Request.Form("txtResearch") strResearchSummary =Request.Form("txtResearchSummary") strClub =Request.Form("txtClub") strIndustry =Request.Form("txtIndustry") strWake =Request.Form("chkWake") strWakeOther =Request.Form("txtWakeOther") strMotivation =Request.Form("txtMotivation") strSelfPromotion =Request.Form("txtSelfPromotion") strFreeMessage =Request.Form("txtFreeMessage") strBirthData=Request.Form("dataBirthData") strHighSchoolData=Request.Form("dataHighSchoolData") strProfessionalSchoolData=Request.Form("dataProfessionalSchoolData") strUniversityData=Request.Form("dataUniversityData") strGraduateSchoolData=Request.Form("dataGraduateSchoolData") strAddressData=Request.Form("dataAddressData") strWakeData=Request.Form("dataWakeData") Dim sendFlag strMessage = "" strFuriganaFlg = "1" strMailFlg = "1" strTelFlg = "1" strCompanyFlg = "1" strDepartmentFlg = "1" strPositionFlg = "1" strEducationalBackgroundFlg = "1" strSexFlg = "1" strURLFlg = "1" strInquiryFlg = "1" strInquiryDetailFlg = "1" strPolicyFlg = "1" strknowFlg = "1" strLocationFlg = "1" strBirthDayFlg = "1" strAddressFlg = "1" strEducationalBackgroundFlg = "1" strWakeFlg = "1" strMotivationFlg = "1" strSelfPromotionFlg = "1" Dim nowYear nowYear = Year(Now) + 2 '------first access------- If strFlg = "" Then strFlg = "Contact" End If '----confirm access---- If strFlg = "Confirmation" Then Call ContactFromChk() '-----ContactFromChk() Check Error------- If strMessage <> "" Then strFlg = "Contact" End If End If '----End of Inquiry------- If strFlg = "Complete" Then ' ファイルアップード sendFlag = ContactMailSend(arrPosition(strPosition),strName,strFurigana,strBirthData,arrSex(strSex),strTel,strAddressData,strMail,strTwitter,strFaceBook,strHPURL,arrEducationalBackground(strEducationalBackground),strHighSchoolData,strProfessionalSchoolData,strUniversityData,strGraduateSchoolData,strSeminar,strResearch,strResearchSummary,strClub,strIndustry,strWakeData,strMotivation,strSelfPromotion,strFreeMessage) If sendFlag <> "" Then strFlg = "Confirmation" End If End If %> <% '*************************************************************** '* HTML表示 '*************************************************************** %> 募集要項(新卒採用)|スキルアップ・ビデオテクノロジーズ株式会社

エントリーフォーム

<% '---------------------------------------------- '入力フォームページ '---------------------------------------------- %> <% If strFlg = "Contact" Then %>

*ご記入内容をご確認の上、[入力内容確認]を押して下さい。

は記入必須項目です

希望職種 <% Dim i For i = 0 To UBound(arrPosition) '' If trim(i) = trim(strPosition) Then '' Response.Write "" & arrPosition(i) & vbCrlf '' Else '' Response.Write "" & arrPosition(i) & vbCrlf '' End If Response.Write "" & arrPosition(i) Next %> <%If strPositionFlg = "0" Then%>

<%=strPositionEm%>

<%End If%>
氏名 <%If strNameFlg = "0" Then%>

<%=strNameEm%>

<%End If%>
ふりがな <%If strFuriganaFlg = "0" Then%>

<%=strFuriganaEm%>

<%End If%>
生年月日 日 <%If strBirthDayFlg = "0" Then%>

<%=strBirthDayEm%>

<%End If%>
性別 <% 'Dim i For i = 0 To UBound(arrSex) If trim(i) = trim(strSex) Then Response.Write "" & arrSex(i) & vbCrlf Else Response.Write "" & arrSex(i) & vbCrlf End If Next %> <%If strSexFlg = "0" Then%>

<%=strSexEm%>

<%End If%>
電話番号
(例:0311112222)

<%If strTelFlg = "0" Then%>

<%=strTelEm%>

<%End If%>
現住所
-

<%If strAddressFlg = "0" Then%>

<%=strAddressEm%>

<%End If%>
メールアドレス <%If strMailFlg = "0" Then%>

<%=strMailEm%>

<%End If%>
Twitter
Facebook
URL
プログ・自作サイト等あればご
記載下さい。
最終学歴(予定) <% 'Dim i For i = 0 To UBound(arrEducationalBackground) If trim(i) = trim(strEducationalBackground) Then Response.Write "" & arrEducationalBackground(i) & vbCrlf Else Response.Write "" & arrEducationalBackground(i) & vbCrlf End If Next %> <%If strEducationalBackgroundFlg = "0" Then%>

<%=strEducationalBackgroundEm%>

<%End If%>
★出身校を全て以下にご記入下さい。(最終学歴含む)
高校/高専
学校名
卒業(予定)年度
専門/専修
学校名
学科・コース名
卒業(予定)年度
大学
学校名
学部・学科名
卒業(予定)年度
文理区分
大学院
学校名
学部・研究科名
学科・専攻名
卒業(予定)年度
文理区分
ゼミ・研究室
(50字以内)
研究・専攻テーマ
(50字以内)
研究の概要
(400字以内)
クラブ・サークル活動
(50字以内)
興味のある業界
(50字以内)
当社を知ったきっかけ <% For i = 0 To UBound(arrWake) If trim(i) = trim(strWake) Then Response.Write "" & arrWake(i) & vbCrlf Else Response.Write "" & arrWake(i) & vbCrlf End If Next %>
<%If strWakeFlg = "0" Then%>

<%=strWakeEm%>

<%End If%>
志望動機
(400字以内)
<%If strMotivationFlg = "0" Then%>

<%=strMotivationEm%>

<%End If%>
自己PR
(400字以内)
<%If strSelfPromotionFlg = "0" Then%>

<%=strSelfPromotionEm%>

<%End If%>
その他、フリーメッセージ
質問等ご自由にご記入下さい。
(400字以内)

<% If strPolicyFlg = "0" Then%>

*<%= strPolicyEm%>

<% End If%> checked<%End If%> /> 「プライバシーポリシー」 をお読みいただき、同意いただける場合はチェックし、確認画面へお進み下さい。

<% End If %> <% '---------------------------------------------- '確認ページ '---------------------------------------------- %> <% If strFlg = "Confirmation" Then %>

入力内容確認


希望職種 <% Response.Write arrPosition(strPosition) & "
" & vbCrlf %>
氏名 <%=Server.HTMLEncode(strName)%>
ふりがな <%=Server.HTMLEncode(strFurigana)%>
生年月日 <% strBirthData = "" For i = 0 To 12 If trim(i) = trim(strBirthYaer) Then response.write(nowYear + i -29 -2 & "年 ") strBirthData = nowYear + i -29 -2 & "年 " End if Next For i = 1 To 12 If trim(i) = trim(strBirthMonth) Then response.write(i & "月 ") strBirthData = strBirthData & i & "月 " End if Next For i = 1 To 31 If trim(i) = trim(strBirthDay) Then response.write(i & "日") strBirthData = strBirthData & i & "日" End if Next %>
性別 <%=arrSex(strSex)%>
電話番号 <%=Server.HTMLEncode(strTel)%>
現住所 〒<% strAddressData = "" strAddressData = Server.HTMLEncode(strZipCode1) & "-" & Server.HTMLEncode(strZipCode2) & " " & Server.HTMLEncode(strAddress) response.write(strAddressData) %>
メールアドレス <%=Server.HTMLEncode(strMail)%>
Twitter <%=Server.HTMLEncode(strTwitter)%>
Facebook <%=Server.HTMLEncode(strFaceBook)%>
URL <%=Server.HTMLEncode(strHPURL)%>
最終学歴(予定) <% Response.Write arrEducationalBackground(strEducationalBackground) %>
高校/高専 <% strHighSchoolData = "" If (strHighSchool <> "") Then strHighSchoolData = "学校名:" & strHighSchool & "
" If (strHighSchoolGraduation <> "") Then For i = 0 To 11 If trim(i) = trim(strHighSchoolGraduation) Then strHighSchoolData = strHighSchoolData & "卒業(予定)年度:" & nowYear - i & "年" End if Next End if End if response.write(strHighSchoolData) %>
専門/専修 <% strProfessionalSchoolData = "" If (strProfessionalSchool <> "") Then strProfessionalSchoolData = "学校名:" & strProfessionalSchool & "
" If (strProfessionalSchoolCourse <> "") Then strProfessionalSchoolData = strProfessionalSchoolData & "学科・コース名:" & strProfessionalSchoolCourse & "
" End if If (strProfessionalSchoolGraduation <> "") Then For i = 0 To 10 If trim(i) = trim(strProfessionalSchoolGraduation) Then strProfessionalSchoolData = strProfessionalSchoolData & "卒業(予定)年度:" & nowYear - i & "年" End if Next End if End if response.write(strProfessionalSchoolData) %>
大学 <% strUniversityData = "" If (strUniversity <> "") Then strUniversityData = "学校名:" & strUniversity & "
" If (strUniversityCourse <> "") Then strUniversityData = strUniversityData & "学科・コース名:" & strUniversityCourse & "
" End if If (strUniversityGraduation <> "") Then For i = 0 To 7 If trim(i) = trim(strUniversityGraduation) Then strUniversityData = strUniversityData & "卒業(予定)年度:" & nowYear - i & "年
" End if Next End if If (strUniversityArtsAndSciences <> "") Then strUniversityData = strUniversityData & "文理区分:" & strUniversityArtsAndSciences End if End if response.write(strUniversityData) %>
大学院 <% strGraduateSchoolData = "" If (strGraduateSchool <> "") Then strGraduateSchoolData = "学校名:" & strGraduateSchool & "
" If (strGraduateSchoolCourse <> "") Then strGraduateSchoolData = strGraduateSchoolData & "学部・研究科名:" & strGraduateSchoolCourse & "
" End if If (strGraduateSchoolDepartment <> "") Then strGraduateSchoolData = strGraduateSchoolData & "学科・専攻名:" & strGraduateSchoolDepartment & "
" End if If (strGraduateSchoolGraduation <> "") Then For i = 0 To 4 If trim(i) = trim(strGraduateSchoolGraduation) Then strGraduateSchoolData = strGraduateSchoolData & "卒業(予定)年度:" & nowYear - i & "年
" End if Next End if If (strGraduateSchoolArtsAndSciences <> "") Then strGraduateSchoolData = strGraduateSchoolData & "文理区分:" & strGraduateSchoolArtsAndSciences End if End if response.write(strGraduateSchoolData) %>
ゼミ・研究室 <%=Server.HTMLEncode(strSeminar)%>
研究・専攻テーマ <%=Server.HTMLEncode(strResearch)%>
研究の概要 <%=Server.HTMLEncode(strResearchSummary)%>
クラブ・サークル活動 <%=Server.HTMLEncode(strClub)%>
興味のある業界 <%=Server.HTMLEncode(strIndustry)%>
当社を知ったきっかけ <% strWakeData = "" If (arrWake(strWake) = "その他の場合は下記に詳細をご記入下さい。") Then strWakeData = "その他:" & strWakeOther Else strWakeData = arrWake(strWake) End if response.write(strWakeData) %>
志望動機 <%=Server.HTMLEncode(strMotivation)%>
自己PR <%=Server.HTMLEncode(strSelfPromotion)%>
その他、フリーメッセージ <%=Server.HTMLEncode(strFreeMessage)%>
履歴書 <%=Server.HTMLEncode(flCurriculumVitae)%>
職務経歴書 <%=Server.HTMLEncode(flDuties)%>
ご登録内容をご確認の上、【送信】を押して下さい。


<% End If %> <% '---------------------------------------------- '送信完了ページ '---------------------------------------------- %> <% If strFlg = "Complete" Then %>
ご応募ありがとうございます、弊社担当者に送信致しました。
5営業日以内に、ご連絡させていただきます。

スキルアップ・ビデオテクノロジーズ株式会社
<% End If %>

pagetop