Dynamically viewing Database Connection Properties using ASP

Ever wondered how you could take a look at your database connection properties over the internet? You can using ASP in a very similar fashion as viewing the ASP Server Variables.
You'll need two things to make this work for you. One, you need to cut and paste this ASP code into your editor. Two, create A DSN to the database you wish to view properties on. Once make your DSN, replace 'VicTest' with your DSN name. Not sure how to make a DSN? Then you need to view the quick steps to making a DSN.

<%@ Language=VBScript %>

<%
    Option Explicit

    dim objCNN
    dim intCTProps
    dim item
    dim vbCRLF

    vbCRLF = chr(10)

    Response.Write "<HTML><HEAD></HEAD><BODY>" & vbCRLF
    Response.Write "<p><h3>Viewing DB Connection Properties</h3></p>" & vbCRLF
    Response.Write vbCRLF
    set objCNN = Server.CreateObject("ADODB.connection")
    objCNN.Open "DSN=VicTest"

    Response.Write "<table border=1><tr><td width='10%'>>Number</td>" & vbCRLF
    Response.Write "<td width='70%'>>Name</td><td width='20%'>>Value</td></tr>" & vbCRLF

    intCTProps = 0
    for each item in objCNN.Properties
        intCTProps = intCTProps + 1
        Response.Write "<tr><td>" & intCTProps & "</td>" & vbCRLF
        Response.Write "<td>" & item.name & "</td>" & vbCRLF
        Response.Write "<td>" & item.value & "</td></tr>" & vbCRLF
    next
    Response.Write "</table>" & vbCRLF
    Response.Write vbCRLF
    Response.Write "</BODY></HTML>" & vbCRLF

    set objCNN = Nothing
    set intCTProps = nothing
    set item = nothing
    set vbCRLF = nothing
%>

Action Encoding Provided From:Action Jackson