Come accennato nella pagina precedente, ora vedremo il codice Asp integrato con l’html. La spiegazione avverrà successivamente.

<html>
<head>
<title>Mostra Dati Presenti</title>
<meta http-equiv=”Content-Type” content=”text/html; charset=UTF-8 /> </head><body bgcolor=”#FFFFFF” text=”#000000″>
<center>
<TABLE border=”0″ width=”400″>
<TR bgcolor=”#000000″>
<TD width=”20%”><center><strong><font
color=”#FFFFFF”>Id</font></strong></center></TD> <TD width=”20%”><center><strong><font
color=”#FFFFFF”>Titolo</font></strong></center></TD>
<TD width=”20%”><center><strong><font
color=”#FFFFFF”>Autore</font></strong></center></TD>
<TD width=”20%”><center><strong><font
color=”#FFFFFF”>Genere</font></strong></center></TD>
<TD width=”20%”><center><strong><font
color=”#FFFFFF”> </font></strong></center></TD>
</TR>
<%
dim strCode
strCode=”innovatel”
dim intVolta
intVolta=”0″

Set Conn=Server.CreateObject(“ADODB.Connection”)
strConn=”driver={Microsoft Access Driver (*.mdb)}; “
strConn=strConn & ” DBQ=” & Server.MapPath(“libreria.mdb”)
strConn=strConn & “;pwd=” & strCode
Conn.Open strConn
sql = “SELECT * FROM libri”
Set rs = Server.CreateObject(“ADODB.Recordset”)
rs.Open sql, conn ,3,3

do while not(rs.eof)
if intVolta=”1″ then
intVolta=”0″
intTesto=”#00FF99″
intSfondo=”#FFFF00″
else
intVolta=”1″
intTesto=”#FFFF99″
intSfondo=”#33CCFF”
end if
%>
<TR bgcolor=”<%=intSfondo%>”>
<TD width=”20%”><%=rs(0)%></TD>
<TD width=”20%”><%=rs(1)%></TD>
<TD width=”20%”><%=rs(2)%></TD>
<TD width=”20%”><%=rs(3)%></TD>
<TD width=”20%”><a
href=”modifica2.asp?Id=<%=rs(0)%>”>Modifica</a></TD> </TR>
<%
rs.movenext
loop
rs.Close
set rs = Nothing
conn.Close
set conn = Nothing
%>
</TABLE>
</center>
</body>
</html>

Se siete interessati alla spiegazione dello script in modo completo,vi basterà consultare la parte riguardante la visualizzazione dei dati contenuti nella nostra banca dati.

La sintassi usata per creare il link è la seguente:

<a href=”modifica2.asp?Id=<%=rs(0)%>“>Modifica</a>

Come si può osservare il link sfrutta il passaggio di un parametro. Questo parametro corrisponde al valore contenuto in posizione 0 del nostro recordset. Esiste un semplicissimo motivo per ci utilizziamo questo valore: In fase di definizione del nostro tracciato record lo abbiamo definito come PK (Primary Key tradotto in italiano Chiave Primaria) e quindi abbiamo l’assoluta certezza che il suo valore NON sia duplicato in altri record.
36 / 46

Aggiornamento dati nel database [Parte 3]