<% strFileStream = Request("stream") strFileDownload = Request("download") Dim fs,f If strFileDownload = "" Then ' Vi finder filstørrelsen Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(strFileStream) intFileSize = Round((f.Size/1048576),2) set f=nothing set fs=nothing 'Vi laver linket strLink = "Du kan downloade flv filen her: " & strFileStream & " (" & intFileSize & " MB)" Else ' Vi finder filstørrelsen Set fs=Server.CreateObject("Scripting.FileSystemObject") Set f=fs.GetFile(strFileDownload) intFileSize = Round((f.Size/1048576),2) set f=nothing set fs=nothing 'Vi laver linket strLink = "Du kan downloade en bedre version af videoen her: " & strFileDownload & " (" & intFileSize & " MB)" End if %>


<%=strLink%>