Nel codice che hai messo ci sono un pò troppe cose miste, modificalo così :

codice:
<% 
Dim MANUT 
Set MANUT = Server.CreateObject("ADODB.Connection") 
MANUT.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=C:\Inetpub\wwwroot\ManStaz\manutezio
ne.mdb" 

Set RS = Server.CreateObject("ADODB.Recordset") 
sql="Select * from Stazione_Manutezione" 
RS.Open sql, MANUT, 3,2 
rs.addnew 
rs("Id_staz") = idupri 
rs("Id_Man") = idupri & date 
rs.update 
%>