<%@ Language=VBScript %> <% Response.Buffer = False bNoFile = False strPwd = Trim(Request.Form("pwd")) Select Case strPwd Case "jit50c" strFilePath = "/downloads/training/IT50_120507.zip" End Select Set myFile= Server.CreateObject("Scripting.FileSystemObject") If myFile.FileExists(strFilePath) Then Response.AddHeader "Content-Disposition", "attachment; filename=" & strFileName Set oFS = Server.CreateObject("SoftArtisans.FileManager") Set oF = oFS.GetFile(strFilePath) Response.AddHeader "Content-Length", oF.Size Set oF = Nothing Set oFS = Nothing Response.ContentType = "application/unknown" Response.CacheControl = "public" Set download = Server.CreateObject("SoftArtisans.FileUp") download.TransferFile strFilePath Response.End Else bNofile = True End If Response.Redirect("../pages/site/downloads.asp?nf=1") %>