Lo tengo:
Me fallaba porque tenia que poner como server sql.mfo.com.es y solo puse mfo.com.es
MUCHISIMAS GRACIAS A TODOS
Código:
<%
Dim M, sq, rs, datos, bd
bd = "Driver={SQL Server};Server=sql.mfo.com.es;uid=usuario;pwd=pass;Database=basedatos"
Set M = Server.CreateObject("ADODB.Connection")
M.Open bd
sq = "select * from entradas"
set rs = M.Execute(sq)
if not rs.eof then
datos = rs.getrows
end if
rs.close
%>