<% Option Explicit %> <% Response.Buffer = True %> <% Dim strFileID Dim rsGetfile strFileID = Request.QueryString("FileID") If Not strFileID = "" Then Set rsGetfile = Server.CreateObject("ADODB.Recordset") filSql = "SELECT fltFilnamn, fltBeskrivning, fltFil FROM tblFiler WHERE ID_Code = " & strFileID & ";" rsGetFile.Open filSql, KatalogCon, 3, 3 If Not rsGetfile.EOF Then Response.ContentType = rsGetfile(1) Response.BinaryWrite rsGetfile(2) Else Response.Write("File could not be found") End If rsGetfile.Close adocon.Close Set rsGetfile = Nothing Set adocon = Nothing Else Response.Write("Personen har ingen bild") End If %>