<% 'response.redirect("./maintenance.htm") if strFormMode <> pub_First then blnError = not FormValueCheck(strFormValues,Errors) end if %> <% call Form_Header() %>

<% call Form_Menu() %>

<% call Form_FlashMenu %> <% select case strFormMode case pub_First call Form_Message(pub_First) call FORM_BODY(pub_Check,Errors,strFormValues,blnError) case pub_Check if blnError = true then call Form_Message(pub_Check) call FORM_BODY(pub_Check,Errors,strFormValues,blnError) else call Form_Message(pub_Check_End) call FORM_BODY_DisEditable(pub_End,strFormValues) end if case pub_End strFromAddress = "MailForm@cs-jp.net" strSendAddress = "" 'strSendAddress = "nagamoto@2ndfactory.com " call CreateMailBody(strFormValues, pub_strSendBody,pub_strSendFile ) strFileName = "新規" & GetRandomNumber & ".csv" call OutPutFile("./FileTemp",strFileName,pub_strSendFile) call SendMail("新規お客様からご連絡がありました。",pub_strSendBody,Server.MapPath("./FileTemp") & "\" & strFileName,strFromAddress,strSendAddress) call DeleteFile("./FileTemp",strFileName) call FORM_THANKYOU() end select %>

<% call Form_Footer %>