<%@ Language=VBScript %> <% Response.Buffer=True %> Visualizzazione contenuto tabella AnagraficaStudenti <% 'qui inizia lo script lato server Dim RecSet Set RecSet = Server.CreateObject("ADODB.RecordSet") 'Ora si crea una tabella derivata composta da tutti i record della tabella ‘AnagraficaStudenti RecSet.Open "AnagraficaStudenti", Conn 'A questo punto si verifica che la tabella sia piena ‘nel qual caso si itera attraverso il recordset finchè 'non viene raggiunta la fine del file (EOF) If RecSet.BOF=True And RecSet.EOF=True Then %>

Non ci sono studenti registrati

<% Else Do While Not RecSet.EOF %> <% 'Vengono scritti i valori dei campi del record corrente %> <% ' Spostiamoci sul prossimo record del Recordset RecSet.MoveNext Loop End If ' Chiudiamo gli oggetti Recordset e Connection RecSet.Close Conn.Close ' Liberiamo la memoria RAM del server Set RecSet = Nothing Set Conn = Nothing %>
ID Studente Cognome Nome Indirizzo Cap Città
<%Response.Write RecSet("CodiceStudente")%> <%Response.Write RecSet("Cognome")%> <%Response.Write RecSet("Nome")%> <%Response.Write RecSet("Indirizzo")%> <%Response.Write RecSet("Cap")%> <%Response.Write RecSet("Città")%>