Sub page_load(s as object, e as eventargs) 
    If Session("ValidUser") <> "Y"
	Response.Redirect ("login.aspx")
    End If
End Sub 
	 
Sub btnEnter_Click(s as object, e as eventargs)
	 
   If Page.IsValid then
      Dim strconnect1  as string
      Dim Connsearch12   as OleDBConnection
      Dim cmdEvent     as OleDBCommand
      dim struserID = UserID.text
      dim strgetUser  as String = "Select LastName, FirstName, ID from usertable where UserID = '" & strUserID & "'"
      dim objReader    AS OleDBDataReader

      strConnect1 = ConfigurationSettings.AppSettings("DSN")
      connsearch12 = New OleDbConnection( strConnect1)
      connsearch12.open
      cmdEvent = New OleDBCommand(strgetUser, Connsearch12)

      objReader = cmdEvent.ExecuteReader
      while objReader.Read()
            LastName.text = objReader("LastName")
            FirstName.text = objReader("FirstName")
	    IDbox.text = objReader("ID")
      End While

      objReader.Close()
      Connsearch12.Close()
      Connsearch12 = Nothing
   End If
End Sub
   
Sub del_Click(s as object, e as eventargs)
	dim strconnect1 as string
	dim objconn1 as oledbconnection
        strConnect1 = ConfigurationSettings.AppSettings("DSN")
        objConn1 =    New OleDBConnection(strConnect1)
        objconn1.open()
	intdbID = IDbox.text
        Dim cmd  as new OleDBCommand

        cmd.Connection = objConn1
        cmd.commandtext = "Delete from usertable where ID =" & intdbID
        cmd.ExecuteNonQuery()

        objconn1.close()

	Response.redirect("search.aspx")
		
End Sub