http://localhost:49330/WebSite/Index.aspx.vb

Partial Class Index
    Inherits System.Web.UI.Page

    Dim sds As SqlDataSource = New SqlDataSource()

    Public Sub New()
        Me.sds.ProviderName = "System.Data.Odbc"
        Me.sds.ConnectionString = "Dsn=mydata"
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Request.Cookies("username") Is Nothing Or Request.Cookies("userpass") Is Nothing Then
            Response.Redirect("~/Default.aspx")
        End If

        Me.sds.SelectCommand = "select count(*) from t_user where username = ? and userpass = ?"
        Me.sds.SelectParameters.Add(1, Request.Cookies("username").Value)
        Me.sds.SelectParameters.Add(2, Request.Cookies("userpass").Value)
        Dim dv As System.Data.DataView = Me.sds.Select(DataSourceSelectArguments.Empty)

        If dv(0)(0) = 0 Then
            Response.Redirect("~/Default.aspx")
        End If
    End Sub

End Class