<%@ Page Language="VB" Debug="true" %>
<% Response.Expires = 0 %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.data" %>
<%@ Import Namespace="System.Data.OleDB" %>
<%@ Register TagPrefix="ie" Namespace="Microsoft.Web.UI.WebControls" Assembly="Microsoft.Web.UI.WebControls" %>
<html>
<script language="VB" Option="Explicit" runat="server" Debug="true" >
Sub Page_Load(Sender As Object, E As EventArgs)
dim strSQL as string
dim objConnection as OleDbConnection
dim objCommand as OleDbDataAdapter
strSQL="select code,desc from categ"
objConnection=New OleDbConnection("provider=vfpoledb.1;Data Source=c:\inetpub\mysytem\DATA\mydbf.dbc;SourceType=DBC;Exclusive=No;Backgroundfetch=NO;")
objcommand=new OleDbDataAdapter(strSQL,objConnection )
dim DS as dataset
ds=new DataSet()
try
objcommand.Fill(DS,"categ")
' return DS.Tables("Categ").DefaultView
Catch ex as Exception
Throw ex
Finally
objConnection.close()
End try
Products.Datasource=DS.Tables("Categ").DefaultView
Products.DataBind()
End Sub
</script>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<title>New Page 1</title>
</head>
<body>
<ASP:DataList id="Products" ShowHeader=false ShowFooter=false RepeatColumns="2" RepeatDirection="horizontal" BorderWidth=0 runat="server">
<ItemTemplate>
<table>
<tr>
<td width="150" style="text-align:center; font-size:8pt; vertical-align:top; height:200">
<%# DataBinder.Eval(Container.DataItem, "COde") %> <br>
<%# DataBinder.Eval(Container.DataItem, "Desc") %>
</td>
</tr>
</table>
</ItemTemplate>
</ASP:DataList>
</body>
</html>
|