<%if session("contr2") <> "OK" then Response.Redirect "Pass.asp" %> <% ' Retrieves binary files from the database Response.Buffer = True ' ID of the file to retrieve Dim ID ID = Request("IDD") ID = AntiSQLinjection(ID) If Len(ID) < 1 Then ID = 7 End If ' Connection String Dim connStr connStr = AuthConnectionString ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "SELECT [FileName], [FileData], [ContentType] FROM Documenti " & _ " WHERE IDDocumento = " & ID, connStr, 2, 4 If Not rs.EOF Then Response.AddHeader "Content-Disposition", "filename=" & rs("FileName") Response.ContentType = rs("ContentType") Response.BinaryWrite rs("FileData") End If rs.Close Set rs = Nothing %>