<% sub PrinEnlaceDescarga(strfile,strtitle) set fs=Server.CreateObject("Scripting.FileSystemObject") set file=fs.GetFile(Server.MapPath(strfile)) strFileName = file.Name strFileSize = file.Size strFilePath = file.Path %> &Name=<%=strFileName%>&Size=<%=strFileSize%>><%=strtitle%> <% end sub set file=nothing set fs=nothing %>