Avevi ragione funzionava solo con il primo record.

Adesso però è tutto OK

codice:
<%
Dim nome_ut
Dim pass

nome_ut = Replace(Request.Form("nomeutente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")

Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("db_iscritti.mdb")
Dim sql
sql = "SELECT ID,inizio,fine FROM db_iscritti WHERE nomeutente='" &nome_ut& "' AND password='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)

Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
end if

Dim inizio
if rs.eof then
  inizio = false
else
  inizio = true
end if
Session("inizio") = rs("inizio")

Dim fine
if rs.eof then
  fine = false
else
  fine = true
end if
Session("fine") = rs("fine")
rs.close

if autenticato = true then
sql = "INSERT INTO accessi (nomeutente, dataaccesso) VALUES ('" & nome_ut & "', '" & now() & "')"
Set rs = cn.Execute(sql)
end if

cn.Close

Set rs = Nothing
Set cn = Nothing

if autenticato = true then
  Session("Autenticato") = nome_ut
  Response.Redirect("ok.asp")
else
  Response.Redirect("errore.asp")
end if
%>
PS: scusa se te lo dico però non ho ben capito perche nei tuoi commenti mi hai solo detto che cosi non poteva funzionare senza dare una possibile soluzione. A me non è di nessun aiuto.
Se sai che cosi non può andare saprai anche il perchè.
Che senso ha rispondermi cosi?

So che nessuno è obbligato ad impegnarsi nei forum ma chi vi partecipa sa che servono proprio a questo.
Alla prossima, Andrea