Using DebugThis()

Contents of default.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 DebugThis function</title>
    <link rel="stylesheet" type="text/css" href="/jake.css">
</head>
<body>
    <div align="center"><h1>Using DebugThis()</h1></div>
    <br>
    <p><b>Contents of default.asp :</b><br>
    <span style="display:block;border:1px solid black;background:#DFE;padding:10px;font-size:11px;">
    <% response.write(stringToHTML (GetFileContents("default.asp")))%>
    </span>
    <p><b>Random variables debugged</b>
    <span style="display:block;border:1px solid black;background:#DEF;padding:10px;font-size:11px;">
    <%
    dim number
    number = (int(rnd * 4))
    select case number
        case 0
            dim a(3)
            a(0) = "Hi"
            a(1) = "There"
            a(2) = "Mate"
            a(2) = "!"
            response.write ("Array:")
            debugthis(a)
        case 1
            dim bool
            bool = true
            debugthis("Boolean: " & bool)
        case 2
            dim integ
            integ = 3+5
            debugthis("Integer: " & integ)
        case 3
            dim aString
            aString = "ASP can be a lot of fun!"
            debugthis("String: " & aString)
    end select

    %>
    </span>

</body>
</html>

Random variables debugged

String: ASP can be a lot of fun!