<%@ Language=VBScript %>
<%
'*************************************************************
'ファイル名：jisseki_init.asp
'内容		：ユーザー実績初期情報画面
'作成日		：2004年01月08日
'作成者		：㈱ブレインワークス（NIKI）
'*************************************************************
'呼び元		：index.html
'*************************************************************
%>
<!-- #include file='../inc/consts.asa' -->
<!-- #include file='../inc/messages.asa' -->
<!-- #include file='../inc/comrtn.asa' -->
<!-- #include file='../inc/comrtn_jisseki.asa' -->

<% On Error Resume Next %>
<% Response.Buffer=true %>
<%
	'===================================================
	'変数定義
	'===================================================
	dim Data1,Data2,Data3,Data4
	dim Data5,Data6			'point1
	dim Data7,Data8			'point2
	dim Data9,Data10		'point3
	dim Data11,Data12		'point4
	dim Data13,Data14
	dim Data15,Data16
	dim Data17,Data18
	
	dim FolderCNT
	dim FilePath

	'************************************************************************
	'起動時に実行する処理
	'************************************************************************
	'主処理の実行
	call MainProc

	'************************************************************************
	'処理概要：主処理
	'関数名　：MainProc
	'引数　　：なし
	'************************************************************************
	sub MainProc

		'===================================================
		'セッション項目初期クリア
		'===================================================
		call G_ClearSessionData_Jisseki

		'===================================================
		'テキストファイル格納フォルダ情報取得し、セッションに格納する
		'===================================================
		'フォルダ数取得
		if GetFolderCnt = False then exit sub
		Session.Contents(SESS_FOLDER_CNT)=FolderCNT
		'--------------------------------------------------
		'参照モード
		Session.Contents(SESS_PROC_MODE)=PMODE_VIEW		'参照

		'===================================================
		'実績処理画面に遷移する
		'===================================================
		FilePath = "../" & URL_USR_JISSEKI_SYORI
		response.redirect FilePath	

	end sub
	
	'************************************************************************
	'処理概要：フォルダ数取得関数
	'関数名　：MainProc
	'引数　　：なし
	'************************************************************************
	function GetFolderCnt()
		dim objFS,objFolder,objSF
		dim url,root

		On Error Resume Next

		GetFolderCnt = False

		'パスの取得
'		url=request.servervariables("URL")
'		root = left(url,instr(2,url,"/"))
'		FilePath = server.mappath(TEXTFILE_PATH) 
		FilePath = server.mappath("/") & "\" & TEXTFILE_PATH 

		'実績データ内のフォルダ数を取得する
		set objFS = CreateObject("Scripting.filesystemObject")
		set objFolder = objFs.GetFolder(FilePath)
		set objSF = objFolder.SubFolders
		FolderCNT = objSF.Count

		'エラーの時
		if Err.Number<>0 then 
			ShowMessage err.description, URL_INDEX
			Err.Clear
		end if

		set objFS = nothing
		set objFolder = nothing
		set objSF = nothing

		GetFolderCnt = True

	end function

%>