prova così:
____________________
<table width="86">
<tr>
<td width="175">
<form name="mod" action="logsmod.asp" method="post">
<table width="165">
<tr>
<th width="10px" bgcolor="#FFFF00">i</th>
<th width="20px" bgcolor="#FFFF00">data</th>
<th width="25px" bgcolor="#FFFF00">id</th>
<th width="110px" bgcolor="#FFFF00">descrizione</th>
</tr>
<%
If Request.QueryString("act") = "modify" Then
Set ObjConn = Server.CreateObject("ADODB.Connection")
ObjConn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("actlog.mdb")

For i = 0 To ubound(s)
str = "SELECT * FROM actlog WHERE contatore = " & s(i)
Set ObjRS = ObjConn.Execute(str)
Response.Write "<tr>" & chr(13)
Response.Write "<td><input type=""text"" name=""cont"" class=""text"" value=" & ObjRS("contatore") & " disabled /></td>" & chr(13)
Response.Write "<td><input type=""text"" name=""data"" class=""text"" value=" & ObjRS("data") & " /></td>" & chr(13)
Response.Write "<td><input type=""text"" name=""id"" class=""text"" value=" & ObjRS("id") & " /></td>" & chr(13)
Response.Write "<td><textarea name=""desc"">" & ObjRS("descrizione") & "</textarea></td>" & chr(13)
Response.Write "</td></tr>" & chr(13)
Next
Response.Write "<tr><td colspan=""4"" align=""center""><input type=""submit"" name=""submit"" class=""button"" value=""update"" /><input type=""hidden"" name=""act"" value=""update"" /></td></tr>" & chr(13)
ObjConn.Close
Set ObjRS = Nothing
End If
%>
</table>
</form>
</td>
</tr>
</table>

ciao