şöyle birşey buldum

<% strURL = "http://www.xxx.com"
Dim objXmlHttp 
Set objXmlHttp = Server.CreateObject("MSXML2.ServerXMLHTTP")
objXmlHttp.Open "GET" , strURL , false

objXmlHttp.sEnd 

strHTML = objXmlHttp.ResponseText 
Set objXmlHttp = Nothing

%>

bu kodla bi kaç deneme yaptım fakat hotlinki aşamadım senin daha önce verdiğin kodla dbden gelen veriyi kırpmıştım videoyu sunucuya indirebilmek için o degeri xxx.com dan sonra tanımlamalımıyım