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 %>
Rispondi quotando
