<%@ Language=VBScript %>

<%
' PROTEZIONE IMMAGINE DA SALVATAGGIO
' BY WWW.CONTIDAVIDE.IT
' DAW_CONTI@LIBERO.IT

' QUESTA FUNZIONE IMPEDISCE A COLORO CHE VOGLIONO SALVARE UN'IMMAGINE DAL VOSTRO SITO. 
' L'IMMAGINE VERRA' SALVATA IN FORMATO ASP E CON CODICE CRIPTATO PER IMPEDIRE LA VISUALIZZAZIONE


Function BinaryGetURL(URL)
  Dim Http
  Set Http = CreateObject("Microsoft.XMLHTTP")
  
  Http.Open "GET", URL, False
  Http.Send
  
  BinaryGetURL = Http.ResponseBody
End Function

 ''' SPECIFICARE IL TIPO DI IMMAGINE DA PROTEGGERE
 Response.ContentType ="image/JPG"
 
 ''' RICHIAMA LA FUNZIONE E SI INSERISCE IL PERCORSO DELL'IMMAGINE DA PROTEGGERE
 Response.BinaryWrite  BinaryGetURL("http://www.contidavide.it/images/title.gif")
 %>