Visualizza i record id una tabella

[19pantarei75]

Salve ragazzi.
Sono agli inizi e ho un problema di base.
Vorrei fare stampare a video i record della mia tabella.
Solo che mi dà il seguente errore:

Tipo di errore:
ADODB.Connection (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/rubrica/visualizza.asp, line 10

questo è il codice:

<% @Language="VBscript" %>
<%Response.Buffer="True" %>
<%
DIM Connessione, rsAnagrafica
SET Connessione=Server.CreateObject("ADODB.Connection")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")


SET rsAnagrafica=Connessione.Excute("SELECT * FROM anagrafica;")

if rsAnagrafica.BOF=true AND rsAnagrafica.EOF=true THEN
    Response.Write("Elementi non Trovati")
	else%>
	  
  <table border="1">
   <TR><TH>NOME</TH><TH>COGNOME</TH><TH>INDIRIZZO EMAIL</TH></TR>
   <% DO UNTIL rsAnagrafica.EOF %>
      <tr>
      <td><% rsAnagrafica.Fields("Nome") %></td>
      <td><% rsAnagrafica.Fields("Cognome") %></td>
      <td><% rsAnagrafica.Fields("Email") %></td>
      </tr>
       <% rsAnagrafica.MoveNext  %>
     <%LOOP%> 
   </Table> 
<%End if%>

<%Connessione.Close : SET Connessione=Nothing 
  rsAnagrafica.Close : SET rsAnagrafica=Nothing
  %>

Dove sbaglio?
Grazie

[Mems]

Execute e non Excute

[19pantarei75]

Grazie Mems!
Ora però mi dà il seguente:


Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01C2)
Numero errato di argomenti o assegnazione di proprietà non valida: 'Fields'
/rubrica/visualizza.asp, line 20

[Mems]

Leva sto .fields
e poi nella IF mettere OR al posto di AND

[michele.santoro]

Io penso che basti mettere un = davanti:

     <td><%= rsAnagrafica.Fields("Nome") %></td>
      <td><%= rsAnagrafica.Fields("Cognome") %></td>
      <td><%= rsAnagrafica.Fields("Email") %></td>

e poi devi chiudere prima la tabella e poi la connessione al db:

rsAnagrafica.Close : SET rsAnagrafica=Nothing
Connessione.Close : SET Connessione=Nothing

[19pantarei75]

Grazie ad entrambi.
Funziona!
Ho cosi modificato il codice in 2 modi, che prodeucono lo stesso risultato, ovvero stampare la tabella:

<% @Language="VBscript" %>
<%Response.Buffer="True" %>
<%
DIM Connessione, rsAnagrafica
SET Connessione=Server.CreateObject("ADODB.Connection")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")


SET rsAnagrafica=Connessione.Execute("SELECT * FROM anagrafica;")

if rsAnagrafica.BOF=true OR rsAnagrafica.EOF=true THEN
    Response.Write("Elementi non Trovati")
	else%>
	  
  <table border="1">
   <TR><TH>NOME</TH><TH>COGNOME</TH><TH>INDIRIZZO EMAIL</TH></TR>
   <% DO UNTIL rsAnagrafica.EOF %>
      <tr>
      <td><% =rsAnagrafica.Fields("Nome") %></td>
      <td><% =rsAnagrafica.Fields("Cognome") %></td>
      <td><% =rsAnagrafica.Fields("Email") %></td>
      </tr>
       <% rsAnagrafica.MoveNext  %>
     <%LOOP%> 
   </Table> 
<%End if%>

<% @Language="VBscript" %>
<%Response.Buffer="True" %>
<%
DIM Connessione, rsAnagrafica
SET Connessione=Server.CreateObject("ADODB.Connection")
Connessione.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mapPath("\rubrica\rubrica.mdb")


SET rsAnagrafica=Connessione.Execute("SELECT * FROM anagrafica;")

if rsAnagrafica.BOF=true AND rsAnagrafica.EOF=true THEN
    Response.Write("Elementi non Trovati")
	else%>
	  
  <table border="1">
   <TR><TH>NOME</TH><TH>COGNOME</TH><TH>INDIRIZZO EMAIL</TH></TR>
   
   <% DO UNTIL rsAnagrafica.EOF 
       a=rsAnagrafica.Fields("Nome") 
       b=rsAnagrafica.Fields("Cognome") 
       c=rsAnagrafica.Fields("Email") %>
      <tr>
      <td><% Response.write(a) %></td>
      <td><%Response.write (b) %></td>
      <td><% Response.write (c) %></td>
      </tr>
         <% rsAnagrafica.MoveNext  
       LOOP%> 
   </Table> 
<%End if%>