<?xml version="1.0"?>
<?xml-stylesheet  href="../aspnetprogram.xsl" type="text/xsl" ?>
<program>
<title>Display content of text file using Datagrid </title>
<author>P.Srikanth</author>
<place>Srikanth Technologies,Vizag</place>
<creationdate>11-7-2003</creationdate>
<updationdate>11-7-2003</updationdate>
<content>
<![CDATA[

<%@ page debug=true%>
<%@ import namespace="system.data,system.io"%>


<script runat=server>

  sub page_load()
     dim dt as new DataTable()

     dim c_name as new DataColumn("Name", Type.GetType("System.String"))
     dim c_email as new DataColumn("Email", Type.GetType("System.String"))

     dt.columns.add(c_name)
     dt.columns.add(c_email)


     ' read data from file in the current directory
     ' file contains emails in the format  name:email 

     dim sr as new StreamReader( server.mappath("emails.txt"))

     dim line as string
     dim parts(2) as string
     dim dr as datarow
  
     line = sr.Readline()

     ' read lines until you reach EOF

     do until line is nothing

        ' split the line into two - name and email

        parts = line.split(":")

        if parts.length = 2 then

          ' add  a new row to datatable
          dr = dt.NewRow()
          dr.item(0) = parts(0)
          dr.item(1) = parts(1)

          dt.rows.add(dr)
        end if

        ' read next line

        line = sr.ReadLine()

     loop

     sr.close()

     dg1.datasource = dt
     dg1.DataBind()
     
 
  end sub

</script>

<form runat=server>
  <h2>Email Addresses </h2>
  <asp:datagrid id=dg1  runat=server />
</form>



]]>


</content>
</program>        


    
