  Set objXmlHttp = server.CreateObject("Msxml2.ServerXMLHTTP.3.0")
  objXmlHttp.open "POST", "http://openapi.naver.com/search?key=271fca302e33a245bb6f9386338c9962&query="& Replace(goodsname,"&","")&"&display=5&start=1&target=shop&sort=asc", false
 
  objXmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
  objXmlHttp.send
  strResponseText = objXmlHttp.responseText
  Set objXmlHttp = Nothing
 
  Set objMsXmlDom = Server.CreateObject("microsoft.XMLDOM")
  objMsXmlDom.async = false
  objMsXmlDom.loadXML(strResponseText)

  If len(strResponseText) < 400 Then
       refer_title= "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/title").Item(0).TeXt)
       refer_link = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/link").Item(0).Text)
       refer_image = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/image").Item(0).Text)
       refer_lprice = 0
       refer_mallName = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/mallName").Item(0).Text)
       refer_productId = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/productId").Item(0).Text)
       refer_productType = "상품명이 잘못됐거나, 상품명에 맞는 XML이 없습니다." '& Trim( objMsXmlDom.getElementsByTagName("channel/item/productType").Item(0).Text)

  Else
       '추출 (getElementsByTagName("xml엘리먼트명"))
       refer_title= "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/title").Item(0).TeXt)
       refer_link = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/link").Item(0).Text)
       refer_image = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/image").Item(0).Text)
       refer_lprice = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/lprice").Item(0).Text)
       refer_mallName = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/mallName").Item(0).Text)
       refer_productId = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/productId").Item(0).Text)
       refer_productType = "" & Trim( objMsXmlDom.getElementsByTagName("channel/item/productType").Item(0).Text)
      
  End If
  Set objMsXmlDom = Nothing