<%@ LANGUAGE="VBScript" %>
<!-- #include file="include/function.asp" -->
<%
'# 
'# FILENAME     :: sei_qa_q.asp
'# ABOUT        :: 解答入力画面（精神保健福祉士）
'# CREATE DATE  :: 20076/03/09
'# PR DESAIGN   :: kimura
'# CREATER NAME :: kimura
'# Copyright    :: DMC(Tokyo Colony Digital Media Center)
'#


Set fs     = Server.CreateObject("Scripting.FileSystemObject")

'---ファイル名の作成
file_name_wk  = Dir_check
file_name_arr = split(file_name_wk, "/")

QA_name_wk    = file_name_arr(0)
plan_file     = file_name_arr(0) & "_plan.txt"
source_file   = file_name_arr(0) & "_source.txt"
dir_name      = file_name_arr(1) 


'---日付チェック関数
'  （当日日付の取得）
input_date  = date_check("")


'---表示形式の取得「当日」「今週」「来週」
get_file_type = Request.QueryString ("type")


'---問題の取得
question_word = question_date_get (input_date , QA_name_wk , get_file_type )


'---今後の予定、出典の取得
plan    = Read_File_txt (plan_file)
source  = Read_File_txt (source_file)


%>
<!-- #include file="include/sei_question-and-answer_view.asp" -->
<%
question_and_answer question_word , plan , source , dir_name , get_file_type
Set fs     = nothing
%>