<%

sMatPath="\stat\tools\code"
sBorder=0

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(server.MapPath(sMatPath))

If objFSO.FileExists(server.MapPath(sMatPath + "\code.jpq")) then
	Set f=objFSO.OpenTextFile(server.MapPath(sMatPath + "\code.jpq"),1)
	sVar_0 = f.ReadLine
	f.Close
else
	sVar_0 = "-"
end if

response.write sVar_0
%>