<% Response.Buffer = True Dim ID ID = Request.QueryString("ID") %> <% ' Recordset Object Dim rs Set rs = Server.CreateObject("ADODB.Recordset") ' opening connection rs.Open "select * from cantieri where ID = " & ID, objconn, 2, 4 'If not rs.EOF Then if not rs("nome")="" then Response.Write " " Response.Write " " & rs("nome") & " " Response.Write "" & rs("descrizione") & " " 'Response.ContentType = rs("contenttype") 'Response.BinaryWrite rs("FileData") else Response.Write "Nessun cantiere inserito" End If rs.Close Set rs = Nothing %>