<% dbname = "databasename" ConnStr = "provider=SQLOLEDB;network=DBMSSOCN;" ConnStr = ConnStr & "uid=;pwd=;server=" ConnStr = ConnStr & ";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 PK for " & rs(1) & "
") rs.movenext loop rs.close: set rs = nothing Conn.Close: set Conn = nothing %>