HTML 생성으로 파일 떨궈줄때 UTF-8 로 셋팅

<%
Set objFS = CreateObject("Scripting.FileSystemObject")

 RQ_a1 = trim(request("a1"))
 RQ_b1 = trim(request("b1"))
 RQ_c1 = trim(request("c1"))
 RQ_d1 = trim(request("d1"))
 RQ_e1 = trim(request("e1"))

 bannername = "xxxxx.HTM"

  ... 중간생략...

 '생성 디렉토리 경로   ────────────────────────────────────────────────┐
 createroute = Request.cookies("x")("default_dir") & "xxxx\" & strsubfolder & "\zzzz\qqqqq\" & RQ_companyname

 if not(objFS.FolderExists(createroute)) then
  objFS.CreateFolder(createroute)
 end if
 
 createroute = createroute & "\" & bannername

 '생성 원본 파일 위치 생성
 viewfile = Request.cookies("biz")("default_dir") & "xxxx\makehtml\" & "Create_Category_" & RQ_a1 & ".asp"
 Response.Write "http://" & request.ServerVariables("HTTP_HOST") & "/makehtml/a1_" & RQ_a1 & ".asp?b1=" & RQ_b1 & "&c1=" & RQ_c1 & "&e1=" & RQ_e1

 if objFS.FileExists(viewfile) then
 ' URL 소스 읽어들이기 *************************
  set uCDO = Server.CreateObject("CDO.Message")
  GetURL = "http://" & request.ServerVariables("HTTP_HOST") & "/makehtml/a1_" & RQ_a1 & ".asp?b1=" & RQ_b1 & "&c1=" & RQ_c1 & "&e1=" & RQ_e1
  uCDO.CreateMHTMLBody GetURL, 31
  uCDO.BodyPart.Charset = "utf-8"
  uCDO.HTMLBodyPart.Charset = "utf-8"
  scanHtml = uCDO.HTMLBody
  set uCDO = Nothing

  'ON ERROR RESUME NEXT

  Set objPrinter = objFS.CreateTextFile(createroute, True)
  objPrinter.Write(scanHtml)
  objPrinter.Close()
  Set objPrinter = Nothing
  
 else
  Set objPrinter = objFS.CreateTextFile(createroute, True)
  scanHtml = "<table cellpadding=0 cellspacing=0 border=0 width=100% ><tr><td align=center height=50>&nbsp;</td></tr></table>"
  objPrinter.Write(scanHtml)
  objPrinter.Close()
  Set objPrinter = Nothing
 end if
 
 response.Write scanHtml
 
Set objFS = Nothing
%>