<script runat="server">

    Page_Load()
        Dim dbconn,sql,dbcomm,dbread

        dbconn = New SqlConnection( "server=serveraddy.net;uid=user_id;pwd=password;database=test_storefrontdb")
        dbconn.Open()
        dbcomm = New SqlCommand ( "SELECT * FROM Products INNER JOIN ProductCategory ON ProductCategory.ProductID = Products.uid WHERE (ProductCategory.CategoryID=1424) AND (Products.IsActive=1)", dbconn )
        dbread=dbcomm.ExecuteReader()
        featured.DataSource=dbread
        featured.DataBind()
        dbread.Close()
        dbconn.Close()
    End Sub

</script>

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" TargetSchema="http://schemas.microsoft.com/intellisense/nav4-0" Debug="true"%>

<asp:DataList RepeatColumns="3" RepeatDirection="Horizontal" id="featured" runat="server">
<ItemTemplate>
<%#Container.DataItem("Name")%>
</ItemTemplate>
</asp:DataList>

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="default.aspx.vb" Inherits="StoreFront.StoreFront.CustSignIn"  TargetSchema="http://schemas.microsoft.com/intellisense/nav4-0" Debug="true"%>

....

<asp:DataList RepeatColumns="3" RepeatDirection="Horizontal" id="featured" runat="server">
<ItemTemplate>
<%#Container.DataItem("Name")%>
</ItemTemplate>
</asp:DataList>

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Public Class CustSignIn
    Inherits CWebPage
    Protected WithEvents FeaturedItems As System.Web.UI.WebControls.DataList

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dbconn As New SqlConnection( "server=serveraddy.net;uid=user_id;pwd=password;database=test_storefrontdb" )
    dbconn.Open()
    Dim dbcomm As New SqlCommand( "SELECT * FROM Products INNER JOIN ProductCategory ON ProductCategory.ProductID = Products.uid WHERE (ProductCategory.CategoryID=1424) AND (Products.IsActive=1)", dbconn )
    Dim dbread As SqlDataReader = dbcomm.ExecuteReader()
    FeaturedItems.DataSource = dbread
    FeaturedItems.DataBind()
    dbread.Close()
    dbconn.Close()

...

        Try
            SetPageTitle = m_objMessages.GetXMLMessage("default.aspx", "PageTitle", "Title")
            SetDesign(PageTable, PageSubTable, PageCell, ErrorAlignment, MessageAlignment)
        Catch ex As Exception
            Session("DetailError") = "Class CustSignIn Error=" & ex.Message
            Response.Redirect(StoreFrontConfiguration.SiteURL & "errors.aspx")
        End Try

        If (Request.QueryString("SignOut") <> "") Then
            m_objCustomer.UpdateSignIn(False)
            Session("Customer") = Nothing
            Session("XMLShoppingCart") = Nothing
            m_objXMLCart = Nothing
            m_objCustomer = Nothing
            Session("OrderHistory") = Nothing
            Response.Redirect("default.aspx")
        End If

End Sub

...