<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Response.Buffer=true On Error Resume Next 'Create a stream object Dim tfm_downloadStream Set tfm_downloadStream = Server.CreateObject("ADODB.Stream") tfm_downloadStream.Type = 1 tfm_downloadStream.Open tfm_downloadStream.LoadFromFile Server.Mappath("La7 plan sheet 4 of 5.pdf") If Err.number = 0 Then Response.Clear Response.ContentType = "application/octet-stream" Response.AddHeader "Content-Disposition", "attachment; filename=La7 plan sheet 4 of 5.pdf" Response.AddHeader "Content-Transfer-Encoding","binary" Response.BinaryWrite tfm_downloadStream.Read tfm_downloadStream.Close Set tfm_downloadStream = Nothing Response.End() Else tfm_downloadStream.Close Set tfm_downloadStream = Nothing Response.Redirect("../index-enter.htm") End If 'Basic-UltraDev BUD_ForceDownload server behavior %>