<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer=True %>

Nome Studente:	<% Dim RecSet, sql Set RecSet = Server.CreateObject("ADODB.RecordSet") sql = "SELECT * FROM AnagraficaStudenti ORDER BY Cognome" RecSet.Open sql, Conn Response.Write "" & vbCrLf Do While Not RecSet.EOF Response.Write "" & _ RecSet("Cognome") & " " & _ RecSet("Nome") & "" & vbCrLf RecSet.MoveNext loop RecSet.Close Set RecSet = Nothing Conn.Close Set Conn = Nothing Response.Write "" & vbCrLf %>