<%
Function DB_ExtendedProperties(DBConn)
' Get extended properites of db connection
' Get all the additional information on the database you are using
DB_ExtendedProperties= DBConn.Properties.Item("Extended Properties")
' Set rconConnection = Server.CreateObject("ADODB.Connection") 'create connection variable
' rconConnection.Open "DSN=YourDSN"
' Response.Write "...Connnection Open.
"
' Response.Write "Extended Properties" & rconConnection.Properties.Item("Extended Properties")
' rconConnection.close
End Function
%>

' Old Notes:
' <%@ Language=VBScript %>
' 109,"Get the extended properties of your db connection ",10,"Get all the additional information on the database you are using via this little known method. I used this to monitor the activities of my ISP when they used to host my database, so I knew when they moved it from server to server. An example of this output would be: ...Connnection Open. Extended PropertiesDSN=pscDSN;Description=Added online by Ian Ippolito;UID=PSCId;PWD=PSCPsd;APP=Internet Information Services;WSID=PscUid;server=100.2.4.3 Note:substitue YourDSN with the name of your DSN, or if you are using OLEDB, replace the whole connection string with the one you use. ","