Using ShowShare()

Contents of data.txt :

Fractions
How much is 3 out of 4?

How much is 1 out of 20?

Filesizes:
6232 bytes out of 35 KB is:

27598 bytes out of 35 KB is:

19364 bytes out of 35 KB is:

6060 bytes out of 35 KB is:

2063 bytes out of 35 KB is:

29409 bytes out of 35 KB is:

291 bytes out of 35 KB is:

Default.asp:
<!--#include file ="../../jakes_IO.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html lang="da">
<head>
    <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
    <title>Example use of the ShowShare function</title>
    <link rel="stylesheet" type="text/css" href="/jake.css">
</head>
<body>
    <div align="center"><h1>Using ShowShare()</h1></div>
    <b>Contents of data.txt :</b><br>
    <span style="display:block;border:1px solid black;background:#DFE;padding:10px;">
        <br><b>Fractions</b>
        <br>How much is 3 out of 4? <%=showshare(3,4,400)%>
        <br>How much is 1 out of 20? <%=showshare(1,20,400)%>
        <br><p><b>Filesizes:</b>
        <%dim file
            for each file in getfilesfromfolder("files")
                response.write("<br>" & getsize(file) & " bytes out of 35 KB is:" & showshare(getsize(file), 35840, 400))
            next
        %>
    </span>
    
    
    <br><b>Default.asp:</b><br>
    <span style="display:block;border:1px solid black;background:#FDE;font-size:10px;padding:10px;">
    <% response.write(stringToHTML (GetFileContents("default.asp")))%>
    </span>
    
    

</body>
</html>