<!--#include file="../Lib/Config.asp"-->
<!--#include file="../Lib/Func.asp"-->
<!--#include file="../Lib/FileLib.asp"-->
<%
Dim HTMLSCRIPT
Dim JSCRIPT
Dim VARS,VAR
Dim PAGE
Dim NPAGE
Dim STARTPAGE
Dim IDKEY,RESTYPE,VC_ID
Dim SKINSTR,PARTSTR

'###########################################################################################
'시작 페이지 정리
'###########################################################################################
PARTSTR = "&nbsp;"

If SURVEYSTATUS="1" Then	'설문 완료	

	call_Url "../Survey_Close.asp",""
	Response.End

ElseIf SURVEYSTATUS="2" Then	'설문 진행

ElseIf SURVEYSTATUS="3" Then	'설문 준비

End IF

'###########################################################################################
'시작 페이지 
'###########################################################################################

Set PROJECT_DOM = new XMLClass
PROJECT_DOM.LoadHTTP("http://admin.surveymonster.kr/Manager/Project/XML/" & PROJECTCODE & ".xml")
Dim STitle

Set PROJECT_DOM = Nothing

VARS = ""
JSCRIPT = ""
HTMLSCRIPT = STARTMSG


PAGE="Map"
PARTSTR = "Survey Index Map Page"

%>
<html>
<title><%=SURVEYTITLE%></title>
<link rel="stylesheet" href="../css/style.css" type="text/css" />
<body>
<div style="width:100%;">
	<div id="surveyLogo"></div>
	<br/>
	<%=SURVEYTITLE%>
	<br/><Br/>
	<div style="border:1px solid #d2d2d2; auto; width:100%; margin-left:10; margin-right:10; padding:10px 5px; 10px 5px;">
	<%
		Dim FSO,mappath,path,d,f
		Set FSO = CreateObject("Scripting.FileSystemObject")    'FileSystemObject객체 선언
		mappath = "../"    '폴더경로
		path = server.mappath(mappath)    '폴더의 실제 물리주소
		Set d = FSO.getfolder(path)    'FileSystemObject를 이용해서 폴더변수에 해당 폴더의 정보 저장
 
		'폴더의 파일리스트 출력
		For Each f In d.files
			response.write "<a href=" & mappath & f.name & " target=""right"">" & f.name & "</a><BR>" & vbCRLF
		Next
		Set FSO = Nothing    'FileSystemObject객체 소멸 	
	%>
	</div>
</div>
</body>
</html>
