<%@ Language = "VBScript" %> <% Option Explicit Response.Buffer=true '画面のバッファリングを行う 'On Error Resume Next 'エラー処理有効化 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") flCurriculumVitae=Request.Form("fileCurriculumVitae") flDuties=Request.Form("fileDuties") 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 ContactFromChkCareer() '-----ContactFromChkCareer() Check Error------- If strMessage <> "" Then strFlg = "Contact" End If End If '----End of Inquiry------- If strFlg = "Complete" Then sendFlag = ContactMailSendCareer(arrPosition_career(strPosition),strName,strFurigana,strBirthData,arrSex(strSex),strTel,strAddressData,strMail,strTwitter,strFaceBook,strHPURL,strWakeData,strMotivation,strSelfPromotion,strFreeMessage,flCurriculumVitae,flDuties) If sendFlag <> "" Then strFlg = "SendError" Set mailToEntryLink = MailToEntry(arrPosition_career(strPosition),strName,strFurigana,strBirthData,arrSex(strSex),strTel,strAddressData,strMail,strTwitter,strFaceBook,strHPURL,strWakeData,strMotivation,strSelfPromotion,strFreeMessage,flCurriculumVitae,flDuties) Else ' ファイル削除 Dim fileManager : Set fileManager = server.CreateObject("Scripting.FileSystemObject") If fileManager.FileExists(flCurriculumVitae) Then fileManager.DeleteFile(flCurriculumVitae) End If If fileManager.FileExists(flDuties) Then fileManager.DeleteFile(flDuties) End If End If End If If Err<>0 Then Call WLog("エラーが発生しました。Err.Number=" & Err.Number & vbCrlf & " Err.Description=" & Err.Description ,logPath) End If %> <% '*************************************************************** '* HTML表示 '*************************************************************** %> 募集要項(中途採用)|スキルアップ・ビデオテクノロジーズ株式会社

エントリーフォーム

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

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

は記入必須項目です

希望職種 <% Dim i For i = 0 To UBound(arrPosition_career) if i = 0 Then Response.Write "" & arrPosition_career(i) Else Response.Write "" & arrPosition_career(i) End If %>

<% 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
プログ・自作サイト等あればご
記載下さい。
当社を知ったきっかけ <% For i = 0 To UBound(arrWake_career) If trim(i) = trim(strWake) Then Response.Write "" & arrWake_career(i) & vbCrlf Else Response.Write "" & arrWake_career(i) & vbCrlf End If Next %>
<%If strWakeFlg = "0" Then%>

<%=strWakeEm%>

<%End If%>
履歴書 <% If flCurriculumVitae <> "" Then %> <%Else%> <%End If%>

<%If flCurriculumVitaeFlg = "0" Then%> <%=flCurriculumVitaeEm%> <%End If%>

職務経歴書 <% If flDuties <> "" Then %> <%Else%> <%End If%>

<%If flDutiesFlg = "0" Then%> <%=flDutiesEm%> <%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_career(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)%>
当社を知ったきっかけ <% strWakeData = "" If (arrWake_career(strWake) = "その他の場合は下記に詳細をご記入下さい。") Then strWakeData = "その他:" & strWakeOther Else strWakeData = arrWake_career(strWake) End if response.write(strWakeData) %>
履歴書 <%=Mid(Mid(flCurriculumVitae, InstrRev(flCurriculumVitae, "\") + 1), 37)%>
職務経歴書 <%=Mid(Mid(flDuties, InstrRev(flDuties, "\") + 1), 37)%>
志望動機 <%=Server.HTMLEncode(strMotivation)%>
自己PR <%=Server.HTMLEncode(strSelfPromotion)%>
その他、フリーメッセージ <%=Server.HTMLEncode(strFreeMessage)%>
ご登録内容をご確認の上、【送信】を押して下さい。


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

スキルアップ・ビデオテクノロジーズ株式会社
<% End If %> <% '---------------------------------------------- '送信エラーページ '---------------------------------------------- %> <% If strFlg = "SendError" Then %>

メール送信エラーが発生しました。

お手数ですが下記より履歴書・経歴書を添付の上メールでのエントリーをお願いいたします。 ※ 5営業日以内に、ご連絡させていただきます。

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

pagetop