non so se l'ho messo nel posto giusto ma credo di no
<%
set Recaut = Server.CreateObject("ADODB.Recordset")
Visaaut = "SELECT distinct autore FROM [catalogo_varia_equilibri$] where autore<>'' and titolo like '"& replace(recordset("titolo"),"'","''") &"' order by autore"
Recaut.Open Visaaut, Connect, adOpenStatic, adLockOptimistic response.write Visaaut
resonse.end

if not Recaut.eof then
strautore=Recaut("autore")
else
strautore=""
end if
%>
Tipo di errore:
Errore di compilazione di Microsoft VBScript (0x800A0401)
Prevista fine istruzione
/equilibrilibreria/find.asp, line 281, column 61
Recaut.Open Visaaut, Connect, adOpenStatic, adLockOptimistic response.write Visaaut