Estimado tork, esto te pasa porque te olvidaste de cerrar el primer if, además para qué estás usando un while y un do while al mismo tiempo? Te recomiendo que dejes tu código así:
<%@ Language="vbscript"%>
<html>
<head>
<title>Resultados de la busqueda: <%=request.form("key")%></title>
</head>
<body>
<%
Set conexion = Server.CreateObject("ADODB.Connection")
basedatos = Server.MapPath(".../tres/buscar.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & basedatos & ";"
If Request.form("key") = "" Then
response.write("<center><font face=arial, verdana size=4 color=#0a5168>Debe ingresar una palabra antes de buscar.</font></center>")
Else
SearchSQL = "SELECT * FROM Contenidos WHERE Cuerpo LIKE '%" & Request.form("key") & "%'"
Set registros=conexion.Execute(SearchSQL)
If registros.BOF And registros.EOF Then
response.write("<center><font face=verdana, helveltica size=4 color=#0a5168>No se han encontraron resultados.</font></center>")
Else
If Not registros.BOF Then
While Not registros.EOF %>
<%=registros("Cuerpo")%>
<% registros.MoveNext
Wend
End If
End If
End if 'Este es el end if que te faltaba
registros.Close
conexion.Close
%>
</body>
</html>
Probalo, ahora debería de andar.
