<%
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.<BR>"
 ' 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. ","