Questa è la mia pagina.
Voglio solo visionare l'ultimo record inserito,
non è sufficente dire
rs1.MoveLast ?
MI DA ERRORE
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>TAM INFORMATICA - Rapportino</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("/rapportini/RAPP_WWW.mdb")
Set connessione = Server.CreateObject("ADODB.Connection")
connessione.Open connectionString

'Facciamo la query
query="SELECT * FROM CLIENTI WHERE IDContatto = " & session("id") &""
Set rs = connessione.execute(query)
query2="SELECT * FROM INTERVENTO"
Set rs1 = Connessione.execute(query2)


%>
<body>
<table width="638" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2" valign="top">
      <table width="100%" border="1" cellspacing="0" cellpadding="2" bordercolor="#CCCCCC">
        <tr>
          <td rowspan="2" valign="top">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="45%">[img]immagini/LogoTam.gif[/img]</td>
                <td width="55%">
                  

<font size="2" face="Tahoma, Arial">di Tommasi Anna Maria

                    p.zza D. S. Chiarotto, 1

                    30030 Vigonovo VE

                    tel. 0499832279

                    fax 0499833595

                    e-mail: info@pranovi.it 

                    P.I. 03264840277</font></p></td>
              </tr>
          </table></td>
          <td width="42%">
            <div align="center"><font face="Tahoma" size="2">Denominazione azienda</font> </div></td>
        </tr>
        <tr>
          <td>
            <div align="center"><font face="Tahoma" size="4"><%=(rs.Fields.Item("Azienda").Value)%> </font></div></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td valign="top" height="24"></td>
    <td width="253" height="24">
      <center>
    </center></td>
  </tr>
  <tr>
    <td colspan="2" height="284">
      <table width="100%" border="1" cellspacing="0" cellpadding="2" height="407" bordercolor="#CCCCCC">
        <tr>
          <td><font face="Tahoma" size="2">Rapporto di lavoro N. </font><font face="Tahoma" size="2"><%=(rs1.Fields.Item("IDRapportino").Value)%></font></td>
          <td width="42%"><font face="Tahoma" size="2">Eseguito in data <%=(rs1.Fields.Item("DataRap").Value)%></font></td>
        </tr>
        <tr>
          <td colspan="2" height="48">
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td></td>
              </tr>
            </table>
            <font face="Tahoma" size="2"> </font></td>
        </tr>
        <tr>
          <td><font face="Tahoma" size="2">Descrizione</font><font face="Tahoma" size="2"></font></td>
          <td width="42%"><font face="Tahoma" size="2"><%=(rs1.Fields.Item("TipoQta").Value)%></font></td>
        </tr>
        <tr>
          <td height="236" valign="top"><font face="Tahoma" size="2"></font><font face="Tahoma" size="2"></font><font face="Tahoma" size="2">
		  <%if rs1.fields.item("DescrizioneRap").value <>"" then%>
		  <%=(rs1.Fields.Item("DescrizioneRap").Value)%>
		  <%else%>
		  
		  <%end if%>
		  </font></td>
		  
          <td height="236" valign="top"><font face="Tahoma" size="2"></font><font face="Tahoma" size="2">
		  <%if rs1.fields.item("QtaRap").value <>"" then%>
		  <%=(rs1.Fields.Item("QtaRap").Value)%>
		  <%else%>
		  
		  <%end if%>
		  </font></td>
        </tr>
        <tr>
          <td colspan="2"><font face="Tahoma" size="2">Note</font><font face="Tahoma" size="2"></font><font face="Tahoma" size="2"></font></td>
        </tr>
        <tr valign="top">
          <td colspan="2" height="185"><font face="Tahoma" size="2">
		  <%if rs1.fields.item("NoteRap").value <>"" then%>
		  <%=(rs1.Fields.Item("NoteRap").Value)%>
		  <%else%>
		  
		  <%end if%>
		   </font></td>
        </tr>
        <tr>
          <td rowspan="4"></td>
          <td width="42%"><font face="Tahoma" size="2">Spese accessorie</font></td>
        </tr>
        <tr>
          <td width="42%" height="36"><font size="2" face="tahoma">
		  <%if rs1.fields.item("SpeseRap").value <>"" then%>
		  <%=(rs1.Fields.Item("SpeseRap").Value)%>
		   <%else%>
		  
		  <%end if%>
		  </font></td>
        </tr>
        <tr>
          <td width="42%"><font face="Tahoma" size="2">Operatore</font></td>
        </tr>
        <tr>
          <td width="42%"><font face="Tahoma" size="2"><%=(rs1.Fields.Item("Operatore").Value)%></font></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan="2"></td>
  </tr>
</table>
</body>
</html>
<% rs.close
set rs = nothing
rs1.close
set rs1 = nothing
connessione.close
set connessione = nothing %>