<%
	dim cn, rs, st
	cn=Server.CreateObject("ADODB.Connection") 'создаем соединение
	st=Server.CreateObject("ADODB.Stream") 'создаем поток, в который сохраним рекордсет
	cn.CursorLocation =  3  'соединение будет с клиентским курсором
	cn.Open "dsn=MyDsn", "login", "pass" 'открываем соединение
	rs.Open Request.QueryString("sq"), cn,  3 ,  4  'для запроса первым способом
	rs.Open Request.Form("sq"), cn,  3 ,  4  'для запроса вторым способом
	set rs.ActiveConnection = Nothing 'отсоединяем рекордсет
	cn.Close 'закрываем соединение
	rs.Save st,  0  'сохраняем рекордсет в поток
	st.Position =  0  'устанавливаем позицию чтения на начало
	Response.AddHeader "pragma","no-cache" 'отключаем кеширование запросов клиентом, 
	Response.AddHeader "cache-control","private" 'иначе на один и тот же запрос он будет получать 
	Response.CacheControl = "no-cache" 'один и тот же ответ, не смотря на изменения в базе
	Response.contentType = "image/gif" 'подойдет любой тип содержимого, который http не уделает своими кодировками
	Response.BinaryWrite st.Read 'отправляем клиенту массив байтов
%>

Dim objHTTP As New MSXML2.XMLHTTP
Dim rs As New ADODB.Recordset
Dim st As New ADODB.Stream
objHTTP.open "GET", "http://www.best-hosting.ru/default.asp?sql=" & sql 'адрес обязательно с префиксом http://, иначе возникнет ошибка
.send
st.Type = adTypeBinary 'далее операции, обратные серверным, комментировать нечего)
st.open
st.Write objHTTP.responseBody
st.Position =  0 
rs.open st