<!--#Include File="fso.asp"-->
<%

	dim UserName
	UserName = request("name")

	dim FileName, FilePath

	FileName = "column000.html"
	CurrVer = Lcase(trim(request("ver")))
	if CurrVer = "en" then
		FileName = "column001.html"
	end if

	Set fs = Server.CreateObject( Const_ScriptFileSystem )
		FilePath = "../home/" & UserName & "/Diy/" & FileName
		FilePath = Server.MapPath( FilePath )

		if fs.FileExists(FilePath)=false then
			HTML_Data = "¡­¡­"
		else
			Set fp = fs.OpenTextFile( FilePath,1,False )
			If not fp.AtEndOfStream Then
				HTML_Data = fp.ReadAll
			else
				HTML_Data = "¡­¡­"
			end if
			fp.Close
		end if
	Set fs = nothing

	HTML_Data = replace(HTML_Data, "\", "\\")
	HTML_Data = replace(HTML_Data, """", "\""")
	HTML_Data = replace(HTML_Data, VbCrlf, "")
	response.write "<script language=""JavaScript"">" &_
			"	parent.FriendLinks.innerHTML = """ & HTML_Data & """;" &_
			"</script>"
%>