Como contar los registros que devuelve esta consulta con INNER JOIN

[Myakire]

Pues no te entendí.

Pero una forma de hacer lo que intentas (con DSN, como lo tienes, aunque sería mejor detectamente al driver) es:

Set oConn = Server.CreateObject("ADODB.Connection")
oConn .ConnectionString = "DSN=webconn"
oConn .Open
Set oRS = Server.createobject("ADODB.Recordset")
sql = "SELECT * FROM productos INNER JOIN autores ON productos.idautor = autores.idautor where nombreautor like '%" & Replace(Keyword, "'", "''") & "%' "
Set oRS = oConn .Execute(sql)
' o bien oRS.Open sql,oConn,3,3
NumRegistros = oRs.RecordCount