<%
dbname = "databasename"
ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;"
ConnStr = ConnStr & "uid=<uid>;pwd=<pwd>;server="
ConnStr = ConnStr & "<IP Address>;database=" & dbname

set Conn = server.createobject("adodb.connection")
Conn.Open ConnStr

sql = "SELECT so1.name AS keyName, so2.name AS tableName "
sql = sql & "FROM sysobjects so1 INNER JOIN sysobjects so2 "
sql = sql & "ON so2.id = so1.parent_obj WHERE (so1.xtype='PK')"
set rs = Conn.execute(sql)
do while not rs.eof
response.write(rs(0) & " is PrimaryKey for " & rs(1) & "<br>")
rs.movenext
loop
rs.close: set rs = nothing
Conn.Close: set Conn = nothing
%>