Pardon, però c'è ancora qualcosa che non va perchè non mi da errore ma non mi da neanche risultati, ti faccio vedere tutto il
codice:
<table cellpadding="6" cellspacing="6">
<tr>
<td align="left"><font size="5">Cognome e Nome</font></td>
<td></td>
<td align="left"><font size="5">Indirizzo</font></td>
</tr>
<tr>
<td></td>
</tr>
<%
id = replace(id,"'","''")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\inetpub\webs\....mdb")
Set objRs = Server.CreateObject("ADODB.Recordset")
set objRs = objConn.Execute("SELECT * from Clienti WHERE [Cognome e Nome]='"&id&"'")
Do while NOT objRs.EOF
%>
<tr>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Cognome e Nome")%></td>
<td></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<%response.write objRs("Indirizzo")%>
</td>
<td></td>
<td align="left" bgcolor="#FFFFFF"><font size="3">
<form method="post" action="scheda_personale_cliente.asp?id=<%=objRs("IDCliente")%>">
<button type="submit">
Accedi alla scheda personale</p>
</button>
</form>
</p>
</td>
</tr>
<%objRs.Movenext
Loop
objRs.Close
Set objRs = Nothing
objConn.Close
Set objConn = Nothing
%>
</table>