<%
'function written by Barry Wright www.engine-promotion.com
Function gethtmlresult(DMOZURL,htmlbegin,htmlend)
  Dim objXMLHTTP, htmlresult, htmlcontent
  Set objXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
  objXMLHTTP.Open "GET", DMOZURL, False
  objXMLHTTP.Send
  htmlcontent = objXMLHTTP.responseText
  Set objXMLHTTP = Nothing
	  Dim begin, theend
	  begin = Instr(htmlcontent,htmlbegin)
	  theend = Instr(htmlcontent,htmlend)
	  If begin <> 0 and theend <> 0 Then
		htmlresult = mid(htmlcontent,InStr(1,htmlcontent,htmlbegin,1), InStr(1,htmlcontent,htmlend,1) - InStr(1,htmlcontent,htmlbegin,1))
	  Else
		Response.Write " "
	  End If
  gethtmlresult = htmlresult
End Function
%>