niente, ho provato tutte le combinzioni funziona solamente come detto in precedenza vi mosrto tutto il codice funzionante :

<%@ Language=VBScript %>
<html>
<body>
<table border=0>
<tr><td>Export</td></tr>
<tr><td>
<%
dim Cn,Rs
set Cn=server.createobject("ADODB.connection")
set Rs=server.createobject("ADODB.recordset")
Cn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("P_EDILIZIE.mdb")

Rs.open "select * from PRATICA left outer join RICHIEDENTE on PRATICA.id=RICHIEDENTE.id ",Cn,1,3


if Rs.eof <> true then
response.write "<table border=1>"

while not Rs.eof

response.write "<tr><td>"&Rs.fields("pratica")&"</td><td>"&Rs.fields("anno")&"</td><td>"&Rs.fields("data_prt")&"</td><td>"&Rs.fields("protocollo")&"</td><td>"&Rs.fields("tipo_prt")&"</td><td>"&Rs.fields("num_prt")&"</td><td>"&Rs.fields("oggetto")&"</td><td>"&Rs.fields("tipo_int")&"</td><td>"&Rs.fields("cognome")&"</td><td>"&Rs.fields("nome")&"</td> </tr>"
Rs.movenext

wend
response.write "</table>"
end if

set rs=nothing
Cn.close
%>

</td></tr>
</table>
</body>
</html>