Imports System.Threading

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub DetailsView1_ItemInserting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DetailsViewInsertEventArgs)
        Thread.Sleep(2000)
    End Sub

    Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs)
        Dim vorm As Login = sender
        If vorm.UserName.Trim.ToUpper() = "ERKI" And vorm.Password = "pwd" Then
            e.Authenticated = True
        Else
            e.Authenticated = False
        End If
    End Sub
End Class