<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ Import Namespace="System.Data" %>
<script runat="server">
Dim connstr as String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
    Server.MapPath("database/contatti.xls") & ";Extended Properties=Excel 8.0;"
Dim objConn as New OleDbConnection(connstr)
Dim ds as New DataSet()
Dim objadapter as New OleDbDataAdapter("SELECT * FROM nomi", objconn)
Sub Page_Load(sender as object, e as EventArgs)
  try
    'in excel: insert->name->seleziono il range:nomi
    objconn.Open()
    objadapter.Fill(ds, "nomi")
    dg.DataSource = ds.Tables(0).DefaultView
    dg.DataBind()
  finally
    objconn.Close()
  end try
End Sub
</script>
<form runat="server" ID="Form1">
<asp:DataGrid id="dg" runat="server" Bordercolor="#DEDFDE" font-names="Arial" font-size="10pt"
HeaderStyle-BackColor="#FFCC00" ItemStyle-BackColor="#FFCC66" AlternatingItemStyle-BackColor="#FFFFFF"
AutoGenerateColumns="False" Width="628px" CellPadding="4" BackColor="White" BorderStyle="None"
BorderWidth="1px" GridLines="Vertical" ForeColor="Black">
<FooterStyle BackColor="#CCCC99"></FooterStyle>
<SelectedItemStyle Font-Bold="True" ForeColor="White" BackColor="#CE5D5A"></SelectedItemStyle>
<AlternatingItemStyle BackColor="White"></AlternatingItemStyle>
<ItemStyle BackColor="#F7F7DE"></ItemStyle>
<HeaderStyle Font-Bold="True" ForeColor="White" BackColor="#6B696B"></HeaderStyle>
<Columns>
<asp:BoundColumn DataField="codice" HeaderText="codice"></asp:BoundColumn>
<asp:BoundColumn DataField="Nome" HeaderText="Nome"></asp:BoundColumn>
<asp:BoundColumn DataField="Cognome" HeaderText="Cognome"></asp:BoundColumn>
<asp:BoundColumn DataField="Email" HeaderText="Email"></asp:BoundColumn>
</Columns>
<PagerStyle HorizontalAlign="Right" ForeColor="Black" BackColor="#F7F7DE" Mode="NumericPages"></PagerStyle>
</asp:DataGrid>
</form>